Pascal_New
XLDnaute Nouveau
Bonjour le Forum, Bonjour aux Gentils Administrateurs du site,
J'ai pompé une macro qui me plait bien MAIS qui "Copie / Colle" des lignes d'une feuille vers une autre feuille alors que je voudrais qu'elle "Copie / Collage Spécial [Valeurs]"...
Voilà le code :
Sub test()
For Each cel In Sheets("Feuil1").Range("D1" & Sheets("Feuil1").Range("D65536").End(xlUp).Row)
If UCase(cel) <> 0 Then
Sheets("Feuil1").Range("a" & cel.Row & ":z" & cel.Row).Copy _
Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub
Merci par avance pour votre aide !!!!
Pascal
J'ai pompé une macro qui me plait bien MAIS qui "Copie / Colle" des lignes d'une feuille vers une autre feuille alors que je voudrais qu'elle "Copie / Collage Spécial [Valeurs]"...
Voilà le code :
Sub test()
For Each cel In Sheets("Feuil1").Range("D1" & Sheets("Feuil1").Range("D65536").End(xlUp).Row)
If UCase(cel) <> 0 Then
Sheets("Feuil1").Range("a" & cel.Row & ":z" & cel.Row).Copy _
Sheets("Feuil2").Range("A" & Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1)
End If
Next
End Sub
Merci par avance pour votre aide !!!!
Pascal
Dernière édition: