Discussion :

[Caro6]

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

[mercatog]

Crée un compteur et fais le test

Code :

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

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"

[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

[Caro6]

Super merci mercatog ! ça marche

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