Discussion :

[zangaloni]

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

Code :

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

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.

[oOVaveOo]

Bonjour,

Tu peux faire :

Code :

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

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.

[mercatog]

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

Code :

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

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 :

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

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

[zangaloni]

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