Bonsoir à tous,
je voudrais comprendre le pourquoi du comment, j'ai besoin de copier des lignes afin de créer un journal de données.
dans une feuille j'ai crée un modèle qui comporte 22
le but pour moi et de copier ligne après ligne en remplissant les champs avec mes textbox et combobox
j'ai ecris ceci :
Je cherche à comprendre pourquoi il ne me copie pas les textes, j'ai bien les cadres, la couleur mais pas les textes !
Merci par avance
je voudrais comprendre le pourquoi du comment, j'ai besoin de copier des lignes afin de créer un journal de données.
dans une feuille j'ai crée un modèle qui comporte 22
le but pour moi et de copier ligne après ligne en remplissant les champs avec mes textbox et combobox
j'ai ecris ceci :
Code:
With Sheets("Base1")
Application.CutCopyMode = False
Application.EnableEvents = True
NewLig = .Cells(.Rows.Count, "B").End(xlUp).Row + 1 ' je cherche la dernière ligne écrite de la colonne B et je me positionne a +1 soit en ligne 24
.Rows(NewLig - 23).Copy ' je copie la ligne 1 enfin je crois, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
....
End with
Merci par avance
Dernière édition: