Bonjour,

J'ai écrit cette macro qui permet de détecter une cellule vide et d'écrire un message d'erreur. Le problème est que le message d'erreur s'écrit à chaque fois qu'il y a une erreur et je souhaite avoir un seul message d'erreur au lieu de plusieurs qu'importe le nombre de cellules vides.

Pouvez-vous m'aidez svp :

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
Worksheets("Base").Activate
 
'Vérifier qu'aucune cellule ne soit vide
Dim lig As Long
 
lig = 7 'première ligne à vérifier
derLig = Range("F" & Rows.Count).End(xlUp).Row
derLig2 = Range("B" & Rows.Count).End(xlUp).Row
 
If derLig2 > derLig Then derLig = derLig2
 
    For I = 7 To derLig
        For j = 1 To 6
            If Cells(I, j) = "" Then
                Cancel = True
                MsgBox "Attention des données sont vides, veuillez remplir les cellules vides."
            End If
        Next
    Next
 
 End Sub