Double condition "SI"

Bonjour,

j'ai la macro suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CheckBox1_Click()   End Sub   Private Sub OptionButton1_Click()   End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet Set ws = ActiveWorkbook.ActiveSheet If Not Application.Intersect(Target, ws.Range("F11,J11,N11,R11")) Is Nothing Then If ws.Range("F11,J11,N11,R11").Value > 0 Then CopierPlage ws End If End Sub

---

Je voudrais avoir une double condition :

j'ai

Code:

---

If ws.Range("F11,J11,N11,R11").Value > 0 Then CopierPlage ws

---

Je voudrais ajouter :

Code:

---

If ws.Range("I20").Value = "P" Then CopierPlage ws

---

Je ne sais pas faire.
Pourrier-vous m'aider ?
Merci d'avance,
Amicalement,
Lionel,

j'ai oublié de dire mais je pense que vous aurez compris, il s'agit de :

Si(ou(

Bonjour,
deux solutions me viennent spontanément, teste les :
ET (opérateur AND) :

Code:

---

If ws.Range("F11,J11,N11,R11").Value > 0 And ws.Range("I20").Value = "P" Then CopierPlage ws

---

OU (Opérateur OR) :

Code:

---

If ws.Range("F11,J11,N11,R11").Value > 0 Or ws.Range("I20").Value = "P" Then CopierPlage ws

---

bonjour
je suis d'accord avec la première solution
par contre celle la risque de t'induire en erreur

Citation:

---

Envoyé par pijakuET (opérateur AND) :
[code

OU (Opérateur OR) :

Code:

---

If ws.Range("F11,J11,N11,R11").Value > 0 Or ws.Range("I20").Value = "P" Then CopierPlage ws

---

---

en effet les deux conditions se mettent l'une contre l'autre

si f11,j11, ect...valeur>0 ou si i20="p"

si i20="p" mais que les fjn11ect..ne sont pas plus grandes que zéro la fonction répondra oui quand même


a méditer

au plaisir

Un grand merci pour vos réponses.
j'ai essayé les deux formules proposées mais cela ne marche pas.
Seule la première condition fonctionne mais la seconde n'a pas d'effet.
J'ai aussi essayé ce qui suit en dessous de la première condition :

Code:

---

If ws.Range("I20").Value = "P" Then CopierPlage ws

---

j'ai obtenu le même résultat.
Amicalement,
Lionel,

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("F11,J11,N11,R11,I20")) Is Nothing And Target.Count = 1 Then If Target.Value > 0 Or Target.Value = "P" Then CopierPlage ActiveSheet End If End Sub

---

ça marche.
Vraiment vous êtes des sorciers.:resolu:
Un grand merci à vous.
Je ne sais pas quoi vous dire car je ne connais pas grand chose en VBA.
En revanche, je suis un éleveur d'oiseaux plutôt "très qualifié", (génétique, élevage à la main depuis la ponte etc...) en becs droits (exotiques) et en becs crochus (Psittacidaés ou Perroquets et perruches).
Alors, si parmi vous il y a des passionnés qui ont besoin d'aide dans ce domaine, je me ferai un plaisir de vous aider.
Encore merci,
Amicalement,
Lionel,

En fait pour répondre d'une manière catégorique à la demande initiale, le code devrait être le suivant

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range)   If Not Intersect(Target, Range("F11,J11,N11,R11,I20")) Is Nothing And Target.Count = 1 Then If Target.Address <> "$I$20" And Val(Target.Value) > 0 Or Range("I20").Value = "P" Then CopierPlage ActiveSheet End If End Sub

---

Merci de votre gentillesse, de votre dévouement et de votre sérieux.
Amicalement,
Lionel,:resolu:

la dernière formule ne fonctionne pas. Comme les précédentes, seule la première condition fonctionne.
Un grand Merci à vous tous.
Amicalement,
Lionel,