Lier plusieurs checkbox à une cellule

[ptitgwen]

Bonjour,

je suis novice en vba...

comment affecter la valeur de plusieurs case à cocher à une seule cellule en le séparant par une virgule(", ") ou un espace (" ")?


j'ai fait ceci mais je ne sais comment y placer une virgule ou un espace entre.

If CheckBox1 = True Then
Range("F" & L).Value = CheckBox1.Caption
End If
If CheckBox2 = True Then
Range("F" & L).Value = CheckBox2.Caption
End If

 

[Paf]

Re : Lier plusieurs checkbox à une cellule

Bonjour et bienvenue sur XLD

peut-être ce code

Range("F" & L).Value = IIf(CheckBox1, CheckBox1.Caption, "") & IIf(CheckBox2, CheckBox2.Caption, "")

ou, si on veut séparer les données

Range("F" & L).Value = IIf(CheckBox1, CheckBox1.Caption, "") & " " & IIf(CheckBox2, CheckBox2.Caption, "")

A+

 

[Paf]

Re : Lier plusieurs checkbox à une cellule

ou bien, pour conserver la structure du code:

If CheckBox1 = True Then
   Range("F" & L).Value =  Range("F" & L).Value & " " & CheckBox1.Caption
End If
If CheckBox2 = True Then
   Range("F" & L).Value = Range("F" & L).Value & " " & CheckBox2.Caption
End If

 

[laetitia90]

Re : Lier plusieurs checkbox à une cellule

bonjour ptitgwen ,Paf🙂

comme je comprends???

Dim i As Byte, x
  For i = 1 To 9
 If Me("CheckBox" & i) Then x = x & Me("CheckBox" & i).Caption & "  "
 Next i
 Range("F" & L) = x

 

[ptitgwen]

Re : Lier plusieurs checkbox à une cellule

Bonjour,

Je vous remercie grandement pour vos solutions. 🙂