maninwhite
XLDnaute Occasionnel
Bonjour à toutes et à tous.
Je reviens vers vous pour deux questions.
Dans un userform, j'ai crée un Multipage avec 5 pages.
Chacune des page contient des checkboxs.
Je valide le tout avec un bouton qui se trouve dans l'userform et non pas dans le MultiPage.
1è question :
Comment puis je faire pour que lorsque je clique sur le bouton, cela vérifie que j'ai maximum 4 checkboxs cochées et si plus un msgbox.
J'ai essayé le code ci dessous mais celà ne marche pas
2è question, comme fais t'on pour reporter les valeurs dans un tableau? Je sais les reporter de manière individuelle, mais pas aléatoire.
Partons du principe que la 1è checkbox cochée va en A1, la 2è en B1...
Merci d'avance
Je reviens vers vous pour deux questions.
Dans un userform, j'ai crée un Multipage avec 5 pages.
Chacune des page contient des checkboxs.
Je valide le tout avec un bouton qui se trouve dans l'userform et non pas dans le MultiPage.
1è question :
Comment puis je faire pour que lorsque je clique sur le bouton, cela vérifie que j'ai maximum 4 checkboxs cochées et si plus un msgbox.
J'ai essayé le code ci dessous mais celà ne marche pas
Code:
Private Sub CommandButton_suivant_Click()
Dim Ctrl As Control
Dim I As Long
For Each Ctrl In MultiPage_KE.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value = True Then
I = I + 1 ' boucle pour connaitre le nombre de checkbox cochées
End If
End If
Next Ctrl
If I = 3 Then
Call MsgBox("Test", vbExclamation, Application.Name)
End If
2è question, comme fais t'on pour reporter les valeurs dans un tableau? Je sais les reporter de manière individuelle, mais pas aléatoire.
Partons du principe que la 1è checkbox cochée va en A1, la 2è en B1...
Merci d'avance
Dernière édition: