erreur d'exécution 9 l'indice n'appartient pas à la sélectio

Question

Bonjour à toutes et à tous ,

je travaille chaque semaine avec un fichier Excel contenant des macros VB .

Jusqu'à la semaine dernière nous étions dans un environnement avec Excel 2010 et nous sommes passés à Office 365 .

Mon fichier de base et mes fichiers annexes sont sur des partages réseau qui n'ont pas changés .

Après une toute petite adaptation pour travailler en mode 64 bits (ajout de Ptrsafe aux déclarations) , mon fichier s'ouvre sans souci .

Je lance ensuite ma macro et j'obtiens l'erreur "Erreur d'exécution 9 , l'indice n'appartient pas à la sélection " .

Je clique sur débogage et  la ligne incréminée est sheets(nomFeuilleProjet).select (voir le bout de code ci dessous) :

ActiveWindow.WindowState = xlMinimized

Windows(NomClasseurXls).Activate
    Sheets(NomFeuilleProjet).Select
    ChangeFilters NomFeuilleProjet
    
    Range(CalLetCol(1) & "4").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    
    Windows(Fichier).Activate
    If exportligne = "N" Then
        Sheets(NomFeuilleProjet).Select
       Else
        Sheets("Temp").Select
    End If
    Range(CalLetCol(1) & "4").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    If (exportligne = "E") Or (exportligne = "M") Then
        Sheets("Temp").Select
        ActiveCell.SpecialCells(xlLastCell).Select
        k = Mid(ActiveCell.Address, InStr(2, ActiveCell.Address, "$") + 1)
'        j = 4
'        Do Until Cells(j, 1) = ""
        For j = 4 To k
            NbIndex = 0
            For i = 1 To nbCol
                If exportligne = "M" Then
                    If tabconfig(ligneTraite, i, 2) = "E" Then
                        If Not IsEmpty(tabOpt(i, 1)) Then
                            nomtab(i) = Cells(j, i)
                        End If
                    End If

Si une bonne âme pouvait m'aider , je serais aux anges , en sachant que je ne suis en aucun cas programmeur ;) !

Merci d'avance .

Bruno

PS : si vous avez besoin du code complet ou du fichier excel contenant les différents codes , n'hésitez pas .

vb95 · Answer

Bonjour

Bizarre qu'il y a 2 fois cette ligne de code :

Sheets(NomFeuilleProjet).Select

Je pense que la première serait à supprimer .

un petit plus pour vos prochains posts : https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

Whismeril · Answer

Bonjour

pour poster ton code merci de faire comme décrit là https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

Quand ça plante, quel est le contenu de nomFeuilleProjet?

Cette feuille existe-t-elle dans le classeur?

tvnbebeKIHN · Answer

Bonjour et merci pour vos réponses .

Désolé de ne pas avoir déposer les lignes de code de la bonne manière , je saurai pour la prochaine fois ;) !

@vb95 : j'ai supprimé la 1ère ligne de code

Sheets(NomFeuilleProjet).Select

Mais le résultat reste le même ;( .

@Whismeril : Le contenu de nomFeuilleProjet est : "Projet" et cette feuille existe bel et bien dans le classeur .

Merci d'avance pour vos futures réflexions et à votre disposition pour vous aider .

Bruno

Whismeril · Answer

Merci de ne pas me citer avec @tvnbebeKIHN ça envoie un mail, or la discussion est déjà suivie, ça fait doublon.

Le contenu de nomFeuilleProjet est : "Projet" et cette feuille existe bel et bien dans le classeur .

On est d'accord que tu as espionné la variable au moment du crash?

tvnbebeKIHN · Answer

OK pour la citation , désolé ;) .

Pour la variable , au moment du crash , je clique sur le bouton débogage du message d'erreur, ce qui m'ouvre le code en m'indiquant en jaune la ligne incriminée .

En passant ma souris dessus j'obtiens "projet" comme contenu .

Si ce n'est pas la bonne manière d'obtenir l'info souhaité , merci de me dire comment faire , car c'est la seule façon que je connaisse ; )

Merci

vb95 · Answer

Bonjour

La ligne qui cause l'erreur : c'est la 4 ou c'est la 13 ( voir le premier message ) ?

tvnbebeKIHN · Answer

C'est la 13 qui est pointée en jaune lors du débogage .

Merci

Whismeril · Answer

C'est la bonne méthode.

A la ligne tu actives un autre fichier, que celui qui est activé en ligne 3.

Dans ce fichier, y a t il la feuille "projet"?

Attention, c'est peut-être sensible à la casse (y'a longtemps que je n'ai pas fait de vba).

Une fois tu écris "Projet", une autre "projet" et du coup ce serait 2 noms différents.

tvnbebeKIHN · Answer

Effectivement , un fichier d'archive est créé à partir de celui où je lance la macro .

Les 2 fichiers (origine et destination) ont une feuille nommée à l'identique "Projet" (avec "P" en majuscule) .

Et le contenu de la variable qui semble poser problème est bien également identique "Projet" .

Par acquis de conscience j'ai vérifié s'il n'y avait pas un blanc qui trainait de ci de là , mais rien non plus .

Je me permet de répéter au cas où , que cette macro fonctionne toujours avec Excel 2010 ;) !

Merci d'avance

