B
bruno
Guest
Bonjour a tous
je suis débutant en VBA, et je bute sur un probleme avec une userform et mes checkbox.
J ai lu plus reponses sur le forum, mais rien a faire, je n y arrive pas, et je comprends vraiment pas tout ce qui est ecrit dans les réponses.
Alors voila, dans une liste excel, j ai des noms a la suite les un des autres dans le genre:
pierre
jean
louis
marcel
ensuite, j ai une macro, qui a une userform, dans laquelle se trouve 45checkbox, 45 correspondant au nombre maximal(mais non tjs atteint) de nom dans la liste.
Cette liste peut etre changée, et ce que je veux c 'est que le userform utilise cette liste pour mettre a jour les nom des checkbox, et rende invisible les checkbox inutile. ma macro donne cela:
ligne = 2
Do
Do While Cells(ligne, 1) <> ""
UserForm1.CheckBox(ligne).Caption = Cells(ligne, 1)
ligne = ligne + 1
Loop
Loop Until Cells(ligne, 1) = ""
Do
Do While Cells(ligne, 1) = ""
UserForm1.CheckBox1.Visible = False
ligne = ligne + 1
Loop
Loop Until ligne = 50
UserForm1.Show
mais comme vous vous en doutez, cela ne fonctionne pas, j ai une erreur de compilation, il ne reconnait pas le checkbox(ligne) comme checkbox1, checkbox2 etc ...comme je le voudrais.
voila, si vous pouviez m aider, cela me rendrait un enorme service, merci d avance a tout ceux qui liront ce message.
bruno
je suis débutant en VBA, et je bute sur un probleme avec une userform et mes checkbox.
J ai lu plus reponses sur le forum, mais rien a faire, je n y arrive pas, et je comprends vraiment pas tout ce qui est ecrit dans les réponses.
Alors voila, dans une liste excel, j ai des noms a la suite les un des autres dans le genre:
pierre
jean
louis
marcel
ensuite, j ai une macro, qui a une userform, dans laquelle se trouve 45checkbox, 45 correspondant au nombre maximal(mais non tjs atteint) de nom dans la liste.
Cette liste peut etre changée, et ce que je veux c 'est que le userform utilise cette liste pour mettre a jour les nom des checkbox, et rende invisible les checkbox inutile. ma macro donne cela:
ligne = 2
Do
Do While Cells(ligne, 1) <> ""
UserForm1.CheckBox(ligne).Caption = Cells(ligne, 1)
ligne = ligne + 1
Loop
Loop Until Cells(ligne, 1) = ""
Do
Do While Cells(ligne, 1) = ""
UserForm1.CheckBox1.Visible = False
ligne = ligne + 1
Loop
Loop Until ligne = 50
UserForm1.Show
mais comme vous vous en doutez, cela ne fonctionne pas, j ai une erreur de compilation, il ne reconnait pas le checkbox(ligne) comme checkbox1, checkbox2 etc ...comme je le voudrais.
voila, si vous pouviez m aider, cela me rendrait un enorme service, merci d avance a tout ceux qui liront ce message.
bruno