Erreur d'execution 9, l'indice n'appartient pas à la sélection [Résolu]

Signaler
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021
-
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021
-
Bonjour, quelqu'un pourrait-il m'aider sur cette erreur
Voila le programme :

Sub recherchev()
Dim maplage As Range
Dim i As Long
i = 2
Set maplage = Workbooks("Type actes.xls").Sheets("Feuil1").Range("A:B")
Do While Cells(i, 2) <> ""
Cells(i, 57) = Application.VLookup(Cells(i, 3).Value, maplage, 2, False)
i = i + 1
Loop
End Sub

3 réponses

Messages postés
15960
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021
866
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.
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021

Bonjour ,
l'erreur se trouve au niveau de cette ligne: Set maplage = Workbooks("Type actes.xls").Sheets("Feuil1").Range("A:B")
Merci cordialement !
Messages postés
15960
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021
866 >
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021

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.
dim wb as workbook, fl as worksheet
Set wb = Workbooks("Type actes.xls")
Set fl = wb.Sheets("Feuil1")
Set maplage = fl.Range("A:B")
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021

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 !
Messages postés
15960
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021
866
je pense préférable de déclarer i comme
long
, et de lui assigner une valeur.
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021
>
Messages postés
15960
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021

Super ca marche merci bien ca fait la recherche entre les deux classeurs !
Bonne fin de journée !
Messages postés
15960
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
9 juin 2021
866 >
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021

parfait! peux-tu alors marquer la discussion comme résolue?
Messages postés
5
Date d'inscription
lundi 7 juin 2021
Statut
Membre
Dernière intervention
9 juin 2021

C'est fait merci !