XL 2013 Sélectionner des cellules vides dans une colonne par rapport à une autre cellule

[Romain31]

Bonjour à tous,

Je cherche à sélectionner toutes les cellules vides de la colonne D par rapport au remplissage de la colonne F (sur la même ligne).

Ce code (en indiquant la plage) prend en compte les trois colonnes.

Range("D2:F15").Select
Selection.SpecialCells(xlCellTypeBlanks).Select

Comment avoir un résultat (cellules sélectionnées) sur la colonne D uniquement

Exemple ci-joint.

Merci pour votre aide et bonne journée à tous

 

[Phil69970]

Bonjour @Romain31

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[vgendron]

Bonjour

pas compris ce que tu souhaites exactement

voici quelques lignes de code parmi lesquelles tu devrais pouvoir choisir

Sub Macro1()
    Range("D2:F15").Columns(1).SpecialCells(xlCellTypeBlanks).Select ' cellules vides de la première colonne de la range
    Range("D2:F15").Columns(3).SpecialCells(xlCellTypeBlanks).Select ' cellules vides de la troisième colonne de la range
    Range("D2:F15").SpecialCells(xlCellTypeBlanks).Select ' toutes les cellules vides de la  range
    Range("D2:F15").Columns(3).SpecialCells(xlCellTypeBlanks).Offset(0, -2).Select ' cellules de la 1ere colonne pour lesquelles la colonne 3 est vide
    Range("D2:F15").Columns(3).SpecialCells(xlCellTypeBlanks).EntireRow.Select ' lignes entières pour lesquelles la colonne 3 est vide
End Sub

Edit: Hello @Phil69970

 

[JHA]

Bonjour à tous,

Avec les données en mode tableau ou par formule et MFC

JHA

 

[Romain31]

Merci pour ces premières réponses.

Afin d'être le plus clair possible, voici ce que je cherche à obtenir

 

[Phil69970]

Bonjour à tous

Voici la V2

Merci de ton retour

@Phil69970

 

[Romain31]

Merci Phil69970
C'est tout à fait ce que je recherchais (avec le choix de la couleur en prime !)

merci également à Vgendron et à JHA pour leurs propositions qui m'intéressent également.

 

[JHA]

Bonjour à tous,

En inversant les critères

JHA

 

[job75]

Bonjour Romain31, le fil,

Sélection de l'intersection des SpecialCells :

Sub Selectionner()
On Error Resume Next
Intersect(Columns("D").SpecialCells(xlCellTypeBlanks), Columns("F").SpecialCells(xlCellTypeConstants).EntireRow).Select
End Sub

A+

 

[Romain31]

Bonjour Job75 et merci pour ce fichier et son résultat également très efficace.