appeler un commandbutton à l'aide d'une variable

[jalmainseb]

Bonjour,

J'ai un userform qui contient 40 commandbutton.

En fonction de données fournies par l'utilisateur, je modifie le nom et la couleur de ces boutons.

Par exemple, si l'utilisateur entre la date du 2 février et me dit d'aller jusqu'au 27 février, les 26 premiers boutons seront numérotés de 2 à 27.

J'ai rentré le code suivant :

For n = 1 To 40
Dim j As CommandButton
Set j = "jour" & n

j.BackColor = &H8000000F
If (DateValue(TextBox2) + n - 1) < (DateValue(TextBox3) + 1) Then
j.Caption = Day(DateValue(TextBox2) + n - 1)
Else
j.Caption = ""
End If
Next



MAIS, la manière dont j'utilise set ne fonctionne pas.

Je bloque, auriez-vous une solution ?

Merci

 

[Guest]

Re : appeler un commandbutton à l'aide d'une variable

Bonjour,

Remplace :

Set j = "jour" & n

par

Me.Controls("jour" & n)

A+

 

[jalmainseb]

Re : appeler un commandbutton à l'aide d'une variable

Merci beaucoup,

Fonctionne avec cette syntaxe :

For n = 1 To 40
Controls("jour" & n).BackColor = &H8000000F
If (DateValue(TextBox2) + n - 1) < (DateValue(TextBox3) + 1) Then
Controls("jour" & n).Caption = Day(DateValue(TextBox2) + n - 1)
Else
Controls("jour" & n).Caption = ""
End If
Next

 

[Guest]

Re : appeler un commandbutton à l'aide d'une variable

Re Seb

Oui cela fonctionne avec ce genre de syntaxe.

Essaie ceci qui est plus rapide:

For n = 1 To 40
With Controls("jour" & n)
       .BackColor = &H8000000F
       If (DateValue(TextBox2) + n - 1) < (DateValue(TextBox3) + 1) Then
          .Caption = Day(DateValue(TextBox2) + n - 1)
       Else
          .Caption = ""
       End If
End With
Next

A chaque boucle VBA n'a qu'une fois à évaluer l'expression 'Controls("jour" & n)' au lieu de trois fois.

A+