erreur dans la recopie

[Bruce68]

Bonsoir à tous

Dans le bout de macro ci dessous il faut que les 2 premieres cellules A1 et A2 de la feuil2 soient remplies pour que cela fonctione, je voudrais que 1 seule cellule A1 ne soit pas vide. ( A1 titre de colonne)
Que faut il modifier pour que cela fonctionne?


With Sheets("feuil2")
.Range("A1").End(xlDown).Offset(1, 0).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
End With



Je vous remercie de votre aide

 

[phlaurent55]

Re : erreur dans la recopie

Bonjour Bruce,

sans ficher et sans explications plus précises et détaillées, les réponses risquent de se faire attendre encore longtemps

à+
Philippe

 

[Pierrot93]

Re : erreur dans la recopie

Bonjour Bruce, Philippe

peut être tout simplement comme ceci :

Sheets("feuil2").Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

A voir....

bonne journée
@+

 

[Bruce68]

Re : erreur dans la recopie

Bonjour Pierrot Philipe et le forum

Merci Pierrot pour la solution cela fonctionne comme je le voulais

Bonne journée à tous