Vba excel erreur objet requis [Résolu/Fermé]

Signaler
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019
-
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019
-
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

Messages postés
23452
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
2 septembre 2020
6 325
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
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019

j'ai bien lu vos instructions

mais ce n'est pas ce que je veux obtenir

je veux laisser la feuille libre pour toute modification possible sauf pour les colonnes C, i , k & L

si vous vous souvenez bien ces colonnes reçoivent le résultat de vlookup

merci de m'orienter
>
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019

 
Regarde cette instruction (que j'avais indiquée) :
Range("C:C, I:I, K:L").Columns.Locked = True

Ça fait que toutes les cellules des colonnes C, I, K, L sont verrouillées => après
protection de la feuille, elles sont toutes non modifiables par l'utilisateur, et
donc tes résultats de VLookup() seront bien protégés de tout écrasement
accidentel ; si tu veux que toutes les autres cellules soient modifiables :

Feuil6.Unprotect
Cells.Locked = False  ' déverrouille toutes les cellules
Range("C:C, I:I, K:L").Columns.Locked = True
Feuil6.Protect
 
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019

merci c'est bon
vous un très bon coach
Messages postés
11974
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
2 septembre 2020
679 >
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019

bonjour, peux-tu marquer cette discussion comme résolue?
Messages postés
94
Date d'inscription
mercredi 21 septembre 2016
Statut
Membre
Dernière intervention
3 novembre 2019

ok