Boucle for / next

Bonjour à tous,

Pour du traitement de données j'ai créer un userform avec 8 checkbox à cocher,

et je vient remplir un tableau avec des X a partir de la colonne H pas rapport au checkbox qui on été cocher

la boucle que j'ai créer

Private Sub CommandButton1_Click()
Dim i As Integer
Dim c As Integer
derlign = Sheets("Suivi").Range("A65536").End(xlUp).Row + 1
   With Sheets("Suivi")
      For i = 1 To 8
      For c = 8 To 15
        If Controls("CheckBox" & i) Then 'Si coché
        Sheets("Suivi").Cells(derlign, c) = "X"
        End If
     Next c
     Next i
   End With
Unload Me
End Sub

Mon problème c'est qu'il me copie le x même si le checkbox na pas été coché

Bonjour, il faut sans doute récupérer la valeur de la checkbox uniquement quand cochée : =True

If Controls("CheckBox" & i).value=True Then

Bonjour,

Essaie ainsi :

Private Sub CommandButton1_Click()
Dim i As Integer
Dim c As Integer
With Sheets("Suivi")
      derlign = .Range("A65536").End(xlUp).Row + 1
      For i = 1 To 8
        If Controls("CheckBox" & i) Then 'Si coché
              .Cells(derlign, i + 7) = "X"
        End If
     Next i
End With
Unload Me
End Sub

Bonjour cousinhb29, xmenpl

Merci beaucoup pour votre aide, j'ai réglé mon problème avec la deuxième solution.

Bonne journée à tous.

Rechercher des sujets similaires à "boucle next"