BonjourBonjour,
Voici, si j'ai bien tout compris, car il est assez difficile de faire moins clair comme demande...
VB:Option Explicit Sub copie() Dim f As Worksheet, f1 As Worksheet, i As Byte, j As Byte Set f = Sheets("Feuil1") Set f1 = Sheets("Feuil2") j = f1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row For i = 8 To f.Cells(Rows.Count, 3).End(xlUp) If f.Cells(i, 3) <> "" Then f1.Cells(j, 2) = f.Cells(i, 2) f1.Cells(j, 3) = f.Cells(i, 3) f1.Cells(j, 4) = f.Cells(i, 4) f1.Cells(j, 5) = f.Cells(i, 5) j = j + 1 End If Next i End Sub
A+
Bonsoir,
Voici
Cliquer sur le bouton rouge.
VB:Sub Transfer() Range(Range("B" & Rows.Count).End(xlUp), Range("B" & Rows.Count).End(xlUp).Offset(, 7)).Copy _ Destination:=Feuil2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0) End Sub
A+
oui ça marche très bien merci beaucoup frèreBonsoir,
Voici
Cliquer sur le bouton rouge.
VB:Sub Transfer() Range(Range("B" & Rows.Count).End(xlUp), Range("B" & Rows.Count).End(xlUp).Offset(, 7)).Copy _ Destination:=Feuil2.Range("B" & Rows.Count).End(xlUp).Offset(1, 0) End Sub
A+
quel ligne voulez vous supprimer!Bonjour
J'utilisé cet macro pour mes besoins, mais je veux que la ligne doit supprimer après la collage des cellules.
Merci