[XL-2007] Boucles sur Label [Résolu]

ddanie · 14/10/2011, 10h10

Bonjour,

Comment écrire un système de boucles pour ne pas à avoir 70 lignes à écrire en changeant uniquement le Label à chaque ligne de code (Label1, Label2, Label3, ... Label70)
J'ai essayé en concaténant Label & i, (ci-dessous) mais ça ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
With UserForm1
   For i = 1 To 70
        .Label&i.BackColor = RGB(255, 255, 255)
   Next i
End With

Merci pour vos réponses

Jean-Pierre49 · 14/10/2011, 10h14

Bonjour

dans ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Controls("Label " & i).BackColor = RGB(255, 255, 255)

Bon courage

ddanie · 14/10/2011, 10h32

OK Ca fonctionne, juste une petite remarque, j'ai dû supprimer l'espace entre la fin de Label et le guillemet
Merci Jean Pierre
Bonne journée

Jean-Pierre49 · 14/10/2011, 10h38

Exact ddanie

Je l'ai écrie à la volée

J’aurais du faire attention

14/10/2011, 10h14	#2
Jean-Pierre49 Membre Expert J-Pierre Catherine Conception Calcul Inscription : juillet 2007 Messages : 659 Détails du profil Informations personnelles : Nom : J-Pierre Catherine Âge : 57 Localisation : France, Maine et Loire (Pays de la Loire) Informations professionnelles : Activité : Conception Calcul Secteur : Industrie Informations forums : Inscription : juillet 2007 Messages : 659 Points : 1 856 Points : 1 856	Bonjour dans ce cas Code : Sélectionner tout - Visualiser dans une fenêtre à part .Controls("Label " & i).BackColor = RGB(255, 255, 255) Bon courage __________________ Jean-Pierre Pensez à Voter pour les réponses qui vous ont aidés, d'avance merci ---------Et n'oubliez pas de mettre : ..quand c'est le cas !---------
	00

14/10/2011, 10h38	#4
Jean-Pierre49 Membre Expert J-Pierre Catherine Conception Calcul Inscription : juillet 2007 Messages : 659 Détails du profil Informations personnelles : Nom : J-Pierre Catherine Âge : 57 Localisation : France, Maine et Loire (Pays de la Loire) Informations professionnelles : Activité : Conception Calcul Secteur : Industrie Informations forums : Inscription : juillet 2007 Messages : 659 Points : 1 856 Points : 1 856	Exact ddanie Je l'ai écrie à la volée J’aurais du faire attention __________________ Jean-Pierre Pensez à Voter pour les réponses qui vous ont aidés, d'avance merci ---------Et n'oubliez pas de mettre : ..quand c'est le cas !---------
	00

14/10/2011, 10h32	#3
ddanie Candidat au titre de Membre du Club Inscription : juillet 2007 Messages : 34 Détails du profil Informations forums : Inscription : juillet 2007 Messages : 34 Points : 12 Points : 12	OK Ca fonctionne, juste une petite remarque, j'ai dû supprimer l'espace entre la fin de Label et le guillemet Merci Jean Pierre Bonne journée
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email