XL 2019 If then valeur

natorp

XLDnaute Barbatruc

• 18 Août 2020

• #2

Bonjour bennp

en F1 :

VB:

=CNUM(GAUCHE(A1;2))

Cordialement, Gérard

 

Vote positif 0 Vote négatif

B

bennp

XLDnaute Occasionnel

• 18 Août 2020

• #3

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

VB:

Sub site()

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

 

Vote positif 0 Vote négatif

natorp

XLDnaute Barbatruc

• 18 Août 2020

• #4

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

Cordialement, Gérard

 

Vote positif 0 Vote négatif

B

bennp

XLDnaute Occasionnel

• 18 Août 2020

• #5

Oui exact Merci 🙂

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 18 Août 2020

• #6

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 :

VB:

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 :

VB:

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

 

Vote positif 0 Vote négatif