Bonjour,

j'ai la macro suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
 If ws.Range("F11,J11,N11,R11").Value > 0 Then CopierPlage ws
Je voudrais ajouter :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 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(