Macro if

[kristof]

Bonjour le forum,

Je vous présente mon problème:
Je souhaite tester les valeurs d'une cellule (A1):
Les valeurs en A1 sont des nombres mais également du texte. Si c'est du texte la valeur est unique et égale à '< LD'.
La macro que je voudrai écrire doit réaliser le test suivant :
SI en A1 on a une valeur numérique < 1 ou la valeur texte '< LD' alors écrire en A2 la conclusion N°1 sinon écrire en A2 la conclusion n°2.

Merci pour votre aide,

Kristof

 

[globinours]

Salut kristof,

tu peux essayer ça:

Sub test()
If Cells(1, 1) = '<LD' Or Cells(1, 1) < 1 Then Cells(2, 1) = 'conclusion1' Else Cells(2, 1) = 'conclusion2'
End Sub

 

[kristof]

Merci pour ton aide.

En fait j'ai oublié le plus important dans la difficulté pour moi d'écrire cette macro c'est que sur le même principe du test de la cellule A1 je souhaite également tester les valeurs B1 et les valeurs C1 et ensuite conclure. Exemple :

Si (A1 = '< LD' ou < 1) ET (B1='< LD' OU< 1) ET (C1='< LD' OU< 1)alors A2= Conclusion1 sinon Conclusion 2

Merci,

kristof

 

[globinours]

Alors ce serait plus ça:

Sub test()
If (Cells(1, 1) = '<LD' Or Cells(1, 1) < 1) And _
(Cells(1, 2) = '<LD' Or Cells(1, 2) < 1) And _
(Cells(1, 3) = '<LD' Or Cells(1, 3) < 1) Then Cells(2, 1) = 'conclusion1' Else _
Cells(2, 1) = 'conclusion2'
End Sub

 

[kristof]

Juste une histoire de parenthèse.
Merci pour cette rapide réponse.

kristof