Sélectionner les cellules vides dans une plage nommée.

modus57

XLDnaute Occasionnel
Bonjour à tous. :)

J’ai essayé avec la procédure ci-dessous mais elle sélectionne toutes les cellules vides (tester fichier ci-joint):
Code:
Sub TestCellVide()
For Each cb In Range("liste")
   Sheets("data").Activate
   cb.SpecialCells(xlCellTypeBlanks).Select     
Next cb
End Sub
Comment faire pour sélectionner les cellules vides uniquement dans la plage nommée.

Merci d’avance pour votre réponse.

Cordiales salutations.
 

Fichiers joints

Dernière édition:

pierrejean

XLDnaute Barbatruc
Re : Sélectionner les cellules vides dans une plage nommée.

Bonjour modus57

A tester:

Code:
Sub TestCellVide()
Dim zone As Range
    For Each cb In Range("liste")
        If cb.Value = "" Then
          If zone Is Nothing Then
            Set zone = cb
          Else
            Set zone = Application.Union(zone, cb)
          End If
        End If
    Next cb
 zone.Select
End Sub
 

eriiiic

XLDnaute Barbatruc
Re : Sélectionner les cellules vides dans une plage nommée.

Bonjour tout le monde,

Autre proposition dans la mesure où les cellules sont réellement vides (sans formule) :
Code:
Intersect(
[liste], Cells.SpecialCells(xlCellTypeBlanks)).Select
eric

Edit:
ou plus directement :
Code:
[liste].SpecialCells(xlCellTypeBlanks).Select
eric
 
Dernière édition:

modus57

XLDnaute Occasionnel
Re : Sélectionner les cellules vides dans une plage nommée.

Bonjour pierrejean :)

J'ai testé, çà fonctionne parfaitement.

Merci beaucoup.
 

modus57

XLDnaute Occasionnel
Re : Sélectionner les cellules vides dans une plage nommée.

Bonjour eriiiic.:):)

Effectivement ta solution paraît plus simple et fonctionne aussi bien.
Code:
Sub TestCellVide()
For Each cb In Range("liste")
   Sheets("data").Activate
   
[liste].SpecialCells(xlCellTypeBlanks).Select   
Next cb
End Sub
Merci à tous les deux, @ +.
 

Discussions similaires


Haut Bas