Bonjour,
J'utilise un code pour crée des lignes sur un tableau par contre je souhaiterais la modifier pour qu'elle me les crée une par une.
Le problème se situe au niveau de la ligne réf je n'arrive pas a trouver la solution pour que ça se décale à chaque fois.
Private Sub CommandButton1_Click()
Dim NbLigne As Long
NbLigne = 1
ThisWorkbook.Sheets("Tableau de suivi").Range("B7:B" & Application.Max(7, ThisWorkbook.Sheets("Tableau de suivi").Range("A" & Rows.Count).End(xlUp).Row)).ClearContents
ThisWorkbook.Sheets("Tableau de suivi").ListObjects("Tableau1").Resize Range("$B$6:$N$" & 6 + NbLigne)
ThisWorkbook.Sheets("Tableau de suivi").Range("B7") = 1
If NbLigne > 1 Then
ThisWorkbook.Sheets("Tableau de suivi").Range("B7").AutoFill Destination:=ThisWorkbook.Sheets("Tableau de suivi").Range("B6:B" & 6 + NbLigne), Type:=xlFillSeries
End If
End Sub