Discussion :

[flamel]

Bonjour,

Voici 2 bouts de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Listes_1").Select
    Range("listeFonctions_2").Select
    Selection.Copy

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sheets("Listes_1").Select
    Range(listeFonctions_2).Select
    Selection.Copy

qui ne marchent ni l'un ni l'autre.

' listeFonctions_2' est le nom d'une zone déjà définie.
Comment doit-on écrire une variable dans la méthode Range ?
Avec ou sans guillemets, je n'y arrive pas.

Merci si vous pouvez m'aider.

[mercatog]

sans les select et avec les guillemets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Listes_1").Range("listeFonctions_2").Copy

[flamel]

Merci mercatog,

mais ça ne marche pas non plus...

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub copierListes()
 
    Sheets("Listes_1").Range("listeFonctions_2").Copy
    Sheets("Listes_3").Select
     .....

Pourquoi ?

[mercatog]

Tu veux copier où?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub copierListes()
 
Sheets("Listes_1").Range("listeFonctions_2").Copy Sheets("Listes_3").range("A1") 'par exemple
end sub

te copie à partir de A1 de la feuille Listes_3

Evite les select, d'autant plus que si ta macro est dans le module de feuille

[flamel]

Voici le cod corrigé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub copierListes()
 
    Sheets("Listes_1").Activate
    Sheets("Listes_1").Range("listeFonctions_2").Copy Sheets("Listes_3").Select.Range("A1").Paste
 
End Sub

J'obtiens: erreur Objet requis.
Si j'appelle 'listeFonctions_2' avec Ctrl+T, ça vient bien.
Après l'erreur, c'est la feuille 'Listes_1' qui est visible, mais sans les listes. Il faut que je clique sur son onglet pour que les listes qui y sont apparaissent.
Que se passe-t-il ?

[mercatog]

si tu copiais seulement le code que je t'avais proposé?
c'est quoi ceci?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Listes_3").Select.Range("A1").Paste

certainement pas du vba!
je re écris la sub (n'adapte rien sauf la cellule de destination, j'avais mis A1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub copierListes() 
Sheets("Listes_1").Range("listeFonctions_2").Copy Sheets("Listes_3").range("A1") 'A1 par exemple
end sub

[flamel]

Ça marche.
Je m'étais un peu embrouillé en reprenant comme modèle une macro automatique.
L'instruction que tu me donnes est beaucoup plus simple. J'ai appris quelque chose et je t'en remercie.
Cordialement.

[flamel]

Encore un question.

Comment utiliser 'Collage spécial --> Transposé' ?
Parce que j'ai une liste que je place horizontalement.
Dans une macro automatique, ça marche. Le moyen serait-il d'appeler la macro depuis un code VBA ?

Cordialement.