Rechercher si une cellule est vide

Bonjour,

Je cherche à savoir si sur une plage de cellule donnée, l'une d'entre elle est vide mais je n'arrive pas à le coder.

En somme je souhaiterai faire quelque chose comme :

If une des cellules de range("A1:A"&i) est vide then

else

msgbox("Blabla")

End If

Je vous remercie par avance pour l'aide que vous pourrez m'apporter.

Cordialement,

Bonsoir

Essayez avec

Range("a1:a" & i) = "" Then 

Merci pour votre réponse rapide, mais hélas ça ne fonctionne pas, il n'a pas l'air de comprendre que "si l'une d'entre elle est vide".

Bonsoir

A tester

Sub test()
Dim J As Long

  J = 10
  If Application.CountA(Range("A1:A" & J)) <> Range("A1:A" & J).Count Then
    MsgBox "Au moins une cellule vide"
  Else
    MsgBox "Toutes les cellules sont occupées"
  End If
End Sub

Sub test()
Dim cellule As Range
Range("a1", Range("a65536").End(xlUp)).Select
For Each cellule In Selection
If cellule = "" Then
MsgBox cellule.Address
End If
Next

End Sub

Celui là il marche.

Bonsoir à tous,

aussi :

If Application.CountBlank([A1].Resize(10)) Then
    MsgBox "cellules vides"
Else
    '...
End If

eric

Lean a écrit :

Sub test()
Dim cellule As Range
Range("a1", Range("a65536").End(xlUp)).Select
For Each cellule In Selection
If cellule = "" Then
MsgBox cellule.Address
End If
Next

End Sub

Celui là il marche.

En effet ça fonctionne mais pour bien lui faire comprendre qu'au moins l'une d'entre elle est vide j'ai ajouté un compteur :

Dim cellule as range
Dim P as integer
If Range("I1", Range("I65536").End(xlUp)).Select then
        For Each cellule In Selection
            If cellule = "" Then
            P = P + 1
            Else
            End If
        Next
  End If
    'Si ce nombre est > à 1 c'est qu'au moins une des cellules est vide
If P < 1 Then
    MsgBox ("C'est complet.")
    Else
End If