Problème débogage macro

Bonjour à tous

J'ai récupérer un fichier Excel avec une macro qui coince, mais ça fait longtemps je l'avoue que je n'ai pas touché à VBA.

L'erreur est du type :

Citation:

---

Erreur d’exécution 9 : l'indice n'appartient pas à la sélection

---

Après avoir parcouru le code, il semblerait que la problème se pose dans cette partie du code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Set WkForm = Worksheets("ressources_complete")   Selection.Clear Sheets("ressources_complete").Activate Application.CutCopyMode = False Rows("9:9").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove WkForm.Rows("5:5").Select Selection.Copy WkForm.Rows("9:9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

Avez-vous une petite idée d'où pourrait venir l'erreur ?

Merci d'avance pour tous vos conseils !!!

Bonjour,
Lorsqu'une erreur s'enclenche, la ligne où a lieu l'erreur est mise en évidence en jaune.
Quelle est cette ligne ?

A part la première ligne, je ne vois pas ce qui pourrait être hors indice dans ce code.
Essaye de remplacer ton "ressources_complete" par le numéro d'ordre de l'onglet de ta feuille.

Pas sûr qu'un PasteSpecial sur toute une colonne soit très judicieux.

Je ne pense pas que ça règlera ton problème mais Rows("5:5") n'est pas une bonne syntaxe. Il est plus simple d'écrire Rows(5).

Et laisse tomber les Select qui alourdissent ton code et ralentisse l'exécution.

Ton code serait mieux ainsi :

Code:

---

1 2 3 4 5 6

Selection.Clear Sheets("ressources_complete").Activate Application.CutCopyMode = False Rows(9).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows(5).Copy Rows(9).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

---

Merci

J'ai testé votre code Menhir, mais sans succès. Pas de nouvelle erreur mais pas de changement, toujours la même erreur "9".

La ligne en jaune est la ligne qui précède le code que j'ai cité, celle-ci :

Code:

---

Set WkForm = Worksheets("ressources_complete")

---

Any idea ?

Bonjour,
La feuille ressources_complete existe-t-elle dans le classeur actif ?
Il est plus prudent de toujours donner l'ensemble de la filiation des objets Classeur.Feuille.Cellule
Soit par exemple si la feuille est dans le classeur où se trouve le code VBA

Code:

---

Set WkForm = ThisWorkbook.Worksheets("ressources_complete")

---

Citation:

---

Envoyé par Menhir

Je ne pense pas que ça règlera ton problème mais Rows("5:5") n'est pas une bonne syntaxe.

---

:nono: Écriture correcte aussi

Non la feuille ressources_complete n'existe pas dans le classeur.

Qu'en pensez-vous ?

Bonjour,
Et toi qu'en penses-tu ?
Si tu demandes à VBA de référencer un objet qui n'existe pas, il t'envoie un message d'erreur. Normal non ?

Tout-à-fait, c'est ce que j'ai immédiatement testé, en renommant ! Effectivement il n'y a plus de bugs, mais ça ne se comporte pas non plus exactement comme prévu.

Je disais cela car ça aurait pu être une création d'onglet (mais effectivement en y réfléchissant et en observant le code : non).

Quoi qu'il en soit, il me semble que vous m'ayez mis sur une bonne piste ! Merci !

Je continue à fouiller et reviendrai !

Bon et bien il semble que ce soit résolu, merci pour vos conseils !

Effectivement, en renommant directement l'onglet, et non pas en changeant simplement le nom dans le code, car le nom est utilisé ailleurs dans le code, et bien c'est OK !

En fait quelqu'un avait renommé un onglet utilisé dans le code...

Merci !!!

Bonjour,
Pour éviter que ton code soit perturbé par le fait qu'un utilisateur modifie le nom d'une feuille, je te conseille d'utiliser la propriété CodeName de la feuille.