Re : Insertion d'une ou plusieurs lignes via userform
bonjour Vassili
Tu as cette partie de code dans module4
après essais comme suit
X = Mid(.Cells(1, DerCol), 6) + 1 'extrait le numeric de la dernière colonne +1
Y = Mid(Tbl(1, UBound(Tbl, 2)), 6) 'extrait le numeric de la dernière colonne de tbl
If Y > X Then
For C = X To Y
.Cells(1, .Cells(1, 256).End(xlToLeft).Column + 1) = "vente" & C
.Cells(1, .Cells(1, 256).End(xlToLeft).Column + 1) = "achat" & C
.Range(.Cells(2, DerCol + 1), .Cells(Lf, .Cells(1, 256).End(xlToLeft).Column)) = 0
.Range(.Cells(2, DerCol + 1), .Cells(Lf, .Cells(1, 256).End(xlToLeft).Column)).NumberFormat = "0"
Next
End If