Discussion :

[pbuhler]

Bonjour,

J'ai réussi a composer une macro qui vérifie le remplissage de cellule avant l'enregistrement mais j'ai besoin d'aide, car même si des cellules sont vides, après acceptation des box d'alerte, l'enregistrement se fait quand même.

Je souhaiterais que ma macro s’arrête après les message et que l'enregistrement ne se fait que s'il n'y a pas de message d'erreur.

Voici la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Test2()
Dim MaPlage As Range, Cel As Range
 
Set MaPlage = Sheets("Fiche d'Intervention").Range("OBLIG")
For Each Cel In MaPlage 'pour toutes les cellules de la plage
    If Cel.Value = "" Then 'si elle est vide alors
        'message à l'utilisateur
        MsgBox "La cellule : " & Cel.Address & " n'est pas remplie."
        'sortie de la procédure
End If
Next
 
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "C:\Users\SAML-PBV\Desktop\TEST TRANSPORT\"
nomfichier = ActiveSheet.Range("N2") & "_INTERVENTION_" & Range("F10") & "_" & Range("F11") & extension
With ActiveWorkbook
'    .ActiveSheet.DrawingObjects(1).Delete
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

Merci pour votre aide à tous.

[Philippe Tulliez]

Bonjour,
Il est toujours possible de quitter une procédure par un Exit (soit Exit Sub soit Exit Function). Il suffit de placer cette instruction si la condition est vraie.
J'ajouterais qu'au lieu de parcourir chaque cellule de la plage, tu pourrais utiliser la fonction NBVAL (COUNTA en VBA) qui renvoie le nombre de cellules remplies dans une plage.
La propriété Count d'un objet Range renvoyant le nombre de cellules d'une plage, il suffirait de vérifier si les deux valeurs sont égales.

[pbuhler]

Merci pour votre réponse, mais a quelle position dois-je mettre le "Exit". Merci

[Philippe Tulliez]

Bonjour,

mais a quelle position dois-je mettre le "Exit". Merci

Comme je l'ai écrit dans ma réponse, si le test est VRAI.
Donc soit

If Cel.Value = "" Then 'si elle est vide alors
'message à l'utilisateur
MsgBox "La cellule : " & Cel.Address & " n'est pas remplie."
'sortie de la procédure
Exit Sub
End If

Soit si l'on ne souhaite pas de message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cel.Value = "" Then Exit Sub

(Non testé)