Copie d'un range en image depuis une autre feuille

Bonjour

sur le fichier joint j'ai essayé d'adapter une macro qui , au clic sur afficher, doit aller dans la Feuill1, calculer le range à l'aide du

With f1.Range("A1:S400")

ligdep = f1.Range("A1").End(xlDown).Row

ligfin = f1.Range("A500").End(xlUp).Row

End With

qui en réalité est plus compliqué..(mais nécessaire). et copier l'image de ce range dans le userform1

sauf que j'ai une erreur sur le paste

si qq'un comprend pourquoi je veux bien un peu d'aide...

merci par avance

Bonjour,

Si tu regardais dans ton gestionnaire de noms, je pense que tu aurais la solution

ok j'ai supprimé les noms du gestionnaires car je pense pas qu'ils influaient sur la macro

le pb reste le même j'ai toujours un 1004 sur le paste

ce qui est étonnant c'est qu'en remplaçant

Set champ = .Range(Cells(ligdep, 1), Cells(ligfin, 6))

par Set champ = .Range("A3:E5")

ça fonctionne très bien

c'est mon range variable qui semble poser pb

bon j'ai fini par trouver

il fallait ajouter la feuille f1 devant les cells

Set champ = .Range(f1.Cells(ligdep, 1), f1.Cells(ligfin, 6))

bon maintenant j'ai un autre soucis c'est que sur mon fichier l'userform se lance bien avec la copie , je le ferme et là si je recommence j'ai une erreur 1004

mais bon cela fera l'objet d'un autre fil

je vais déjà tester qq trucs et si ça va pas je reviendrai vers vous

merci

Bonjour,

  With Sheets("f1")
      Set champ = .Range(Cells(ligdep, 1), Cells(ligfin, 6))

Erreurs dans ces deux lignes !