RESOLU - Si = 0 Exit Sub

[castor30]

Bonjour le forum,
J'essaie sans y parvenir de faire un code pour dire que si les colonnes S,T et U sont vides de quitter la Sub
avec apparition d'un Msgbox
Sachant que la ligne 1 est la ligne des titres.
Je vous remercie de me venir en aide.

If Range("S2:U") = 0 Then
Msgbox "Aucun état à imprimer"
"Exit Sub

 

[phlaurent55]

Bonjour Castor,

If WorksheetFunction.CountA(Range("S:U")) = 3 Then
MsgBox ("Les colonnes S, T & U ne contiennent que les titres")
Exit Sub
End If

à+
Philippe

 

[phlaurent55]

Re,

ou ceci:

If WorksheetFunction.CountA(Range("S:U")) = 3 Then
MsgBox ("Les colonnes S, T & U ne contiennent que les titres")
Exit Sub
Else
MsgBox ("Les colonnes S,T & U ne sont pas vides")
End If

à+
Philippe

 

[M12]

Bonjour,

Teste comme ceci

If Application.CountA(Range("S2:U65000")) = 0 Then
MsgBox "Aucun état à imprimer"
End If
Exit Sub

 

[castor30]

Bonjour Philippe, M12
Je vous remercie de m'avoir répondu et soulagé mes maux de tête
Je retiens la première solution de Philippe et vous souhaite un excellent Week-end