Double condition "SI" [Résolu]

[arthour973]

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(

[pijaku]

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

[patricktoulon]

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

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

[arthour973]

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,

[mercatog]

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

[arthour973]

ça marche.
Vraiment vous êtes des sorciers.
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,

[mercatog]

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

[arthour973]

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

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,