Aide écriture code VBA Boucle

[hypo78]

Bonjour à tous,

je suis toujours dans la phase de tâtonnement en VBA, donc une fois de plus j'ai besoin de votre aide.

Le code en question

 Private Sub UserForm_Initialize()
TextBoxDate.Value = Date
TextBox1.Value = Sheets("masques").Cells(3, 2)
TextBox2.Value = Sheets("masques").Cells(4, 2)
....
End Sub

Comme je vais avoir un bon nombre de TextBox qui se suivent j'aurai aimé bouclé dessus, et c'est là que çà coince:

Private Sub UserForm_Initialize()
Dim a As Long
TextBoxDate.Value = Date
For a = 3 To 37
"TextBox" &(a - 2).Value = Sheets("masques").Cells(a, 2)
Next a


End Sub

Merci d'avance

 

[Pierrot93]

Re : Aide écriture code VBA Boucle

Bonjour,

regarde peut être ceci, si cela peut t'aider :

Option Explicit
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 10
    Me.Controls("TextBox" & i).Value = Cells(i, 1)
Next i
End Sub

bon après midi
@+

 

[hypo78]

Re : Aide écriture code VBA Boucle

Bonjour Pierrot,

merci çà fonctionne :

Option Explicit
Private Sub UserForm_Initialize()
Dim a As Byte
    TextBoxDate.Value = Date
For a = 3 To 4
Me.Controls("TextBox" & a - 2).Value = Sheets("masques").Cells(2, a)
Next a


End Sub

Peux tu juste me dire à quoi sert Option Explicit

Cordialement

 

[Pierrot93]

Re : Aide écriture code VBA Boucle

Re,

Peux tu juste me dire à quoi sert Option Explicit

oblige à la déclaration de toutes les variables, ce qui évite bien souvent des erreurs...

 

[hypo78]

Re : Aide écriture code VBA Boucle

ok, merci pour le coup de main.

Bonne soirée