Ranger les val cochées checkbox userform ds des cellules

Bonjour,

j'ai créé un userform avec des checkbox dans le but de récupérer les valeurs cochées dans des cellules (A1:A4)

mais ma macro ne marche que partiellement, pourriez-vous m'aider svp ?

Il faut cliquer sur le bouton Sélectionner dans le fichier joint pour déclencher le userform.

Merci ...

Lala.

salut

c'est logique, du moment qu'une condition est remplie le code sort du if then, je te propose deux solutions :

Range("A1") = IIf(CheckBox1 = True, CheckBox1.Caption, "")
Range("A2") = IIf(CheckBox2 = True, CheckBox2.Caption, "")
Range("A3") = IIf(CheckBox3 = True, CheckBox3.Caption, "")
Range("A4") = IIf(CheckBox4 = True, CheckBox4.Caption, "")

ou une boucle :

Dim i As Byte

For i = 1 To 4
    With Controls("CheckBox" & i)
        If .Value = True Then Cells(i, 1) = .Caption Else Cells(i, 1) = ""
    End With
Next i

attention, renomme ton checkbox5 en checkbox4

a plus

Merci beaucoup pour cette réponse je me doutais bien que c'était le problème mais je n'avais pas trouvé de solution, ça fonctionne correctement super merci!