Copier des lignes pour création d'une base de donnée

[zephir94]

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 :

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

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

 

[john]

Re : Copier des lignes pour création d'une base de donnée

Bonjour,
Dans ton code, je ne vois nulle part que tu colles ce que tu as copié !!! suffit pas de copier, mais faut coller ce que tu as copié pour avoir un quelque chose...

Un truc comme
Range("A5").Select
ActiveSheet.Paste

Bonne journée.

John

 

[herve62]

Re : Copier des lignes pour création d'une base de donnée

bonjour
Il faut éviter les .select et Copy/paste ça joue des tours
Mieux vaut prendre les valeurs de plage et faire = dans la nouvelle plage