Microsoft 365 Arrêter l'exécution d'un programme

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 :
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 !
 

vgendron

XLDnaute Barbatruc
Hello
pour sortir de la macro, il faut ajouter exit sub , juste en dessous du msgbox

après. je pense que ca ne suffira pas, puisque si ta macro ne s'arrete pas, c'est parceque la condition "not isempty est toujours vraie et que tu ne vas jamais dans la partie "Else" de ta condition
sans avoir ton fichier, ni le détail de ta macro "Copier_Police", impossible de t'aider plus
 

Discussions similaires

Statistiques des forums

Discussions
311 710
Messages
2 081 781
Membres
101 817
dernier inscrit
carvajal