Rapatrier les données de checkbox

Version imprimable

11/01/2011, 10h28
joums

1 pièce(s) jointe(s)

Rapatrier les données de checkbox

Bonjour,

Je bloque sur une macro.
Je veux que lorsque l'on met son nom et prénom (dans textbox)
+ sélection de case à cocher.
toutes les valeurs se mettent dans les colonnes correspondantes de la feuille 1
Si plusieurs cases sont cocher alors cela fera autant de ligne que de case cochées
Exemple : je met Nom : Boulanger Prénom Laurent
cases cochées : Rouge et mauve

Je dois donc trouver en :
A2 : Boulanger
B2 : Laurent
C2 : Rouge (section 1)

A3 : Boulanger
B3 : Laurent
D3 : mauve (section 2)

ps : voir fichier joint
Merci pour votre aide

Bonjour,
il faut que tu boucle sur les controls de tes frames et si elles sont sélectionnées tu copie les données dans ton tableau.
le code du bouton de commande de ton userform :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
 
For Each ctrl In Me.Frame1.Controls
    If TypeOf ctrl Is MSForms.CheckBox Then
      If ctrl.Value = True Then
      Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Value
      Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1, 0) = TextBox2.Value
      Sheets("Feuil1").Range("B65536").End(xlUp).Offset(0, 1) = ctrl.Caption
      End If
    End If
Next ctrl
 
For Each ctrl In Me.Frame2.Controls
    If TypeOf ctrl Is MSForms.CheckBox Then
      If ctrl.Value = True Then
      Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Value
      Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1, 0) = TextBox2.Value
      Sheets("Feuil1").Range("B65536").End(xlUp).Offset(0, 2) = ctrl.Caption
      End If
    End If
Next ctrl
 
End Sub

une première boucle sur frame1 et une deuxième boucle sur frame2.
Tiens nous au courant. ;)

11/01/2011, 11h24
joums

Bonjour,
Merci pour votre réponse, effectivement j'avais pas pensé à cette solution

Ca à l'air de bien fonctionné
Merci pour tout

il me reste plus qu'à finir mon code pour autoriser un maximum de case à coché

Par exemple :
Nombre total de case à cocher = 2

Avez-vous une piste ?
Je pensais faire une boucle sur les controls du USF
Si Ceux nommé checkbox = true >2
alors checkbox = enable
Qu'en pensez vous?