XL 2021 Arrêt de la Macro si cellules vides

sambio2

XLDnaute Nouveau
Bonjour a tous,

J'aimerais a provoquer l'arrêt ou le non lancement de la macro : "Suppression_Bouteille" qui est déclenché sur la feuille "Fiche départ GAZ"

Ma demande : Arrêt de la Macro si les cellules "Tag Bouteille" "C6" & "Date de départ" "C8" sont vide.

En bonus si c'est pas trop compliqué d'afficher un message "Action impossible car les cellules "Tag Bouteille" & "Date de départ" sont vide"

le fichier est ci-joint, Merci d'avance ;)
 

Pièces jointes

  • liste GAZ-test.xlsm
    96.7 KB · Affichages: 1

Gégé-45550

XLDnaute Accro
Bonjour a tous,

J'aimerais a provoquer l'arrêt ou le non lancement de la macro : "Suppression_Bouteille" qui est déclenché sur la feuille "Fiche départ GAZ"

Ma demande : Arrêt de la Macro si les cellules "Tag Bouteille" "C6" & "Date de départ" "C8" sont vide.

En bonus si c'est pas trop compliqué d'afficher un message "Action impossible car les cellules "Tag Bouteille" & "Date de départ" sont vide"

le fichier est ci-joint, Merci d'avance ;)
Bonjour,
Voir PJ.
Cordialement,
 

Pièces jointes

  • liste GAZ-test.xlsm
    96.3 KB · Affichages: 3

Gégé-45550

XLDnaute Accro
Bonjour, possible de m'envoyer seulement le code que je rajouterais dans mon fichier ?
J'ai du mal à activer les macros avec la sécurité.
Bonjour,
VB:
Sub Supression_Bouteille()

nbcol = 15
Set montag = Sheets("Fiche depart GAZ").Range("c6")
Set montag2 = Sheets("Fiche depart GAZ").Range("c8")
If montag = "" And montag2 = "" Then
    MsgBox "Action impossible car les cellules 'Tag Bouteille' & 'Date de départ' sont vide"
    Exit Sub
End If
With Sheets("Liste bouteille GAZ PERL")
On Error Resume Next
lg = .Columns(1).Rows.Find(montag).Row

If Err.Number <> 0 Then MsgBox "Ce tag n'éxiste pas!'": Exit Sub
Set bouteille = .Range(.Cells(lg, 1), .Cells(lg, 15))
Call copie(bouteille)

End With

End Sub
Cdlt
 

sambio2

XLDnaute Nouveau
Bonjour,
VB:
Sub Supression_Bouteille()

nbcol = 15
Set montag = Sheets("Fiche depart GAZ").Range("c6")
Set montag2 = Sheets("Fiche depart GAZ").Range("c8")
If montag = "" And montag2 = "" Then
    MsgBox "Action impossible car les cellules 'Tag Bouteille' & 'Date de départ' sont vide"
    Exit Sub
End If
With Sheets("Liste bouteille GAZ PERL")
On Error Resume Next
lg = .Columns(1).Rows.Find(montag).Row

If Err.Number <> 0 Then MsgBox "Ce tag n'éxiste pas!'": Exit Sub
Set bouteille = .Range(.Cells(lg, 1), .Cells(lg, 15))
Call copie(bouteille)

End With

End Sub
Cdlt
RE, ok super c'est parfait, merci beaucoup ! :)
 

Discussions similaires

Statistiques des forums

Discussions
313 209
Messages
2 096 244
Membres
106 541
dernier inscrit
edf