si condition remplie, msgbox, si pas autre msgbox

[charette63]

bonjour à toutes et tous,

j'ai reçu sur ce site une ligne de code pour vérifier dans un range si il y a des cellules vide avec l'apparition d'une msgbox si elle ne sont pas toutes vides.
J'essaye, en vain, d'avoir une autre msgbox si elles sont toutes vides.

voici ce que j'essaye:

If WorksheetFunction.CountA(Range("K4:K34")) > 0 Then
MsgBox "pas vide"

If WorksheetFunction.CountA(Range("K4:K34")) < 1 Then
MsgBox "pas de client à contacter"
End If
End If

les codes fonctionnent quand il sont seuls dans la macro, mais ensemble, c'est le premier code qui s'active (j'ai fais le test en inversant leur position dans la macro)

pouvez-vous m'aider

cordialement
Thierry

 

[pierrejean]

Re : si condition remplie, msgbox, si pas autre msgbox

Bonjour Thierry

A tester:

If WorksheetFunction.CountA(Range("K4:K34")) > 0 Then
MsgBox "pas vide"
Else
MsgBox "pas de client à contacter"
End If

 

[charette63]

Magnifique,

merci beaucoup monsieur pierrejean

 

[Dull]

Re : si condition remplie, msgbox, si pas autre msgbox

Salut Charette63, Pierrejean 🙂, le Forum

Sur une seule ligne mais c'est surtout pour saluer l'ami Pierre 🙂

MsgBox IIf(WorksheetFunction.CountA(Range("K4:K34")) > 0, "pas vide", "pas de client à contacter")

Bonne Journée

 

[pierrejean]

Re : si condition remplie, msgbox, si pas autre msgbox

Re

Salut ami Dull