IF ISNA VLOOKUP en VBA

Bonjour,

Je cherche à passer la formule suivante en VBA avec une variable sans utiliser l'enregistreur de Macro.

Code:

---

=IF(ISNA(VLOOKUP(G2;'CRITICAL-DOC'!A:A;1;0));"NO";"YES")

---

J'ai commencé avec le code suivant qui fonctionne bien pour le NO mais pas pour le YES (au lieu du YES, j'ai naturellement le résultat du VLOOKUP).

Code:

---

1 2 3 4 5 6

Dim i As Long, VL As Variant With Sheets("sheet1") i = .UsedRange.Rows.Count VL = Application.IfError(Application.VLookup(Range("G2:G" & i), Sheets("CRITICAL-DOC").Range("A:A"), 1, 0), "NO") Range("M2:M" & i) = VL End With

---

Je ne vois pas comment jouer sur la ligne Range("M2:M" & i) = VL pour obtenir YES en cas de succès du VLOOKUP...


J'ai essayé également la piste du IsError mais sans succès (j'obtiens YES dans toutes les cellules):

Code:

---

1 2 3 4 5 6 7

Dim i As Long, VL As Variant With Sheets("Sheet1") i = .UsedRange.Rows.Count VL = Application.VLookup(Range("G2:G" & i), Sheets("CRITICAL-DOC").Range("A:A"), 1, 0) If IsError(VL) = True Then Range("M2:M" & i) = "NO" Range("M2:M" & i) = "YES" End With

---

Si vous avez une piste, je suis preneur, car je n'arrive à sortir de ce code.

Merci de votre attention.

Cordialement,
Camzo

Bonjour
Déjà :
En notation anglaise (celle qu'utilise VBA), ce n'est pas le";", mais la ",", qui sépare les "propositions" de la formule.

Bonjour,

Effectivement, bien vu, pas explicité lors de la rédaction du post car mon Excel pro lockée sur mon PC de travail m'oblige à taper la formule EXCEL comme telle pour arriver à mes fins.:)

Camzo

Citation:

---

pas explicité lors de la rédaction du post car mon Excel pro lockée sur mon PC de travail m'oblige à taper la formule EXCEL comme telle pour arriver à mes fins.

---

Euh ... --->> Non
Car si ton Excel/travail est anglophone -->> la notation des formules l'est également :D

Bonjour Unparia,

Citation:

---

Car si ton Excel/travail est anglophone -->> la notation des formules l'est également

---

Pas vraiment.
On peut avoir une version anglaise d'excel et avoir comme séparateur d'argument un point virgule. Cela dépend des paramètres régionaux de Windows et pas de l'interface linguistique d'Excel.

@Camzo

Citation:

---

Je cherche à passer la formule suivante en VBA avec une variable sans utiliser l'enregistreur de Macro

---

Pour voir comment écrire la formule en VBA, je te conseille la lecture de ce billet Ecrire une formule dans Excel à l'aide d'une procédure VBA et pour passer un paramètre à une formule, la lecture de la suite Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)

Bonsoir Philippe,

Me voilà tout d'abord rassuré quant à ma version d'Excel. Je ne suis donc pas fou !

Merci enfin pour ces deux liens, ils m'ont été d'une grande aide. J'ai suivi pas à pas les instructions, de la formule dans la cellule jusqu'à l'obtention du code qu'il me faut, en passant par la fenêtre d'exécution de l'éditeur VBA.

Voici le code qui fonctionne parfaitement pour l'exemple cité plus bas:

Code:

---

1 2 3 4 5 6 7 8

Sub Test() Dim i As Long With Sheets("Sheet1") i = .UsedRange.Rows.Count Range("M2:M" & i).Formula = "=IF(ISNA(VLOOKUP(G2,'CRITICAL-DOC'!A:A,1,0)),""NO"",""YES"")" End With End Sub

---

Me voilà réconcilié avec le Formula précédemment utilisé avec l'enregistreur de macro (et oui, forcément, sans le R1C1 qui pollue pas mal visuellement et sans être obligé de coller du .Calculate afin que le VLOOKUP soit vraiment réalisé dans le cas où tu as bloqué tes options de calcul en manuel dans Excel, on s'y retrouve un peu mieux).

J'ai ajouté le code suivant pour que les formules soient remplacées par les valeurs.

Code:

---

1 2 3

Columns("M:M").Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

---

Côté performance, je n'ai pas constaté de temps de traitement conséquent. Rien à redire.

Ce sujet est résolu pour ma part. J'en suis ravi.

Bien à vous,
Camzo

Bonjour,

Citation:

---

J'ai ajouté le code suivant pour que les formules soient remplacées par les valeurs.

---

Il y a également une astuce pour remplacer des formules par leur résultat.
A lire ce billet VBA Excel – Comment remplacer des formules par leur résultat

Effectivement, cela est bien mieux car je retire encore un select et c'est plus performant.

Reste plus qu'à ajouter le bouton RESOLU (DEUX FOIS) :D

Camzo