Discussion :

[georgie2]

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 :

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 :

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

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 !!!

[Philippe Tulliez]

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

[Menhir]

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 :

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

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

[georgie2]

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 :

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

Set WkForm = Worksheets("ressources_complete")

Any idea ?

[Philippe Tulliez]

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 :

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

Set WkForm = ThisWorkbook.Worksheets("ressources_complete")

[mercatog]

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

Écriture correcte aussi

[georgie2]

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

Qu'en pensez-vous ?

[Philippe Tulliez]

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 ?

[georgie2]

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 !

[georgie2]

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 !!!

[Philippe Tulliez]

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.