Lier plusieurs checkbox à une cellule

Paf

XLDnaute Barbatruc

• 13 Janvier 2015

• #2

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+

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 13 Janvier 2015

• #3

Re : Lier plusieurs checkbox à une cellule

ou bien, pour conserver la structure du code:

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 13 Janvier 2015

• #4

Re : Lier plusieurs checkbox à une cellule

bonjour ptitgwen ,Paf🙂

comme je comprends???

Code:

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

 

Vote positif 0 Vote négatif

P

ptitgwen

Guest

• 14 Janvier 2015

• #5

Re : Lier plusieurs checkbox à une cellule

Bonjour,

Je vous remercie grandement pour vos solutions. 🙂

 

Vote positif 0 Vote négatif