XL 2021 Arrêt de la Macro si cellules vides

sambio2 à dit:

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 😉

Cliquez pour agrandir...

sambio2 à dit:

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

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour,
Voir PJ.
Cordialement,

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,


ET ou OU ?

Cliquez pour agrandir...

sambio2 à dit:

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é.

Cliquez pour agrandir...

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

Gégé-45550 à dit:

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

Cliquez pour agrandir...