combiné des if et des or es-ce possible ?

[dmoluc]

Re Bonjour
voici les contions qui lance toutes la même procédure :

If Range("D7") = "" And Range("D6") <> "" Then

ou bien

If Application.WorksheetFunction.Sum(Range("G6:zz6")) = 0 And Application.WorksheetFunction.Sum(Range("G7:zz7")) > 0 Then

mon problème est que je répète la procédure pour une bonne trentaine de ligne et fois 2 la procédure est trop longueje voudrais donc combinés les deux condition du genre :

IfRange("D7") = "" And Range("D6") <> "" or Application.WorksheetFunction.Sum(Range("G6:zz6")) = 0 And Application.WorksheetFunction.Sum(Range("G7:zz7")) > 0 Then

mais ma syntaxe n'est pas bonne
Merci pour votre aide
Cordialement Didier

 

[JCGL]

Re : combiné des if et des or es-ce possible ?

Bonjour à tous,

Peux-tu essayer :

Option Explicit


Sub Test()
    If Range("D7") = "" And _
       Range("D6") <> "" _
       Or Application.WorksheetFunction.Sum(Range("G6:Z6")) = 0 _
       And Application.WorksheetFunction.Sum(Range("G7:Z7")) > 0 Then
        MsgBox "Coucou"
    End If
End Sub

Pas tester faute de fichier...

A + à tous

 

[dmoluc]

Re : combiné des if et des or es-ce possible ?

merci ça fonctionne parfaitement

cordialement Didier

 

[JCGL]

Re : combiné des if et des or es-ce possible ?

Bonjour à tous,

Attention j'ai remplacé ZZ par Z... dans le Range

A + à tous

 

[dmoluc]

Re : combiné des if et des or es-ce possible ?

oui merci je m'en suis aperçue 🙄
en fait je ne sais pas pourquoi ma syntaxe ne fonctionné pas, mis à part que tout était sur la même ligne c'était la même chose. Le VBA parfois c'est bizarre ; surtout quand on débute

encore merci

A+