Copie d'une plage de cellules nommée

Bonjour,

Je travaille avec Excel 2002.

J'ai nommé une plage de cellules (par exemple de A1 à A3)

Je voudrais recopier cette plage à partir du nom défini.

Lorsque j'essaie, seul le nom donné se recopie.

Merci de m'aider.

Bonjour,

Un Copier - Coller se fait de cellules à cellules.

Je ne vois pas comment faire pour utiliser le nom directement dans cette manip.

Peut-être par macro, mais là, je ne sais pas faire.

Donne nous un peu plus de détail sur ce que tu veux faire exactement avec le pourquoi.

A te (re)lire

@+

Bonjour

Une zone nommée ESSAI

Sub Macro1()
[essai].Copy Destination:=Sheets("Feuil3").Range("A1")

End Sub

permet la copie de cette zone vers la feuille 3 en A1

Bonjour,

Tu peux aussi te faire un liste personnalisée.

Tu vas dans outils/options/Listes pers/ dans entrées de la liste ,la tu tapes ta liste.

Ou sélectionne ta liste et refait la méme manoeuvre puis clic sue importer.

Maintenant dans une celulles tapes le premier mot de ta liste et tire avec la petite croix vers le bas ou gauche ou tu veux ,la liste va s'inscrire;

Exemple ;tape lundi dans une celulles puis la petite croix ,tire dans le sens que tu veux,les jours de la semaine vont s'inscrire automatiquement.

C'est une liste déja faite.

Si problème revient.

A +

CB60 a écrit :

Bonjour

Une zone nommée ESSAI

Sub Macro1()
[essai].Copy Destination:=Sheets("Feuil3").Range("A1")

End Sub

permet la copie de cette zone vers la feuille 3 en A1

Bonjour,

j'ai trouvé ce post qui ressemble à ma recherche; mais je n'arrive pas à trouver une solution à mon problème.

J'ai plusieurs nom de plage (Run_1, Run_2, Run_3...) et j'ai une liste déroulante pour choisir les run.

Si j'utilise la formule suivante, ça marche

Sub Macro1()
[Run_1].Copy Destination:=Sheets("Feuil3").Range("A1")
 End Sub

mais si je définis une variable qui change suivant le numéro du run choisi dans la liste, cela ne marche plus

Sub Macro1()
NumRun = "Run_" & Range("L4").Value 'en L4 correspond le numéro du run sélectionné dans la liste déroulante
[NumRun].Copy Destination:=Sheets("Feuil3").Range("A1")
End Sub

pourriez vous m'aider, svp ?

merci

bonsoir

je pense que tu pourrais essayer quelque chose comme ça?

Sub Select_Case_conditions()

numrun = "run_"
Select Case numrun
    Case Is =run & Range("l4").Value
[NumRun].Copy Destination:=Sheets("Feuil3").Range("A1")

    Case Is =run & Range("l5").Value
[NumRun].Copy Destination:=Sheets("Feuil3").Range("b1")

    Case Is = ""
        Exit Sub
    Case Else
        MsgBox "Pas de run pour ça"
End Select
End Sub

mais sans fichier pas sur!

Merci CB60 pour ta réponse,

c'est ce que je cherchais !

@+