Copie ligne suivant sélction

[Aladin]

Bonjour le forum
Bonsoir le forum, je me tourne vers vous car je n' arrive pas a treminer mon pb. j' ai 2 feuilles, feuil1 et feuil 2 je voudrais
que sur la feuil2 soit recopié la derniere ligne de la feuiol1 mais de la feuil1 les données des colonne C, D, et F doivent se trouver sur feuil2 en colonne C, A, B et ceci en incrémentant la feuil2

Merci d' avance pour toute réponse
Aladin

 

[Compte Supprimé 979]

Re : Copie ligne suivant sélction

Salut Aladin,

C'est plutôt simple, il suffit d'exposer le problème et la solution éventuelle

1) trouver la dernière ligne de la feuille 1

DerLig1 = Sheets("Feuil1").Range("C" & Rows.Count).End(XlUp).Row

2) trouver la dernière ligne VIDE de la feuille 2

DerLig2 = Sheets("Feuil2").Range("C" & Rows.Count).End(XlUp).Row [COLOR=blue][B]+ 1[/B][/COLOR]

3) Données de la colonne C Feuil2 = données colonne C Feuil1

Sheets("Feuil2").Range("C" & DerLig2) = Sheets("Feuil1").Range("C" & DerLig1)

Et ainsi de suite ....
Ce n'est tout de même pas très compliqué non !

Quand on veut essayer de réfléchir, biensur 😀

A+

 

[Aladin]

Re : Copie ligne suivant sélction

Bonsoir BrunoM45 et le forum
Merci pour tes explications ainsi que les codes, a partir de la, j' ai pu finir ma macro et ma copie se fait correctement, le seul hic c' est si j'a ue couleur de fond, elle ne se copie pas sur la feuil1
Aladion

 

[Compte Supprimé 979]

Re : Copie ligne suivant sélction

Salut Aladin,

Si tu veux juste la couleur, tu peux utiliser

Sheets("Feuil2").Range("C" & DerLig2).Interior.ColorIndex = _
Sheets("Feuil1").Range("C" & DerLig1).Interior.ColorIndex

Sinon après il faut utiliser : COPY

Sheets("Feuil1").Range("C" & DerLig1).Copy Destination:= _
Sheets("Feuil2").Range("C" & DerLig2)

Attention, dans ce cas là, tu copie cellule de "Feuil1" vers cellule "Feuil2"

A+