Vba excel erreur objet requis

Résolu/Fermé
amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019 - 19 juil. 2017 à 13:07
amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019 - 30 juil. 2017 à 11:33
Bonjour,

VOICI MA MACRO
excel me renvie erreur de compilation , objet requis sur la ligne set my range
Priere m'aider
Merci



Sub recherche()
'ALE = Application.WorksheetFunction.VLookup(compte, myRange, 2, False)

Sheets("Feuil2").Select


Dim LastRow As Long
Dim myrange As String
Dim i As Integer
Dim Région As Sheets


LastRow = Feuil2.Range("c" & Rows.Count).End(xlUp).Row

Set myrange = Feuil3.Range("D3:E298")

'la boucle

For i = 2 To LastRow
Cells(i, 3) = Application.WorksheetFunction.VLookup(Cells(i, 3), myrange, 2, False)

Next i



End Sub

1 réponse

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
19 juil. 2017 à 15:43
Bonjour,

avec Set myrange = Feuil3.Range("D3:E298")
tu utilises le codename de la feuille et non son nom.
C'est sheets("nom de ta feuille").xxx pour utiliser le nom

Regarde ton projet tu as tes feuilles listée sur ce modèle :
codename (nom de la feuille)
Feuil3 n'existe peut-être pas mais tu vas peut-être trouver :
Feuil5 (Feuil3)
le feuille nommée "Feuil3" a pour codename Feuil5
0
amo-51 Messages postés 94 Date d'inscription mercredi 21 septembre 2016 Statut Membre Dernière intervention 3 novembre 2019
20 juil. 2017 à 10:52
bonjour;

où trouver le codename, je viens de voir mon projet, il s'agit bien de feuil3 sur le masque

merci de m'aider
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
Modifié le 20 juil. 2017 à 12:01
Bonjour,

où trouver le codename
Ben je t'ai expliqué non ?
Regarde ton projet tu as tes feuilles listée sur ce modèle :
codename (nom de la feuille)


Avec Set myrange = Feuil3.Range("D3:E298") vu que Range("D3:E298") ne peut qu'exister, l'erreur ne peut être que sur Feuil3 qui n'existe pas pour vba
0