Re : MACRO - Ranger les valeurs d'une checkbox userform dans des cellules
Merci Robert, c'est exactement ça
Le seul problème c'est que j'ai une dizaine de checkbox en réalité (j'ai simplifié pour la demande je n'en ai mis que 4)
et avec cette macro quand j'en ajoute une dans le userform, la nouvelle (donc 5ème) se range dans la cellule A4 et le niveau expert (4ème) ne se range plus du tout... (par contre les 3 premières se rangent toujours correctement)
A quel niveau faut-il modifier la macro pour que les nouvelles checkbox que je dois ajouter dans le userform soient prises en compte et que les valeurs se rangent en A5, A6...
Private Sub CommandButton1_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then
If Ctrl.Value = True Then Cells(CInt(Ctrl.Tag), 1).Value = Ctrl.Caption Else Cells(CInt(Ctrl.Tag), 1).Value = ""
End If
Next Ctrl
End Sub
13GIBE59 : merci pour ta macro ce n'était pas ce que je recherchais mais elle pourra m'être utile