VBA_dev_Anne_Marie
XLDnaute Occasionnel
Bonjour,
Je souhaite arrêter l'exécution du code si le range Range(Cells(1, 6), Cells(100, 6)) est vide.
Voici mon code :
Je constate que le programme ne s'arrête pas, pourriez-vous m'aider ?
Merci !
Je souhaite arrêter l'exécution du code si le range Range(Cells(1, 6), Cells(100, 6)) est vide.
Voici mon code :
VB:
Public Sub CLICK()
Call Copier_Police
If Not IsEmpty(Sheets("DONNEES").Range(Cells(1, 6), Cells(100, 6))) Then
Call Retraitement
Call Resultats
Call Calcul
Else
MsgBox (" Erreur ! ")
End If
End Sub
Je constate que le programme ne s'arrête pas, pourriez-vous m'aider ?
Merci !