Alimentation progressive des labels

Pierrot93

XLDnaute Barbatruc

• 27 Juin 2011

• #2

Re : Alimentation progressive des labels

Bonjour,

pas testé, mais peut être ainsi :

Code:

  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
@+

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 27 Juin 2011

• #3

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

@+

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 27 Juin 2011

• #4

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 @+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juin 2011

• #5

Re : Alimentation progressive des labels

Re,

peut être en dire un peu plus...

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 27 Juin 2011

• #6

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 @+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Juin 2011

• #7

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 :

Code:

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
@+

 

Vote positif 0 Vote négatif

I

ifi77

XLDnaute Occasionnel

• 27 Juin 2011

• #8

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 @+

 

Vote positif 0 Vote négatif