Discussion :

[souad12]

Bonjour à tous,
Je me permets de vous demandez votre aide sur un petit exercice: Réaliser une macro compter_vides qui compte et affiche le nombre de cellules vides de la sélection
Je ne sais pas comment commencer... (je pense qu'il faut utiliser IsEmpty et un compteur mais je n'arrive pas à structurer tous ça !)

Je vous remercie par avance pour vos coups de pouce !

[mercatog]

Bonsoir
Par formule

Code :

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

=NB.VIDE(A1:E10)

Qu'on peut traduire par vba

Code :

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

1
2
3
4
Sub Test()
 
MsgBox Application.CountBlank(Sheets("Feuil1").Range("A1:E10"))
End Sub

[souad12]

Bonsoir,

Votre code fonctionne très bien je vous en remercie, mais j'aimerai comprendre comment je pourrai faire la même chose en utilisant IsEmpty. (en effet je passe mes rattrapages le 29/08 et je sais que mon professeur posera un énoncé utilisant IsEmpty).

Merci.

Cordialement

[galopin01]

Bonsoir,
voici une possibilité :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim o As Range
For Each o In Range("A1:E10")
  If IsEmpty(o) Then
  i = i + 1
  o.Interior.ColorIndex = 3
  End If
Next
MsgBox i
End Sub

A+

[souad12]

Merci ! Bonne idée pour la couleur! j'essaye de comprendre le code :
==> o représente une cellule la sélection A1: E10
==> If IsEmpty (o) on incrémente. Donc IsEmpty renvoie une réponse positive dans le cas où la cellule est vide?

Merci de me corriger si j'ai mal compris, ou si cela vous semble nécessaire