[Résolu] - [VBA/Excel] Boucler sur les contrôles d'un UserForm

Boucler sur les contrôles d'un UserForm [Résolu] - [VBA/Excel] - VB/VBA/VBS - Programmation

Marsh Posté le 15-06-2005 à 14:59:44    

Bonjour et merci à ceux qui prêterons attention à mon post.
 
Voilà j'ai un classeur Excel dans lequel j'ai créé un UserForm avec plusieurs contrôles.
 
On va dire que mes contrôles sont de type label ainsi nommés: MonLabel1, MonLabel2, ..., MonLabel6
 
J'ai un autre contrôle, une scrollbar allant de 1 à 6 et j'aimerais qu'au changement de la valeur de la scroll, mes MonLabelX apparaissent/disparaissent. C'est là où je pêche.
 
J'ai essayé ceci:
 

Code :
  1. Private Sub MonScroll_Change()
  2.     Dim i As Integer
  3.     For i = MonScroll.Min To MonScroll.Value
  4.         MonLabel & i & .Visible = True
  5.     Next i
  6.     For i = MonScroll.Value + 1 To MonScroll.Max
  7.         MonLabel & i & .Visible = False
  8.     Next i
  9. End Sub


 
Cela ne donne aucun résultat mis à part une erreur...
 
Voilà j'espère trouver mon sauveur parmis vous.
 
Merci d'avance tchusss !!


Message édité par dough29 le 16-06-2005 à 09:22:36
Reply

Marsh Posté le 15-06-2005 à 14:59:44   

Reply

Marsh Posté le 15-06-2005 à 23:03:37    

Private Sub MonScroll_Change()
  Dim i As Integer
  Dim sLabelName As String
  For i = MonScroll.Min To MonScroll.Value
    sLabelName = "MonLabel" & i
    Controls(sLabelName).Visible = True
  Next i
  For i = MonScroll.Value + 1 To MonScroll.Max
    sLabelName = "MonLabel" & i
    Controls(sLabelName).Visible = False
  Next i
End Sub


Et voilà.

Reply

Marsh Posté le 15-06-2005 à 23:11:43    

Merci beaucoup !!
 
Je viens d'essayer ca me convient à merveille.
 
Bonne soirée ! :bounce:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed