Changer la valeur de plusieurs TextBox

[wolrath]

Voilà, voilà...

Sur un UserForm j'ai plusieurs TextBox et je voudrais changer une priorité de tous mes TextBox en une fois et non rettaper plusieurs fois une ligne de mise à jour par TextBox...

 

[Jam]

Re : Changer la valeur de plusieurs TextBox

Salut Wolrath,

Euh, peut-être peux-tu essayer de réexpliquer...ou joindre un fichier exemple.

 

[wolrath]

Re : Changer la valeur de plusieurs TextBox

🙂

acctuelement j'ai un code à la truelle du genre :

textbox1.value="blabla"
textbox2.value="blabla"
textbox3.value="blabla"
etc...

et je cherche un code du genre :
for i= 1 to n
textboxi="blabla"
next

si je suis plus clair

 

[excalibur]

Re : Changer la valeur de plusieurs TextBox

bonjour wolrath Jam le forum si j ai compris!!

Option Explicit
Dim x As Integer
Private Sub CommandButton1_Click()
For x = 1 To 10
Me.Controls("TextBox" & x).Value = "bla bla"
Next x
End Sub
ou si tu prends les donnees sur une feuille ou l inverse textbox vers feuille

Dim x As Byte
For x = 1 To 10
Sheets("feuil1").Cells(1, x) = Me.Controls("Textbox" & (x)).Value
'ou
'Me.Controls("Textbox" & (i)).Value = Sheets("feuil1").Cells(1, i)
Next x

 

[Jam]

Re : Changer la valeur de plusieurs TextBox

Salut excalibur,

Je préfère personnellement la méthode suivante car elle s'affranchit de la gestion du nom qui peut éventuellement changer

Sub TextBoxes()
'TextBoxes de la boite à outils Contrôles sur un UserForm (ActiveX)
'La bibliothèque Forms 2.0 doit être cochée (auto si le projet contient un UserForm)
Dim ctrl As Control
    For Each ctrl In UserForm1.Controls
        If TypeOf ctrl Is MSForms.TextBox Then
            ctrl.Text = "bla bla"
        End If
    Next
End Sub

On peut remplacer UserForm1 par Me si la procédure est dans le module formulaire 😉

Bon courage

 

[wolrath]

Re : Changer la valeur de plusieurs TextBox

ca marche impecable mais... maintenant il faudrais que les textbox récupère le nom des feuilles de calcul

TextBox1.Value = Worksheets(2).Name
TextBox2.Value = Worksheets(3).Name
...
TextBoxn.Value = Worksheets(n+1).Name

donc pas forcement tous les textbox du userform

dsl j'ai trouvé en relisant la reponse d'excalibur :
For x = 1 To 10
UserForm1.Controls("TextBox" & x).Value = Worksheets(x + 1).Name
Next x