Bruno

Whismeril · Answer

Et si tu écris "Projet" en dur?

tvnbebeKIHN · Answer

Voici ce que j'ai écrit pour mettre en dur la variable : NomFeuilleProjet = "Projet" (j'espère ne pas m'être trompé)

J'ai ensuite relancé la macro qui s'est arrêtée avec l'erreur d'exécution 1004  :

La Méthode Pastespecial de la classe  Range a échouée .

Il pointe en jaune alors la ligne :

selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

La valeur de xlPasteAll est de -4104

Whismeril · Answer

Selon la doc, les paramètres de PasteSpecial sont facultatifs, et comme tu as mis les paramètres par défaut tu peux essayer sans.

Une autre option peut être d'utiliser l'enregistreur de macro de sélectionner une zone dans un fichier et la coller dans un autre pour voir s'il y a des différences de syntaxe avec 365.

Whismeril · Answer

Si tu as mis toute la fonction en commentaire, ça ne va plus copier.

C'est les paramètres qui sont facultatifs.

Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

tvnbebeKIHN · Answer

Désolé , mes connaissances sont maigres en VB ;( !

J'ai fait ce que tu m'as dit (juste mis en commentaire (Selection.PasteSpecial) , mais j'obtiens le même résultat que précédemment ;( (POST 13) .

désolé ...

Bruno

Whismeril · Answer

Laisse le pastespecial, sans rien derrière (enlève les instructions que j'ai postées en #14)

tvnbebeKIHN · Answer

C'est exactement ce que j'avais fait initialement , j'avais uniquement laissé Selection.Pastespecial et virer les paramètres derrière ;) !

J'ai retenté au cas où et j'obtiens toujours l'erreur d'exécution 91 décrite dans le POST 13 ...

Whismeril · Answer

Ah

J'ai mis en commentaire la fonction facultative

était trompeur, la.fonction tu l'avais gardée en fait.

dans le.message #13, on dirait que la ligne

' Set w = Worksheets(feuille)

est commentée, si c'est bien le cas, il n'y a rien de w quand tu veux accéder à ses propriétés.

Il faudrait dêcommenter.

Pour tes prochains posts, pense à forcer le langage Basic pour la coloration, comme décrit ici https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

dysorthographie · Answer

Bonjour,

Quand une application fonction depuis un certain temps et qu'elle se met à déconner après un évolution de version, windows et/ou Excel, je me dis qu'il s'agit d'un problème environnementale !

Certe il faut vérifier la déclaration des API, mais également le chemin des libraires utiliser dans les références du projet VBA.

En effet le chemin de ces DLL est embarqué dans le projet VBA. Par exemple visuel Basic For Application devait ce trouver dans "programme file (X86)" et maintenant dans "programme file wo64.

Dans VBA=>menu=>outils=>références

Supprimes si il en a les librairies manquantes!

tvnbebeKIHN · Answer

Bonjour et merci Dysothographie ,

j'ai ouvert les références comme tu l'as si bien décrit dans ton message et voici les 5 références cochées

Chacune d'elle renvoi vers un fichier qui après vérification existe bien sur mon PC .

Par contre , tu marques "Supprime les librairies manquantes" et là je ne comprends pas ...

Pourrais tu STP me donner un peu plus de détails STP ?

Merci d'avance

dysorthographie · Answer

De toutes évidence tu n'a pas de librairie manquente car tu verrais le nom de la librairie avec la précision manquante.

Ça arrive souvent quand les versions évoluent.

tvnbebeKIHN · Answer

OK , merci pour la précision . Du coup j'ai compris ce que tu voulais me dire ;) .

Maintenant , ça ne fait pas évoluer mon problème , mais merci quand même .

ravida_7062 · Answer

Hello Bruno,

The error message "Runtime error 9, subscript does not belong to selection" typically occurs when you try to access an array element, worksheet or workbook that does not exist or is out of range. In your case, it seems that the error is caused by the line Sheets(ProjectSheetName).Select, where ProjectSheetName may not refer to a valid worksheet name.

To debug this issue, you can try the following steps:

Check the value of the variable ProjectSheetName before the Sheets(ProjectSheetName).Select line is executed. Make sure it is a valid worksheet name.

Check if the worksheet name is spelled correctly and if it matches the name in your Excel file. Note that worksheet names are case-sensitive.

Check if the worksheet is currently active. If it is not active, you may need to activate it before selecting it.

Check if the worksheet exists in the workbook. You can use the Worksheets.Exists method to determine if the worksheet exists in the workbook.

Here's an example of how you can modify your code to check if the worksheet exists before selecting it:

' Check if the worksheet exists before selecting it
If Not Worksheets.Exists(ProjectSheetName) Then
    MsgBox "Worksheet " & ProjectSheetName & " does not exist!", vbCritical
    Exit Sub
End If

' Activate and select the worksheet
With Worksheets(ProjectSheetName)
    .Activate
    .Select
End With

This code will first check if the worksheet exists before activating and selecting it. If the worksheet does not exist, it will display an error message and exit the sub.

I hope this helps you to resolve your issue. If you have any further questions or if the issue persists, please let me know.

Erreur d'exécution 9 l'indice n'appartient pas à la sélectio

22 réponses

Votre réponse

Discussions similaires