Sélection de lignes avec condition

[Romain31]

Bonjour à toutes et à tous,

Je cherche à sélectionner les lignes SI aucune valeur n'est présente dans les cellules de la colonne B.
Le code fontionne (presque) car il me sélectionne également la première ligne totalement vide sous le tableau.
Je pourrais sans doute indiquer la plage précise mais ce tableau est susceptible d'être complété.
D'où vient l'erreur ? Merci pour votre aide.
Bonne journée

Romain

 

[Dranreb]

Bonjour.

Sub SelectionColBVide()
Application.Goto Intersect(Columns("B"), ActiveSheet.UsedRange).SpecialCells(xlCellTypeBlanks).EntireRow
End Sub

 

[Romain31]

Merci Dranreb pour ta réponse qui fonctionne parfaitement.
En fait, j'avais contourné mon problème par ce code :

Sub SelectionColBVide()
ActiveSheet.Range("B:B").SpecialCells(4).EntireRow.Select
End Sub

Ce que j'aimerais comprendre, c'est pourquoi mon premier code me sélectionne une ligne vide.

 

[Dranreb]

Moi ce que je ne comprenais pas trop c'est pourquoi il ne sélectionnait pas tout le reste de la feuille…
Je travaille généralement avec UsedRange, voire une fonction PlgUti qui me renvoie une plage depuis la cellule spécifiée jusqu'à la dernière renseignée de plus qu'une chaine vide. Ou alors je mets mes plages sous forme de tableaux (objets ListObject) pour ne plus avoir à me poser de question sur leurs tailles en lignes.