XL 2019 If then valeur

[bennp]

Bonjour à tous,
je n'arrive pas à faire fonctionner ma macro :

Sub site()

If Feuil1.Range("F1").Value = Feuil1.Range("G1").Value Then
MsgBox "bon"
Else: MsgBox "pas bon"
End If
End Sub

Une des valeur est issue d'une formule Gauche(A1;2)

quelqu'un peut m'aider svp ?

Merci d'avance

 

[natorp]

Bonjour bennp

en F1 :

=CNUM(GAUCHE(A1;2))

Cordialement, Gérard

 

[bennp]

Bonjour Gérard, merci pour ta réponse mais je ne comprends pas :

Sub site()

If CNUM(GAUCHE(A1;2)).Value = Feuil1.Range("G1").Value Then
MsgBox "bon"
Else: MsgBox "pas bon"
End If
End Sub

 

[natorp]

Re, c'est dans la feuille, en F1, qu'il faut mettre la formule

Cordialement, Gérard

 

[bennp]

Oui exact Merci

 

[soan]

Bonjour,

Attention au signe deux-points qui est juste à droite du Else ; ça signifie : « Sinon rien » ; et MsgBox "pas bon" aurait dû être en dessous, comme suit :

Sub site()
  If Feuil1.Range("F1").Value = Feuil1.Range("G1").Value Then
    MsgBox "bon"
  Else
    MsgBox "pas bon"
  End If
End Sub

D'autre part, cette sub pourrait être optimisée ainsi :

Sub site()
  MsgBox IIf(Feuil1.[F1] <> Feuil1.[G1], "pas ", "") & "bon"
End Sub

Mais tout ceci est juste pour info puisque finalement, une formule suffit.

soan