Discussion :

[iliesss]

Bonjour
J’ai un classeur Excel de 4 feuilles ou plus et une zone de texte dans userform
Question.
SVP comment affecter la valeur saisie dans la zone de texte (qui s'affiche au démarrage du classeur) dans les cellules A3 de chaque feuille du classeur.

[jfontaine]

Bonjour,

En faisant une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Sheets
    sh.Range("C3") = textbox1.text
Next sh

[iliesss]

salut mon ami
merci beaucoup ça marche très bien
une petite question SVP

Le format de mes cellules C3 est date exp:31/05/2011 et lorsque je tape la date dans la zone de texte et je ferme mon userform mes cellules C3 perdent leur format

merci beaucoup

[jfontaine]

Force le format comme suit (je ne reproduis pas ce probleme)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim sh As Worksheet
 
For Each sh In ThisWorkbook.Sheets
    sh.Range("C3") = "01/12/2010"
    sh.Range("C3").NumberFormat = "m/d/yyyy"
Next sh

[iliesss]

merci mr Jérôme merci beaucoup