Discussion :

[camzo]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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.

[camzo]

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

[unparia]

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

[Philippe Tulliez]

Bonjour Unparia,

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

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)

[camzo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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