Microsoft 365 sélectionner uniquement les lignes NON vides

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,

J'ai récupéré un code sur le Forum, MERCI à l'auteur :
VB:
Sub selection()
Dim Cel As Range, Plage As Range

For Each Cel In ActiveSheet.Range("C1:m35")
  If Cel > 0 Then
    If Plage Is Nothing Then
      Set Plage = Cel.EntireRow
      Else
      Set Plage = Application.Union(Plage, Cel.EntireRow)
    End If
  End If
Next
Plage.Select
End Sub
Ce code fonctionne très bien et sélectionne les lignes NON vides.
Mon besoin est de sélectionner (à l'inverse) UNIQUEMENT les lignes VIDES.
Je n'arrive pas à modifier le code Grrrr !!!:mad:
Pourriez-vous m'aider ?
Je joins le petit fichier test et je continue mes recherches ...
lionel :)
 

Pièces jointes

  • lgn_Vides.xlsm
    21.9 KB · Affichages: 5

Bernard_XLD

XLDnaute Barbatruc
Membre du Staff
Dernière édition:

Statistiques des forums

Discussions
314 628
Messages
2 111 336
Membres
111 104
dernier inscrit
JEMADA