Vérifier si une cellule reste dans un range

Bonjour,
Je cherche un moyen pour éviter une boucle qui parcourt tous le range pour voir s'il reste encore des cellule vide.

Code:

---

1 2 3 4 5 6

For Each Cell In Sheets("exmple").Range("E7:E100") If Sheets("exmple").Cells(m, 5) <> "" Then 'traitement End If   Next

---

y a t'il pas un moyen pour savoir s'il reste une cellule vide à partir d'une certaine ligne.

Bonjour,

Tu peux faire :

Code:

---

PremiereLigneVide = Sheets("exmple").Range("E7").end(xldown).row + 1

---

Ca te donne la premiere ligne vide, et si < derniere ligne de ta plage, c'est que tu as une cellule vide.

Mais ça t'oblige à le faire pour chaque colonne.

Pour vérifier s'il y a aucune cellule vide

Code:

---

If Application.CountBlank(Sheets("exemple").Range("E7:E100")) > 0 Then MsgBox "il y a encore des cellules vides"

---

Pour trouver l'éventuelle première cellule vide

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Plage As Range   On Error Resume Next Set Plage = Sheets("exemple").Range("E7:E100").SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If Not Plage Is Nothing Then MsgBox "la première cellule vides est en " & Plage(1, 1).Address Set Plage = Nothing Else MsgBox "Aucune cellule vide en E7:E100" End If

---

Merci, ça répond bien à ma question.