Gestion label etiquettes en boucle

Résolu
JVE-Prof Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
JVE-Prof Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Pour Access 2010 comment faire référence à un label (étiquette)
Dans le but d'avoir un nom indexable(i)
Exemple le Nom du label1 est représenté par Info(1)
Label2 est représenté par Info(2) .....
Modifier en boucle les label couleur, text
Merci d'avance

2 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    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
    0
    1. JVE-Prof Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
       
      Je vous remercie pour votre réponse.
      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
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      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
      0
  2. JVE-Prof Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
     
    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 .
    0