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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Dolichotis
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

Dolichotis

XLDnaute Occasionnel
Bonjour !

Je viens de faire ma première vraie macro et là quand je l'exécute : erreur d'exécution 9 : l'indice n'appartient pas à la sélection.

Cette macro permet de prendre les informations dans une base de données et de les mettre dans l'outil pour permettre le calcul.
Je mets le bout de code...

Code: 
Sub Ajout_composant()
' ajout_comp Macro
' Macro enregistrée le 07/05/2008 par
    Range("A21:I21").Select
    Selection.Copy
    Rows("21:21").Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub


Private Sub CommandButton2_Click()
'déclaration des variables
Dim i As Integer
Dim j As Integer
Dim DerL As Integer
Dim Nombrecomposants As Integer

'initialisation des variables
DerL = Workbooks(" essaiBase.xls ").Sheets("CI").Range("A" & (Feuil1.Rows.Count)).End(xlUp).Row

For i = 3 To DerL
    Workbooks.Open Filename:="X:\Real\essaiBase.xls"

    Windows("essaiOutil.xls").Activate
    Nombrecomposants = DerL - i + 1
    
for j=1 to Nombrecomposants
        Call Ajout_composant
next j

    If (Workbooks("essaiBase.xls").Sheets("alpha").Range("B" & i) = Workbooks("essaiOutil.xls").Sheets("alpha").Range("C5")) Then
        Range("A" & i, "B" & DerL).Select 'a verifier
        'si code AD de l'outil = code AD de la base
        
        Selection.Copy
        Range("B" & (i + 2)).Select
        ActiveSheet.Paste

        Windows("essaiBase.xls").Activate
        Range("C" & i, "B" & DerL).Select 'a verifier
        Selection.Copy

        Windows("essaiOutil.xls").Activate
        Range("F" & (i + 2)).Select
        
        ActiveSheet.Paste
        Windows("essaiBase.xls").Activate
    End If
    
Next

ActiveWorkbook.Save
ActiveWindow.Close

End Sub


Merci de votre aide !
 
Dernière édition:
Trier par date Trier par votes
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

Bonjour Dolichotis,

A tester :
Remplacer :
Code: 
'initialisation des variables
DerL = Workbooks(" essaiBase.xls ").Sheets("CI").Range("A" & (Feuil1.Rows.Count)).End(xlUp).Row
par
Code: 
'initialisation des variables
DerL = Workbooks("essaiBase.xls").Sheets("CI").Range("A" & (Feuil1.Rows.Count)).End(xlUp).Row

J'ai enlevé les espaces devant le nom du classeur car plus bas dans ta procédure, il n'y a pas d'espace.

Si cela ne change rien, peux-tu joindre un extrait de ton fichier ?
 
Vote positif 0 Vote négatif
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

J'ai besoin d'une info complémentaire.
Quelle est la ligne de code VBA sur laquelle l'erreur se produit (ligne normalement en jaune) ?

Dans le fichier joint, j'ai cette ligne de code :
Code: 
    DerL = Workbooks("BaseDonnees.xls").Sheets("CI").Range("A" & (Feuil1.Rows.Count)).End(xlUp).Row
Que contient le classeur "BaseDonnees.xls" ? Existe t-il dans ce classeur une feuille nommée "CI" ?

Merci
 
Dernière édition:
Vote positif 0 Vote négatif
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

Bonjour !

Désolée pour vendredi, j'ai du partir un peu rapidement. Par contre, j'avais fait des modifications mais elles n'apparaissent pas dans ce fichier, j'ai peut-être oublié d'enregistrer avant d'attacher le fichier. J'ai refait des modifs ce matin
Dans essaiBase, il y a seulement les éléments à transmettre dans l'essaiOutil. Pas de code. J'ai essayé de compresser deux fichiers excel ensemble, ca ne fonctionne pas.

Je te renvoie le fichier essaiOutil modifié. Encore merci de ton aide.
 
Vote positif 0 Vote négatif
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

Merci beaucoup cbea !

Je viens de tester ton programme (entre la pause déjeuner et une réunion, je viens tout juste de m'y mettre) ça marche impecc' !

Il y a juste un petit problème : quand j'appuie sur le bouton chargerParamètres, ça exécute la macro correctement (j'ai vérifié en rouvrant) mais la fenêtre excel se ferme tout de suite après. Alors que j'aimerais seule la Essaibase se ferme. EssaiOutil resterait ouvertEt aussi que la mise en forme des cellules concernées n'est pas conservée.

Je vais essayer de voir si je peux modifier la macro en conséquence.
 
Vote positif 0 Vote négatif
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

Dans la procédure "CommandButton2_Click", tu enlèves la ligne :
Code: 
wbOutil.Close

Concernant la mise en forme, peux-tu me donner un exemple ?

Merci
 
Vote positif 0 Vote négatif
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

cbea à dit:
Dans la procédure "CommandButton2_Click", tu enlèves la ligne :
Code: 
wbOutil.Close

Concernant la mise en forme, peux-tu me donner un exemple ?

Merci
Cliquez pour agrandir...

Merci pour la précision !

Peut-être que ça n'est pas le mot juste, je veux dire les bordures qui délimitent les cellules (pour rester dans un tableau).
En fait, c'est dans la procédure ajout_composant, je l'avais faite avec l'enregistreur de macro. Quand j'avais testé il me semble qu'elle marchait, maintenant, elle ne copie que le contenu des cellules et non le style des bordures (par exemple)
 
Vote positif 0 Vote négatif
Re : erreur d'exécution 9 : l'indice n'appartient pas à la sélection

Peux-tu faire un essai en rajoutant les lignes notées en rouge ?

Code: 
...

' Copier les valeurs de essaiBase dans essaiOutil
wsBase.Range("A" & CellBase.Row & ":B" & CellBase.Row).Copy
wsOutil.Range("A" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
[COLOR="red"]wsOutil.Range("A" & Lig).PasteSpecial Paste:=xlPasteFormats[/COLOR]Application.CutCopyMode = False
            
wsBase.Range("C" & CellBase.Row & ":G" & CellBase.Row).Copy
wsOutil.Range("D" & Lig).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
[COLOR="Red"]wsOutil.Range("D" & Lig).PasteSpecial Paste:=xlPasteFormats[/COLOR]
Application.CutCopyMode = False

...
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

R
  • Question Question
Microsoft 365 Erreur d'exécution '9': L'indice n'appartient pas à la selection
Réponses
1
Affichages
417
ChTi160
ChTi160
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
221
sylvanu
sylvanu
PORCHER
  • Question Question
Microsoft 365 L'indice n'appartient pas à la sélection
Réponses
8
Affichages
676
TooFatBoy
TooFatBoy
A
  • Résolu(e)
XL 2019 L'indice n'appartient pas à la sélection
Réponses
2
Affichages
338
Afro
A
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
196
dysorthographie
dysorthographie
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
1 K
pelerin65
P
ph.vanne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
496
ph.vanne
ph.vanne
F
  • Question Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
782
job75
job75
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
490
Chaton77
Chaton77
D
  • Question Question
Microsoft 365 Problème avec la fonction publishobjects
2 3
Réponses
37
Affichages
417
jurassic pork
jurassic pork
Cédric06400
  • Résolu(e)
Microsoft 365 Déplacement Shape
Réponses
2
Affichages
242
Cédric06400
Cédric06400
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
618
Compte Supprimé 979
C
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
458
Oneida
Oneida
halecs93
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
1 K
halecs93
halecs93
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
job75
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
803
jebibo
J
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Erreur d'exécution "50289"
2
Réponses
23
Affichages
1 K
chaelie2015
chaelie2015
pmfontaine
  • Question Question
Microsoft 365 Erreur d'exécution 5 argument ou appel de procédure incorrect avec ActiveSheet.ChartObjects.Add()
Réponses
12
Affichages
720
pmfontaine
pmfontaine
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
508
Francky79
F
E
  • Question Question
Microsoft 365 Erreur: L'indice n'appartient pas à la sélection
Réponses
11
Affichages
2 K
Excellearning
E
Retour