Creer une macro avec la condition "si" et "et"

[chnook]

Bonjour à tous,

J'ai créer la macro suivante (1) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E14") = "dimensionnement incorrect" Then Call correction
End Sub

Avec :
E14 correspondant à une valeur rentrée par l'utilisateur
Correction correspondant à la macro suivante (2):
Sub correction()
MsgBox "Le dimensionnement est incorrect. Pour répondre à ce problème vous pouvez jouer sur les paramètres suivants : la HAUTEUR (D), la BASE (b) ou les techniques de mise en oeuvre du pieu. Mais modifier les dimensions entraînera un dimensionnement correct plus facilement et plus rapidement"
End Sub

Sauf que je voudrais que la macro (1) fonctionne lorsque ("E14") = "dimensionnement incorrect" ET que E13 soit différent de 0

E13 correspondant à une cellule dont le contenue est renseigné par l'utilisateur.

Je pensais utiliser "if" et "and" mais je ne sais pas faire du tout.
Si quelqu'un peut m'aider ou me proposer autre chose ça sera génial !!!
Merci d'avance
J'espère que tout est claire

 

[JNP]

Re : Creer une macro avec la condition "si" et "et"

Bonjour Schnook 🙂,
Euh, la réponse est contenue dans la question 🙄...

If Range("E14") = "dimensionnement incorrect" And Range("E13") <> 0 Then Call correction

Pour info, Call est facultatif et ne sert qu'à expliciter le code 🙄.
Bon WE 😎