Ne pas exécuter la macro si une des cellules est vide

Question

Bonjour à tous, j'espère déjà poster dans le bon endroit.

Je vous explique, j'ai créé une macro suite un a formulaire de saisie sur excel, je dois remplir deux cellules et ensuite d'autres tableaux sont alimentés. J'ai donc créer un bouton pour exécuter la macro. Cependant, j'aimerai qu'elle ne s'excécute pas et qu'il y a un messsage d'erreur si une des deux cellules à remplir est vide. En effet, car dans le tableau à alimenter, j'ai utilisé la formule 1ere cellule vide. Cependant si une cellule est vide et qu'on a pas saisie le nombre 0 il y aura ensuite un décalage. J'espère que vous m'avez compris. 

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A13").Select
    Selection.Copy
    Sheets("Toutes les réservations ").Select
    Range("B3:B65536").Find("").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Interfaces part").Select
    Range("A16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Toutes les réservations ").Select
    Range("C3:C65536").Find("").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Interfaces part").Select
    Range("D13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Toutes les réservations ").Select
    Range("D3:D65536").Find("").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Interfaces part").Select
    Range("E13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Toutes les réservations ").Select
    Range("E3:E65536").Find("").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Interfaces part").Select
    Range("D13").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = ""
    Range("E13").Select
    ActiveCell.FormulaR1C1 = ""
    Range("E14").Select
    End Sub



Merci d'avance

cs_Jack · Answer

Salut

Regarde voir dans l'aide du côté de "If Then",  "IsEmpy" et "MsgBox"

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

pile_poil · Answer

bonjour
en complément de ce que t'a donné Jack regardes aussi du coté de "Exit" 

si c'est la solution,						 penser : REPONSE ACCEPTEE

Ne pas exécuter la macro si une des cellules est vide

2 réponses

Votre réponse

Discussions similaires