RESOLU - Si = 0 Exit Sub

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Septembre 2017

• #2

Bonjour Castor,

Code:

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

à+
Philippe

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Septembre 2017

• #3

Re,

ou ceci:

Code:

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 2 Septembre 2017

• #4

Bonjour,

Teste comme ceci

Code:

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

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 2 Septembre 2017

• #5

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

 

Vote positif 0 Vote négatif