Bonjour le forum!!!!
Je vous recontacte aujourd'hui car j'aurais besoin d'un tout petit coup de pouce.
Dans une Userform j'ai 8 checkbox "cochable". Ma dernière ligne se crée à partir du nombre de checkbox cochée inscrites dans la colonne F.
J'ai également entre 1 et 5 mots à inscrire dans la colonne A.
Dans le cas où le nombre de mot inscrit est supérieur au nombre de checkbox cochées la derniére ligne devrait se créer à partir en fonction de la colonne A.
Je ne pense pas être trés claire. Mon programme est le suivant :
''''''''''''''''''''''''''''''''' ok'''''''''''''''''''''''''''''''''''''
Private Sub CBok_Click()
Dim j As Byte
With Worksheets(1)
derlign = .Range("F65536").End(xlUp).Row + 1
''''''''''''''''''''''''''''Choix du type d'opération(s)'''''''''''''''''''''
For j = 9 To 16
If Me.Controls("CheckBox" & j) Then
.Cells(derlign, 7).Value = Me.Controls("CheckBox" & j).Caption
derlign = derlign + 1
.Cells(derlign - 1, 9).Value = TextBox1.Value 'Commentaires
.Cells(derlign - 1, 8).Value = TextBox2.Value 'Essai
''''''''''''''''''''''''''''Mots clés''''''''''''''''''''''''''''''''''''''
For x = 3 To 6
If Me.Controls("TextBox" & x) Then
.Cells(derlign, 1).Value = Me.Controls("TextBox" & x).Caption
derlign = derlign + 1
End If
Next x
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
Next j
End With
End Sub
Merci d'avance!!!
Jenn
Je vous recontacte aujourd'hui car j'aurais besoin d'un tout petit coup de pouce.
Dans une Userform j'ai 8 checkbox "cochable". Ma dernière ligne se crée à partir du nombre de checkbox cochée inscrites dans la colonne F.
J'ai également entre 1 et 5 mots à inscrire dans la colonne A.
Dans le cas où le nombre de mot inscrit est supérieur au nombre de checkbox cochées la derniére ligne devrait se créer à partir en fonction de la colonne A.
Je ne pense pas être trés claire. Mon programme est le suivant :
''''''''''''''''''''''''''''''''' ok'''''''''''''''''''''''''''''''''''''
Private Sub CBok_Click()
Dim j As Byte
With Worksheets(1)
derlign = .Range("F65536").End(xlUp).Row + 1
''''''''''''''''''''''''''''Choix du type d'opération(s)'''''''''''''''''''''
For j = 9 To 16
If Me.Controls("CheckBox" & j) Then
.Cells(derlign, 7).Value = Me.Controls("CheckBox" & j).Caption
derlign = derlign + 1
.Cells(derlign - 1, 9).Value = TextBox1.Value 'Commentaires
.Cells(derlign - 1, 8).Value = TextBox2.Value 'Essai
''''''''''''''''''''''''''''Mots clés''''''''''''''''''''''''''''''''''''''
For x = 3 To 6
If Me.Controls("TextBox" & x) Then
.Cells(derlign, 1).Value = Me.Controls("TextBox" & x).Caption
derlign = derlign + 1
End If
Next x
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End If
Next j
End With
End Sub
Merci d'avance!!!
Jenn