Discussion :

[nono63]

Bonsoir,

Petite question toute simple pour compréhension:

Dans mon code VBA j'ai ceci:

Code :

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

Workbooks(CeClasseur).Worksheets(Onglet_data).Activate: Range(Cells(20, "B"), Cells(20, NbrCol)).Copy

Ce code fonctionne bien mais à l'origine je voulais écrire sous cette forme:

Code :

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

Workbooks(CeClasseur).Worksheets(Onglet_data).Range(Cells(20, "B"), Cells(20, NbrCol)).Copy

qui renvoie une erreur:

"erreur 1004 erreur définie par l'application ou par l'objet"

Je voudrais juste comprendre pourquoi cela ne fonctionne pas ?

Merci !!

@+

Nono

[Thautheme]

Bonsoir Nono, bonsoir le forum,

Quand tu utilises un plage ailleurs que dans l'onglet actif il faut spécifier l'onglet à chaque fois que tu y fais référence!... En revanche, si tu restes sur le classeur actif tu n'as pas besoin de le specifier, le code le prendra par défaut...

Il te faut donc écrire :

Code :

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

Worksheets("Ton_onglet").Range(Worksheets("Ton_onglet").Cells(20, 2), Worksheets("Ton_onglet").Cells(20, NbrCol)).Copy

ou utiliser With... End With :

Code :

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

1
2
3
With Worksheets("Ton_onglet")
     .Range(.Cells(20, 2), .Cells(20, NbrCol)).Copy
End With

[Invité]

Bonjour,
Tu peux décliner l'arborescence de ta plage et l'affecter a un range!

Comme ça vite fait je ne suis pas sur de la syntaxe de l'arborescence mais c'est l'idée!
[le classeur est peux être entre crochet]
range("classeur!feuille!A1:C12")D'accord Robert pour le With!!

[Menhir]

Dans mon code VBA j'ai ceci:

Code :

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

Workbooks(CeClasseur).Worksheets(Onglet_data).Activate: Range(Cells(20, "B"), Cells(20, NbrCol)).Copy

Petit conseil au passage : évite d'utiliser les ":" quand ce n'est pas nécessaire. Ca peut faire un code brouillon, plus difficile à relire.

ou utiliser With... End With

Pour des informations plus détaillées : https://msdn.microsoft.com/fr-fr/lib.../gg264723.aspx

[nono63]

Salut,

Merci bcp pour vos réponses, c'est bien plus clair à présent ;-)

@+

Nono ...