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

VBA_dev_Anne_Marie · 28 Novembre 2022

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 · 28 Novembre 2022

VBA_dev_Anne_Marie à dit:
Le MsgBox n'est pas affiché alors que la cellule est bien vide 🙁

déjà, ton test ne porte pas sur UNE cellule, mais sur une plage de 100 cellules
Range(Cells(1, 6), Cells(100, 6))) ==> c'est la plage: F1:F100

vgendron · 28 Novembre 2022

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

TooFatBoy · 28 Novembre 2022

Bonjour,

VBA_dev_Anne_Marie à dit:
Je souhaite arrêter l'exécution du code si le range Range(Cells(1, 6), Cells(100, 6)) est vide.

C'est-à-dire ??? 🤔

Actuellement si la cellule est vide, avant de se terminer la macro doit t'afficher la MsgBox.
Ce n'est pas ce que tu veux ?

VBA_dev_Anne_Marie · 28 Novembre 2022

TooFatBoy à dit:
Bonjour,

C'est-à-dire ??? 🤔

Actuellement si la cellule est vide, avant de se terminer la macro doit t'afficher la MsgBox.
Ce n'est pas ce que tu veux ?

Le MsgBox n'est pas affiché alors que la cellule est bien vide 🙁

vgendron · 28 Novembre 2022

VBA_dev_Anne_Marie à dit:
Le MsgBox n'est pas affiché alors que la cellule est bien vide 🙁

déjà, ton test ne porte pas sur UNE cellule, mais sur une plage de 100 cellules
Range(Cells(1, 6), Cells(100, 6))) ==> c'est la plage: F1:F100

TooFatBoy · 28 Novembre 2022

VBA_dev_Anne_Marie à dit:
Le MsgBox n'est pas affiché alors que la cellule est bien vide 🙁

Attention, je pense qu'une cellule qui contient une formule n'est jamais considérée comme étant vide, même si ladite formule retourne "".
Est-ce là le problème ?

VBA_dev_Anne_Marie · 28 Novembre 2022

vgendron à dit:
déjà, ton test ne porte pas sur UNE cellule, mais sur une plage de 100 cellules
Range(Cells(1, 6), Cells(100, 6))) ==> c'est la plage: F1:F100

Merci ! J'ai trouvé la solution !

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

VBA_dev_Anne_Marie

XLDnaute Occasionnel

vgendron

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Discussions similaires

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

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency