Erreur d'execution 9, l'indice n'appartient pas à la sélection
Résolu/Fermé
papish_4732
Messages postés
28
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
22 juin 2021
-
7 juin 2021 à 11:37
papish_4732 Messages postés 28 Date d'inscription lundi 7 juin 2021 Statut Membre Dernière intervention 22 juin 2021 - 9 juin 2021 à 12:39
papish_4732 Messages postés 28 Date d'inscription lundi 7 juin 2021 Statut Membre Dernière intervention 22 juin 2021 - 9 juin 2021 à 12:39
A voir également:
- Erreur d'execution 9 vba
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Erreur 1001 outlook - Accueil - Bureautique
- Find vba - Astuces et Solutions
- Instagram une erreur s'est produite ✓ - Forum Instagram
3 réponses
yg_be
Messages postés
23474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 février 2025
Ambassadeur
1 568
7 juin 2021 à 12:55
7 juin 2021 à 12:55
bonjour,
à quelle ligne as-tu l'erreur?
le plus souvent, c'est parce que tu donnes un nom incorrect dans Workbooks ou dans Sheets.
tu peux aussi découper les longues instructions pour arriver à déterminer plus précisément où est l'erreur.
à quelle ligne as-tu l'erreur?
le plus souvent, c'est parce que tu donnes un nom incorrect dans Workbooks ou dans Sheets.
tu peux aussi découper les longues instructions pour arriver à déterminer plus précisément où est l'erreur.
papish_4732
Messages postés
28
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
22 juin 2021
9 juin 2021 à 11:55
9 juin 2021 à 11:55
Merci vraiment l'erreur se situait au niveau du nom du classeur c'était "Types actes.xlsx".
Mais il y a toujours une erreur cette fois ci au niveau de la ligne 8 : Workbooks("Sinistres_par_actes_052021.xlsm").Sheets("LSENEGAL_SGPCPSI").Cells(i, 2) <> " "
Erreur définie par l'application ou par l'objet
Sub recherchev()
Dim i As Double
Dim wb As Workbook, fl As Worksheet
Set wb = Workbooks("Type actes.xlsx")
Set fl = wb.Sheets("Feuil1")
Set maplage = fl.Range("A:B")
Do While Workbooks("Sinistres_par_actes_052021.xlsm").Sheets("LSENEGAL_SGPCPSI").Cells(i, 2) <> " "
Cells(i, 57) = Application.VLookup(Cells(i, 3).Value, maplage, 2, False)
i = i + 1
Loop
End Sub
Merci cordialement !
Mais il y a toujours une erreur cette fois ci au niveau de la ligne 8 : Workbooks("Sinistres_par_actes_052021.xlsm").Sheets("LSENEGAL_SGPCPSI").Cells(i, 2) <> " "
Erreur définie par l'application ou par l'objet
Sub recherchev()
Dim i As Double
Dim wb As Workbook, fl As Worksheet
Set wb = Workbooks("Type actes.xlsx")
Set fl = wb.Sheets("Feuil1")
Set maplage = fl.Range("A:B")
Do While Workbooks("Sinistres_par_actes_052021.xlsm").Sheets("LSENEGAL_SGPCPSI").Cells(i, 2) <> " "
Cells(i, 57) = Application.VLookup(Cells(i, 3).Value, maplage, 2, False)
i = i + 1
Loop
End Sub
Merci cordialement !
yg_be
Messages postés
23474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 février 2025
1 568
9 juin 2021 à 12:10
9 juin 2021 à 12:10
je pense préférable de déclarer i comme
long, et de lui assigner une valeur.
papish_4732
Messages postés
28
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
22 juin 2021
>
yg_be
Messages postés
23474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 février 2025
9 juin 2021 à 12:25
9 juin 2021 à 12:25
Super ca marche merci bien ca fait la recherche entre les deux classeurs !
Bonne fin de journée !
Bonne fin de journée !
yg_be
Messages postés
23474
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
19 février 2025
1 568
>
papish_4732
Messages postés
28
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
22 juin 2021
9 juin 2021 à 12:25
9 juin 2021 à 12:25
parfait! peux-tu alors marquer la discussion comme résolue?
papish_4732
Messages postés
28
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
22 juin 2021
9 juin 2021 à 12:39
9 juin 2021 à 12:39
C'est fait merci !
7 juin 2021 à 16:50
l'erreur se trouve au niveau de cette ligne: Set maplage = Workbooks("Type actes.xls").Sheets("Feuil1").Range("A:B")
Merci cordialement !
7 juin 2021 à 17:47
tu peux aussi découper les longues instructions pour arriver à déterminer plus précisément où est l'erreur.