[Excel][VB]Sélectionner toutes les cellules non vides
Rolapin
Messages postés
5
Date d'inscription
mardi 22 mars 2005
Statut
Membre
Dernière intervention
14 avril 2005
-
14 avril 2005 à 10:00
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 14 avril 2005 à 16:26
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 14 avril 2005 à 16:26
A voir également:
- Sélectionner les cellules non vides excel
- Compter les cellules non vides ✓ - Forum VBA Office (Excel, Word ...)
- Derniere ligne non vide vba ✓ - Forum Visual Basic 6
- Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
- Arctan excel ✓ - Forum Visual Basic 6
- Détection de la dernière ligne:Problème ✓ - Forum Visual Basic 6
1 réponse
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
14 avril 2005 à 16:26
14 avril 2005 à 16:26
Essaie cette formule, elle compte les cellules vides dans un semble de cellules non vide.Personnellement je n'ais pas trouver pour toutes les cellules de la feuille, mais peut-être peut-être en la modifiant ??
Sub CelluleVide()
Dim PremiereCellule As Range, CelluleTrouvee As Range
Dim ToutesLesCellules As Range
Set PremiereCellule = ActiveSheet.UsedRange.Find(What:="", _
Searchformat:=True)
Set ToutesLesCellules = PremiereCellule
Set CelluleTrouvee = PremiereCellule
Do
Set CelluleTrouvee = ActiveSheet.UsedRange.Find _
(After:=CelluleTrouvee, What:="", Searchformat:=True)
If CelluleTrouvee Is Nothing Then Exit Do
Set ToutesLesCellules = Union(CelluleTrouvee, ToutesLesCellules)
If CelluleTrouvee.Address = PremiereCellule.Address Then Exit Do
Loop
ToutesLesCellules.Select
MsgBox " Cellules vides trouvées : " & ToutesLesCellules.Count
End Sub
jpleroisse
Sub CelluleVide()
Dim PremiereCellule As Range, CelluleTrouvee As Range
Dim ToutesLesCellules As Range
Set PremiereCellule = ActiveSheet.UsedRange.Find(What:="", _
Searchformat:=True)
Set ToutesLesCellules = PremiereCellule
Set CelluleTrouvee = PremiereCellule
Do
Set CelluleTrouvee = ActiveSheet.UsedRange.Find _
(After:=CelluleTrouvee, What:="", Searchformat:=True)
If CelluleTrouvee Is Nothing Then Exit Do
Set ToutesLesCellules = Union(CelluleTrouvee, ToutesLesCellules)
If CelluleTrouvee.Address = PremiereCellule.Address Then Exit Do
Loop
ToutesLesCellules.Select
MsgBox " Cellules vides trouvées : " & ToutesLesCellules.Count
End Sub
jpleroisse