OVH Cloud OVH Cloud

arrêter une macro et émettre un message

1 réponse
Avatar
Daniel
Bonjour à tous

J'ai une macro qui ne doit pas s'exécuté si il n'y a pas de donné dans les
cellule
M2:M12999
et je voudrait qu'un message avise de faire un choix.

Sub avantF_Travaux()
'
Application.Run "'Insp_Tasch.xls'!F_Travaux"
End Sub

Merci vos conseille m'aide beaucoup

1 réponse

Avatar
anonymousA
Bonjour,

if Application.WorksheetFunction.CountA(Range("M1:M12999"))=0 then
else
Application.Run "'Insp_Tasch.xls'!F_Travaux"
end if

A+

Bonjour à tous

J'ai une macro qui ne doit pas s'exécuté si il n'y a pas de donné dans les
cellule
M2:M12999
et je voudrait qu'un message avise de faire un choix.

Sub avantF_Travaux()
'
Application.Run "'Insp_Tasch.xls'!F_Travaux"
End Sub

Merci vos conseille m'aide beaucoup