Discussion :

[dmoluc]

Bonjour à tous,

Encore un petit problème que je n'arrive pas à résoudre malgré sa simplicité

voici les deux conditions qu'excel igniore

Code :

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

If Application.WorksheetFunction.Sum(Range("G6:zz6")) = "" And Range("D6") <> "" Then

Si à partir de g6 la ligne 5 est vide et que d6 est différent de rien alors.... Mais ça ne fonctionne pas
merci pour votre aide

cordialement Dider

[Daniel.C]

Bonjour

Code :

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

Application.WorksheetFunction.Sum(Range("G6:zz6")) = ""

est incorrect; il faudrait mettre

Code :

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

Application.WorksheetFunction.Sum(Range("G6:zz6")) = 0

puisque "Sum" renvoie une valeur numérique. Ceci ne signifie pas que la plage est vide, mais qu'il n'y a pas de valeur numérique non nulle. Mets :

Code :

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

If Application.CountA(Range("G6:zz6")) = 0 And Range("D6") <> "" Then

[dmoluc]

Encore merci Daniel
je viens juste de m’apercevoir de ma bêtise car avec une formule c'est identique il faut mettre 0 au lieu de "" avec une somme
j'aurais du trouver ça tout seul
Cordialement
Didier