Changer la valeur de plusieurs TextBox

Jam

XLDnaute Accro

• 4 Novembre 2008

• #2

Re : Changer la valeur de plusieurs TextBox

Salut Wolrath,

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

 

Vote positif 0 Vote négatif

W

wolrath

Guest

• 4 Novembre 2008

• #3

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

 

Vote positif 0 Vote négatif

excalibur

XLDnaute Impliqué

• 4 Novembre 2008

• #4

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

 

Dernière édition: 4 Novembre 2008

Vote positif 0 Vote négatif

Jam

XLDnaute Accro

• 4 Novembre 2008

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

W

wolrath

Guest

• 7 Novembre 2008

• #6

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

 

Dernière modification par un modérateur: 7 Novembre 2008

Vote positif 0 Vote négatif