Dénominateur commun pour un code ?

[guy72]

Bonjour,
Petite simplifaication (peut être ?)

J'ai : de Label1 à Label3 puis de Label12 à Label14 la même chose, c'est à dire ça : Label1.caption = "" etc.......

Y a t-il un moyen de simplifier ?

J'ai essayé la façon suivante
Label1 , Label2 , Label3 , Label12 , label13 , Label14.Caption = ""
Cela ne m'a pas indiqué d'erreur, mais ,ça ne fonctionne pas.

Si oui, merci de votre aide.
Cordialemnt
Guy

 

[Hulk]

Re : Dénominateur commun pour un code ?

Hello,

Tu peux faire deux petites boucles..

Private Sub CommandButton1_Click()

    Dim i As Integer

    For i = 1 To 3 ' Pour les trois premiers...
        Controls("Label" & i).Caption = ""
    Next i

    For i = 12 to 14 ' Pour les trois derniers...
        Controls("Label" & i).Caption = ""
    Next i

End Sub

 

[ROGER2327]

Re : Dénominateur commun pour un code ?

Bonsoir à tous

Variante :

[COLOR="DarkSlateGray"][B]Private Sub CommandButton1_Click()
Dim i%, rl
  rl = Array(1, 2, 3, 12, 13, 14)
  For i = 0 To UBound(rl)
    Controls("Label" & rl(i)).Caption = ""
  Next i
End Sub[/B][/COLOR]

ROGER2327
#4408

Lundi 23 Haha 138 (Chapeau de Bosse-de-Nage, ST)
7 Brumaire An CCXIX
2010-W43-4T22:37:45Z

 

[guy72]

Re : Dénominateur commun pour un code ?

Bonjour,
Merci de vos réponses
Guy