afficher case cochées uniquement

[damord]

bonjour,
mon problème c'est que mon user form contient 7 checkbox représentant des propriétés que je veux ensuite faire apparaitre sur une feuille de calcul excel, plusieurs cases peuvent etre coché, comment alors coller mes textes (ici ça correspond aux caption) dans 1 à 7 cases excel maximum sans laisser de trou dans le cas ou toutes les cases ne sont pas coché.
merci

Message édité par: damord, à: 16/01/2006 15:29

 

[myDearFriend!]

Bonsoir damord,

Si j'ai bien compris (pas sûr)...

Soit 7 CheckBox dans le USF, tu peux mettre le code ci-dessous dans l'évènement click() d'un bouton 'Valider' et les Captions associés aux éléments cochés seront reportés en colonne A de la Feuil1 (l'un en dessous de l'autre sans espace) :

Private Sub CommandButton1_Click()
Dim C As Control
Dim L As Long
      For Each C In Me.Controls
            If TypeName(C) = 'CheckBox' Then
                  If C.Value Then
                        With Sheets('Feuil1')
                              L = .Range('A65536').End(xlUp).Row + 1
                              .Cells(L, 1).Value = C.Caption
                        End With
                  End If
            End If
      Next C
End Sub

Cordialement,