appeler un commandbutton à l'aide d'une variable

jalmainseb · 2 Février 2009

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 · 2 Février 2009

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

Bonjour,

Remplace :

Code:

Set j = "jour" & n

par

Code:

Me.Controls("jour" & n)

A+

jalmainseb · 2 Février 2009

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 · 2 Février 2009

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:

Code:

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+

appeler un commandbutton à l'aide d'une variable

jalmainseb

Guest

Guest

Guest

jalmainseb

Guest

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency