XL 2013 Problème Checkbox & Userform

[D10]

Bonjour à tous,

J'ai un Userform contenant plusieurs cases à cocher (checkbox) allant de 1 à 10.
Prenons l'exemple ou je coche les cases 5 et 7.

Je voudrais que dans une cellule précise soit inscrit les cases que j'ai cochées.
Donc dans une cellule je voudrais avoir "5 , 7" tout en respectant l'ordre croissant. (5, 7 et non pas 7, 5).

Donc comment prendre en compte l'ordre chronologique des cases cochés ? dans les propriétés des checkbox ?

J’espère avoir été clair ^^

Merci d'avance,

 

[Joël GARBE]

par exemple, un bout de code ! dans lequel j'inscris le résultat en G1

Attention, j'ai pour habitude de renommer chaque contrôle de formulaire, et le code ne va fonctionner que si les case à cochées ont été renommées chbxxxxx peu importe la casse (ChBXxxxx)

Dim i As Long
Dim j As Long
Dim oChB As CheckBox
Range("G1").ClearContents
j = 0
  For i = 0 To Me.Controls.Count - 1
    If VBA.LCase(VBA.Left(Me.Controls(i).Name, 3)) = "chb" Then
      j = j + 1
      If Me.Controls(i) Then
        If Range("G1") <> "" Then
          Range("G1") = Range("G1") & ","
        End If
        Range("G1") = Range("G1") & j
      End If
    End If
  Next

Bon courage

 

[Bebere]

bonjour
bienvenue à tous deux
un autre exemple

Private Sub CommandButton1_Click()
Dim i As Byte
Range("G5") = ""
For i = 1 To 10
If Me("CheckBox" & i) Then Range("G5") = Range("G5") & i & ","
Next
Range("G5") = Left(Range("G5"), Len(Range("G5")) - 1)
End Sub