Gestion label etiquettes en boucle
Résolu/Fermé
JVE-Prof
Messages postés
3
Date d'inscription
lundi 26 mai 2014
Statut
Membre
Dernière intervention
28 mai 2014
-
26 mai 2014 à 17:31
JVE-Prof Messages postés 3 Date d'inscription lundi 26 mai 2014 Statut Membre Dernière intervention 28 mai 2014 - 28 mai 2014 à 14:14
JVE-Prof Messages postés 3 Date d'inscription lundi 26 mai 2014 Statut Membre Dernière intervention 28 mai 2014 - 28 mai 2014 à 14:14
A voir également:
- Gestion label etiquettes en boucle
- Www.printpratic.fr etiquettes - Télécharger - Photo & Graphisme
- Logiciel gestion photo gratuit - Guide
- Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
- Logiciel gestion cave à vin gratuit - Télécharger - Cuisine & Gastronomie
- Logiciel gestion association gratuit excel - Télécharger - Gestion de projets
2 réponses
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
26 mai 2014 à 20:05
26 mai 2014 à 20:05
Bonjour,
exemple: change couleur de fond des labels
exemple: change couleur de fond des labels
Private Sub Commande4_Click()
For x = 1 To 3
Me.Controls("info(" & x & ")").BackColor = vbGreen
Next x
End Sub
JVE-Prof
Messages postés
3
Date d'inscription
lundi 26 mai 2014
Statut
Membre
Dernière intervention
28 mai 2014
28 mai 2014 à 14:14
28 mai 2014 à 14:14
Je vous remercie pour votre précieuse aide, vous m'avez ouvert les yeux.
Voici le résultat auquel je suis arrivé.
Dim lbl_Copie_Ville(5) As Label
Dim cmd_Copie_Sélect(5) As CommandButt
Nom de la variable intermédiaire Nom du Label
Set lbl_Copie_Ville(1) = lbl_Ville_1
Set lbl_Copie_Ville(2) = lbl_Ville_2
Set lbl_Copie_Ville(3) = lbl_Ville_3
Set lbl_Copie_Ville(4) = lbl_Ville_4
Set lbl_Copie_Ville(5) = lbl_Ville_5
Nom de la variable intermédiaire Nom du bouton
Set cmd_Copie_Sélect(1) = cmd_Sélection_1
Set cmd_Copie_Sélect(2) = cmd_Sélection_2
Set cmd_Copie_Sélect(3) = cmd_Sélection_3
Set cmd_Copie_Sélect(4) = cmd_Sélection_4
Set cmd_Copie_Sélect(5) = cmd_Sélection_5
Encore un grand merci .
Voici le résultat auquel je suis arrivé.
Dim lbl_Copie_Ville(5) As Label
Dim cmd_Copie_Sélect(5) As CommandButt
Nom de la variable intermédiaire Nom du Label
Set lbl_Copie_Ville(1) = lbl_Ville_1
Set lbl_Copie_Ville(2) = lbl_Ville_2
Set lbl_Copie_Ville(3) = lbl_Ville_3
Set lbl_Copie_Ville(4) = lbl_Ville_4
Set lbl_Copie_Ville(5) = lbl_Ville_5
Nom de la variable intermédiaire Nom du bouton
Set cmd_Copie_Sélect(1) = cmd_Sélection_1
Set cmd_Copie_Sélect(2) = cmd_Sélection_2
Set cmd_Copie_Sélect(3) = cmd_Sélection_3
Set cmd_Copie_Sélect(4) = cmd_Sélection_4
Set cmd_Copie_Sélect(5) = cmd_Sélection_5
Encore un grand merci .
27 mai 2014 à 15:33
J'ai omis de signaler mon deuxième problème
L' attribution < d' un nom / une variable ...) a un label, pour modifier l'une <Label>par l'intermédiaire de l'autre <variable de référence>.
Je ne suis pas arrivé à contourner l'indexation du nom d' un label, par exemple Label(1) devient Label_1_ ?
Est il possible par une instruction < Set, New... ou autre ?> Affecter « une variable indexée ou non » à un label, par exemple la variable XY(i) serait utilisée comme suit Me.XY(1).BackColor = RGB (250,0,0) et que se soit le Label1 qui change de couleur
XY(2) pour un autre Label, etc.
D'avance un grand merci. Jve
27 mai 2014 à 15:46
Je ne suis pas arrivé à contourner l'indexation du nom d' un label, par exemple Label(1) devient Label_1_ ? comprends pas, vos labels ont quels noms ??????
Variable contenant le nom du label1
XY(1)=nom_du_label1.name