VBA Copier coller fonctionne pas selon feuille active

Bonjour

dans le classeur joint, j'ai une plage variable (feuille1) à copier et à coller à un emplacement variable en feuille2.

Pour cela j'ai écrit :

NoDerLigne = Sheets(2).Range("A2").End(xlDown).Row
'Etirer
With Sheets(1)
    ligne_fin = .Range("B2").End(xlDown).Row
    .Range("A2").AutoFill Destination:=.Range("A2:A" & ligne_fin), Type:=xlFillSeries
End With
'Copier zone variable
derlig = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
Sheets(1).Range(Cells(2, 1), Cells(derlig, 10)).Copy Sheets(2).Cells(NoDerLigne + 1, 1)

Pourquoi Est-ce que cela fonctionne quand ma feuille active est la feuille 1 et pas du tout lorsque je suis sur une autre feuille ?

Comment y remédier svp ? Sachant de plus que la macro est lancée à partir d'un USF ....

Merci d'avance

bonjour

ne pas copier/coller. Ni au clavier/souris, ni par VBA.

Faire de la gestion de données. Plusieurs possibilités : liaisons, Power Query, formules

imiter en informatique ce qu'on fait avec du papier ne mène jamais loin.

mais ce n'est que mon avis.

bon travail

amitiés

Bonjour boby, le forum,

Je te retourne ton fichier modifié :

Pour lancer la macro depuis n'importe quelle feuille, fais Ctrl e

Alt F11 pour voir le code VBA, puis revenir sur Excel

Merci de me dire si ça te convient.

dhany

Bonjour dhany

C'est parfait.

Merci beaucoup.

Bonne journée

Rechercher des sujets similaires à "vba copier coller fonctionne pas feuille active"