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

[modus57]

Bonjour à tous. 🙂

J’ai essayé avec la procédure ci-dessous mais elle sélectionne toutes les cellules vides (tester fichier ci-joint):

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.

 

[pierrejean]

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

Bonjour modus57

A tester:

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

 

[eriiic]

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) :

Intersect(
[liste], Cells.SpecialCells(xlCellTypeBlanks)).Select

eric

Edit:
ou plus directement :

[liste].SpecialCells(xlCellTypeBlanks).Select

eric

 

[modus57]

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

Bonjour pierrejean 🙂

J'ai testé, çà fonctionne parfaitement.

Merci beaucoup.

 

[eriiic]

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

Re,

On s'est croisés, voir ici également
eric

 

[modus57]

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

Bonjour eriiiic.🙂🙂

Effectivement ta solution paraît plus simple et fonctionne aussi bien.

Sub TestCellVide()
For Each cb In Range("liste")
   Sheets("data").Activate
   
[liste].SpecialCells(xlCellTypeBlanks).Select   
Next cb
End Sub

Merci à tous les deux, @ +.