msgbox cellule vide

[kwakos]

Salut le forum, tout le monde !!!

Voilou ma question...

J'ai un formulaire à remplir avec des cellules supposées être toutes remplies.
B9
B10
B12
B14 à B18
B20
D21
D23

Je voudrais qu'un message d'erreur type MsgBox = "merci de remplir toutes les cellules vides" apparaisse si une des cellules est restée vide...

Pour être honnête, j'y arrive, mais avec une macro qui fait une quarantaine de lignes lol.... -honteux-

Alors si quelqu'un pouvait me filer un coup de main, ça serait adorable

Merci à tous

a+

 

[Besnard68]

Re : msgbox cellule vide

Bonjour Kwakos,

tes cellules à tester sont peu nombreuses, mais éparpillées.

Sans avoir vu ton travail, il serait bien par exemple dans un premier temps, de les regrouper en une plage de cellules contigües (En mettant par exemple, dans cette plage de référence, une formule du type : =SI(B9="";"vide";"")

Ensuite il sera possible de tester la plage en 4 lignes maxi avec For each cellule in... Next.

Cordialement

 

[kwakos]

Re : msgbox cellule vide

ok merci je vais essayer ta méthode

encore merci

a+

 

[tototiti2008]

Re : msgbox cellule vide

Bonjour à tous,

un exemple sans regrouper (un peu moins de 40 lignes) :

Dim C As Range, bool As Boolean, A, i as Long
bool = False
For Each A In ActiveSheet.Range("B9:B10,B12,B14:B18,B20:B21,B23").Areas
For i = 1 To A.Cells.Count
    If A.Cells(i).Value = "" Then
        bool = True
        Exit For
    End If
Next i
Next A
If bool Then MsgBox "au moins une cellule est vide"

 

[Besnard68]

Re : msgbox cellule vide

C'est vrai TotoTiti,

For Each... Next fonctionne aussi pour une plage de cellules discontinues.

Tant que le nombre de cellules à traiter est raisonnable cette solution est beaucoup moins lourde que le mienne.

Cordialement

 

[myDearFriend!]

Re : msgbox cellule vide

Bonsoir kwakos, Besnard68, tototiti2008, le Forum,

Pour info, dans cette situation, on peut aussi y arriver en une seule ligne de code et éviter ainsi les boucles :

    [COLOR=NAVY]If[/COLOR] Application.CountA(ActiveSheet.Range("B9:B10,B12,B14:B18,B20,D21,D23")) < 11 [COLOR=NAVY]Then[/COLOR] _
            MsgBox ("Merci de remplir toutes les cellules vides")

Cordialement,