mromain : Ta formule fonctionne
RENAUDER : Désolé ça n'a pas fonctionné (possible que j'ai oublié de redémarrer car la variable est public à partir d'un autre fichier.)
Etienne2323 : Non seulement elle fonctionne mais la plus courte et la plus simple.
Dim OngletVers$
OngletVers = IIf((Cells(6, 3) = 135) Or (Cells(6, 3) = 440) Or (Cells(6, 3) = 420), "FPEA", "Données")
MsgBox OngletVers
La même avec With/End With
Code:
Sub v2()
Dim OngletVers$
With Cells(6, 3)
OngletVers = _
IIf((.Value = 135) Or (.Value = 440) Or (.Value = 420), _
"FPEA", "Données")
End With
MsgBox OngletVers
End Sub