XL 2021 Arrêt de la Macro si cellules vides

[sambio2]

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

 

[Gégé-45550]

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,

 

[TooFatBoy]

Bonjour,

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

ET ou OU ?

 

[sambio2]

Bonjour,
Voir PJ.
Cordialement,

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

 

[sambio2]

Bonjour,


ET ou OU ?

ET

 

[Gégé-45550]

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,

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]

Bonjour,

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 !