Application d'une boite de dialogue sur plusieurs feuilles

Bonjour,

J'ai créer une boite de dialogue à l'ouverture de mon fichier afin de rentrer automatiquement une valeur dans une certaine cellule, cependant elle s'applique uniquement sur ma première feuille et je souhaiterais qu'elle s'applique au 2 feuilles présentent dans le fichier (même cellule pour c'est 2 feuilles).

Mais je ne sais pas comment faire cela.

Code userform

Sub Code_Chantier_Initialize()
    Me.StartUpPosition = 1
End Sub

Sub CommandButton1_Click()
[E5] = Code_Chantier.TextBox1
Unload Code_Chantier
End Sub

Sub TextBox1_Change()
[E5] = Code_Chantier.TextBox1
End Sub

Code "ThisWorkbook"

Sub Workbook_Open()
Load Code_Chantier
Code_Chantier.Show
End Sub

Bonjour Minraee994

minrae994 a écrit :

Bonjour,

J'ai créer une boite de dialogue à l'ouverture de mon fichier afin de rentrer automatiquement une valeur dans une certaine cellule, cependant elle s'applique uniquement sur ma première feuille et je souhaiterais qu'elle s'applique au 2 feuilles présentent dans le fichier (même cellule pour c'est 2 feuilles).

Mais je ne sais pas comment faire cela.

Déjà commence par apprendre les bases du VBA

et évite de coder comme certains font, juste en mettant la référence de la cellule entre crochets.

Code userform

Sub Code_Chantier_Initialize()
    Me.StartUpPosition = 1
End Sub

Sub CommandButton1_Click()
    Sheets("Machin").range("E5").Value = Code_Chantier.TextBox1
    Sheets("Truc").range("E5").Value = Code_Chantier.TextBox1
    Sheets("Bidule").range("E5").Value = Code_Chantier.TextBox1
    Unload Code_Chantier
End Sub

Voilà

Bonjour,

essaye avec :

Sub CommandButton1_Click()
  Worksheets(1).[E5] = Code_Chantier.TextBox1
  Worksheets(2).[E5] = Code_Chantier.TextBox1
  Unload Code_Chantier
End Sub

Sub TextBox1_Change()
  Worksheets(1).[E5] = Code_Chantier.TextBox1
  Worksheets(2).[E5] = Code_Chantier.TextBox1
End Sub

dhany

Oh c'est génial ça marche (les 2 techniques). Je vous remercie.

Et pour tout te dire BrunoM45, je débute dans le VBA (un peu forcé car pas le choix pour certaines choses) et bah c'est pas simple, y'a tellement de chose à connaitre et à comprendre mais avec le temps ça va venir, suffit de trouver le bon filon ^^.

En tout cas merci

PS : Je vais faire en sorte d'arrêter les cellules juste seul entre crochet. Promis

Re,

Ceci dit le code de dhany est nickel aussi, je changerais juste

Worksheets(1).[E5]

par

Worksheets("Machin").[E5]

Et il y a 2 écoles pour l'appel de la référence et moi j'ai peur de "ma crochet" ok je sors