méthode select class range échoué

Bonjour

Je travaille sur deux dossiers excel. Le premier comporte toutes les macros nécessaires pour traiter les données qui se trouvent sur le second.
j'enchaine les procédures, les unes derrières les autres.

L'une d'elle exécute ceci :

Code:

---

1 2 3 4 5 6

'on copie toutes les données de dépenses en valeurs, pour éviter les erreurs wFD.Activate ' active la feuille de données wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, b + 1)).Select ' sélection de la plage adéquate Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

---

Je ne sais pas pourquoi, mais je suis obligé de spécifier wFD.cells, c'est à dire la feuille de données sur laquelle ce trouve la cellule, malgré le fait d'avoir mis wFD.range.

Ca marche.

la procédure suivante fait ceci

Code:

---

1 2 3 4 5

'copie la formule jusqu'à la dernière ligne. (La formule se trouve en ligne 2) wFD.Range(wFD.Cells(NbrLigDon, a)).Select ' ça plante ici Range(Selection, Selection.End(xlUp)).Select Selection.FillDown

---

Et ça ne marche pas. J'ai essayé :

Code:

---

1 2	wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, a)).Select

---

Même erreur : la méthode select de la class Range a échoué.
Je ne sais pas si cela a une importance, mais excel garde en pointillé clignotant la sélection de la procédure précédente.


Si quelqu'un(e) peut m'éclairer, je l'en remercie.

Patrice

... si je mets :

Code:

---

wFD.Cells(NbrLigDon, a).Select

---

Je ne comprends pas du tout pourquoi.

Patrice

F1 sur Range, tu auras tes réponses

Sinon, tes Select, selection sont inutiles (si j'ai à les prohiber, je le ferai avec grand plaisir)

Regardes l'exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'1. Ton code sans les Select et sans activer wFD wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, b + 1)).Copy wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, b + 1)).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False   '2. Ou bien ceci With wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, b + 1)) .Copy .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With   '3. Qui est en fin de compte équivalent à ceci With wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, b + 1)) .Value = .Value End With

---

Code:

---

1 2 3

wFD.Range(wFD.Cells(NbrLigDon, a)).Select ' ça plante ici wFD.Cells(NbrLigDon, a).Select ' ça c'est la même chose que sauf que wFD.Range(cell1,cell2).Select ' ça attend une plage

---

de plus tu sélectionnes une plage puis tu traite la sélection pourquoi ne pas traiter directement la Plage?

Code:

---

wFD.Range(wFD.Cells(2, a), wFD.Cells(NbrLigDon, b + 1)).Copy

---

Bon et bien merci pour vos réponses.

C'est tellement plus simple et plus clair.
Merci pour ces trois façons de coder. Ca a le grand mérite d'être pédagogique.

Je croyais que la sélection était un passage obligé.

Merci pour le F1 direct sur le mot (range), je ne connaissais pas le truc.

Question pour mercatog

Pourquoi prohibiriez-vous les select ?

Parce qu'elles sont inutiles (sauf si on veux vraiment sélectionner une cellule)
Parce qu'elles sont source d'erreur (quand la cellule n'est pas sur la page active)
Parce qu'elles sont la cause de la lenteur des codes
Parce que si les code est dans le module d'une feuille, Elles engendrent systématiquement des erreur quand elles se réfèrent à d'autres feuilles

J'en oubli certainement

Aies l'habitude de suivre la logique expliquée ci-après:
Quand on fait un adressage complet (et selon les cas) on s'en fiche du classeur, de la feuille et des cellules actifs

Quand on est en présence de plusieurs classeurs ouverts dans la même instance Excel, pour effacer la plage A1:B5 de la feuille nommée Feuil4 du classeur contenant la macro, il suffit de cette ligne sans se soucier de quelle classeur, feuille ou cellules actifs

Code:

---

Thisworkbook.worksheets("Feuil4").range("A1:B5").clearcontents

---

Quand on est en présence d'un seul classeur, il suffit de cette ligne sans se soucier de quelle feuille ou cellules actives

Code:

---

worksheets("Feuil4").range("A1:B5").clearcontents

---

Sur le fond, ok, je pense comprendre, mais je ne suis pas sûr d'avoir tout compris de la pratique.

Imaginons que j'ai trois classeurs ouverts : ClaA, ClaB, ClaC
Dans chaque classeur, une feuille, dont le nom est identique : Feuil1

Je veux effacer les données la plage A1:B5 de Feuil1, dans les 3 classeurs

Pour reprendre votre code, je ferai grosso modo ceci

Code:

---

1 2 3 4 5

a = array(ClaA, ClaB,ClaC) ' je ne pense pas que c'est ainsi qu'il faut déclarer le tableau, mais c'est l'idée qui compte. for a = 1 to ubount(a) Thisworkbook.worksheets("Feuil1").range("A1:B5").clearcontents next

---

ou ceci

Code:

---

1 2 3 4

workbooks("ClaA").worksheets("Feuil1").range("A1:B5").clearcontents ' est-ce cela que vous appelez un 'adressage complet' ? workbooks("ClaB").worksheets("Feuil1").range("A1:B5").clearcontents workbooks("ClaC").worksheets("Feuil1").range("A1:B5").clearcontents

---

un Thisworkbooks.etc travaille sur le classeur activé non ? Je ne comprends pas très bien avec ce code, comment on peut passer d'un classeur à l'autre.

Le 2ème code est bon (dans la logique)

ThisWorkbook est LE classeur contenant le code.

Tiens, tiens, tu as oublié déjà F1

Sélectionne Thisworkbook et fais F1

F1 bien sûr.

Mémoire de poisson...

Merci pour les réponses. Je comprends mieux maintenant.

Je vais prendre cette habitude de l'adressage complet. Ca me semble effectivement plus sécure.

Bonne fin de journée