Vba recherchev + Si

[fileofish]

Bonjour le forum

Et comme il n'est pas encore trop tard bonne année et merci pour votre aide apportée toute au long de l'année

Je cherche à imbriquer une fonction recherchev + si
N'ayant pas réussi j'ai essayé de le faire en 2 fois mais ca ne fonctionne pas !!

La chose que je souhaite faire est la suivante:
- si une valeur est reconnue parmi une plage de données alors il continue la macro sinon va à Stop Macro

J'ai donc défini xformula la macro ne bloque pas la dessus (1ère et 2ème ligne)
Mais elle bloque sur la 3ème ligne "objet non défini" erreur 424

xformula = _
"=VLOOKUP('Sites'!R4C2,'Données Saiso'!R103C3:R139C3,1,0)"
If xformula.Value <> Range("B4").Value Then GoTo Stopmacro


Quelqu'un aurait -il une solution
Merci
Filou

 

[fileofish]

Petite question

Savez vous si il y a une erreur dans le code ou si il s'agit d'une variable non déclarée ?(car pour info je n'ai pas déclaré de variable)?
Bonne soirée
Filou

 

[fileofish]

Bonjour tout le monde,
Je reste toujours bloqué ! Si quelqu'un avait un petit élément de réponse ca serait top
Merci encore

 

[gosselien]

Bonjour,

sans fichier...

P.

 

[fileofish]

Bonjour Gosselin,

Effectivement !
J'ai récré mon cas dans le fichier joint (car il y avait des ouvertures d'autres fichiers ).

Quand je lance la macro dans le fichier joint j'ai le même bug que sur mon fichier
Dans le fichier joint Il y a 3 onglets
(Entrée ; Liste ; Sortie )

=> Si la cellule C3 de l'onglet Entrée est comprise dans l'onglet Liste alors tu exécute une action sinon une autre


Merci
Philippe

 

[gosselien]

re,

pour ma part je nomme la cellule C3 "ZAZA" par facilité et la liste où chercher "LISTE" et puis:
dim xFormula
xFormula = Application.VLookup([zaza], [liste], 1, 0)

P.

 

[fileofish]

Merci Gosselin,
J'ai essayé mais il y a quelque chose qui bloque peux tu stp regarder et me dire.
Merci
Philippe

 

[gosselien]

re,

tu dois apprendre tout d'abord comment on nomme une cellule ou une liste et l'avantage de le faire
Ensuite regarde ici avec les cellules / listes nommées justement
P.

 

[fileofish]

Merci Gosselin !!
Pour ce qui est des plages je sais les nommer sur Excel en VBA pas trop je suis en train de regarder des posts là dessus
Bonne après midi
Filou

 

[fileofish]

Gosselin,
J'ai une autre question lorsque l'on fait des vlookup sur des classeurs ouverts différents
ca donnerait quoi en utilsant ton exemple:
xFormula = Application.VLookup([zaza], [liste], 1, 0)

xFormula = Application.VLookup(windows("Classeur1").Sheets("Feuil1").[zaza], windows("Classeur2").Sheets("Feuil1").[liste], 1, 0)

 

[fileofish]

Bonsoir le forum,
Je crois que Gosselin m'a oublié
Du coup quelqu'un d'autre connaîtrait-il la réponse?
Bonne soirée