Alimentation progressive des labels

[ifi77]

Bonjour à tous,

je ne sais pas si c'est la chaleur mais je blaoque sur une chose apparemment simple mais il y a des jours.
En fait j'essaye d'alimenter des label par des choix dans une combobox.
Pour cela j'ai fait une boucl qui doit faire apparaitre au fur et à mesure des choix les labels mais ils s'afichent tous en meme temps???

Si vous avez une idée, merci

@+

 

[Pierrot93]

Re : Alimentation progressive des labels

Bonjour,

pas testé, mais peut être ainsi :

  For ind = 1 To 5
    If Me("Label" & 3 + ind).Caption = Me.ComboBox2.Value Then
      Me.Controls("label" & 3 + ind).Visible = True
      Me.Controls("label" & 8 + ind).Visible = True
    End If
  Next ind

bonne journée
@+

 

[ifi77]

Re : Alimentation progressive des labels

Bonjour pierrot, malheureusement cela ne fonctionne pas, par contre j'ai relevé 1 second probleme, en fait lorsque je lance la macro il me met erreur 70 accès refusé de quoi cela peut il venir.

merci

@+

 

[ifi77]

Re : Alimentation progressive des labels

Pierrot oublie le probleme d'accès, j'ai trouvé la solution.

Il me reste cette boucle pour alimenter les label, si tu as une idée...

Merci @+

 

[Pierrot93]

Re : Alimentation progressive des labels

Re,

peut être en dire un peu plus...

 

[ifi77]

Re : Alimentation progressive des labels

Re,

en fait sur la pièce jointe tu as un formulaire ou la combobox 2 contient des intitulés.
J'essaye que lorsque je click sur la fleche, apparaisse dans les labels situés dessous les intitulés successivement, c'est à dire que le 1er dans le 1er label, puis la seconde selection dans le 2eme...

Merci @+

 

[Pierrot93]

Re : Alimentation progressive des labels

Re,

pas top dans ton fichier la numérotation des labels, regarde ceci, concerne les 5 premiers, à toi d'adapter :

Dim i As Byte
For i = 1 To 5
    With Me.Controls("label" & i)
        .Visible = True
        .Caption = ComboBox2.List(i - 1, 0)
    End With
Next i

bon après midi
@+

 

[ifi77]

Re : Alimentation progressive des labels

Re,

voila Pierrot j'ai enfin trouver ce que je voulais, une petite pause, un bon repas et les idées reviennent au clair:

Dim i As Byte
For i = 1 To 5
If Me.Controls("label" & 3 + i).Caption = "critere" & i Then
Me.Controls("label" & 3 + i).Visible = True
Me.Controls("label" & 3 + i).Caption = ComboBox2.Value
Exit Sub
End If

Next i

Merci de ton aide @+