Merci pour votre réponse
Le script est le suivant:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim iRow As Long
Dim s As Integer
Dim i As Integer
i = 0
iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 1 + i
With ThisWorkbook.Sheets(2)
.Range("A" & iRow).Value = ComboBox1.Text
.Range("B" & iRow).Value = LDDate1.Date
.Range("C" & iRow).Value = ComboBox2.Text
.Range("D" & iRow).Value = TextBox2.Value
.Range("E" & iRow).Value = TextBox1.Value
If CheckBox1.Value = True Then
.Range("F" & iRow).Value = CheckBox1.Caption
.Range("G" & iRow).Value = TextBox3.Value
.Range("H" & iRow).Value = TextBox4.Value
.Range("I" & iRow).Value = TextBox5.Value
iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 1
i = i + 1
End If
If CheckBox2.Value = True Then
.Range("F" & iRow).Value = CheckBox2.Caption
.Range("G" & iRow).Value = TextBox6.Value
.Range("H" & iRow).Value = TextBox7.Value
.Range("I" & iRow).Value = TextBox8.Value
iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 2
i = i + 1
End If
If CheckBox3.Value = True Then
.Range("F" & iRow).Value = CheckBox3.Caption
.Range("G" & iRow).Value = TextBox9.Value
.Range("H" & iRow).Value = TextBox10.Value
.Range("I" & iRow).Value = TextBox11.Value
iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 3
i = i + 1
End If
If CheckBox3.Value = True Then
i = i + 1
End If
If CheckBox3.Value = True Then
.Range("F" & iRow).Value = CheckBox4.Caption
.Range("G" & iRow).Value = TextBox12.Value
.Range("H" & iRow).Value = TextBox13.Value
.Range("I" & iRow).Value = TextBox14.Value
iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 4
i = i + 1
End If
End With
Call Reset
Application.ScreenUpdating = True
End Sub
Le problème ce que j'arrive pas à compter i pour savoir ensuite au niveau de 2ème enregistrement à partir de quelle ligne je dois commencer