Avoir un seul message d'erreur au lieu de plusieurs

Version imprimable

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:

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

Crée un compteur et fais le test

Code:

1
2
3
4
5
for i=1 to 4
      if cells(i,1)="" then Cpt=Cpt+1
next i
 
if Cpt>0 then msgbox "Tu as "&cpt &" cellules vides"

21/01/2019, 15h44
MarcelG

Bonjour,

Le test peut porter sur le nombre de cellules spéciales vides.

Sur la base de ces 2 documentations, tu peux rédiger un code.
Et, surtout, en cas de difficulté, tu reviens en reportant ton code et la ligne, surlignée généralement en jaune, qui pose problème.

Je modifie mon message pour adresser un salut cordial à mercatog. Je lui dois beaucoup.
Oh p... Cela faisait un bail!
En espérant te retrouver plus souvent
21/01/2019, 15h46
Caro6

Super merci mercatog ! ça marche
21/01/2019, 15h54
MarcelG

Salut Caro,

Avec tout le respect que j'ai pour lui, après la méthode de mercatog, je souhaiterais que tu traduises en VBA le processus que je t'ai proposé.
1 seule ligne suffit et elle évite un balayage.