Discussion :

[arthour973]

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(

[pijaku]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

OU (Opérateur OR) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

OU (Opérateur OR) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,