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

Phil69970

XLDnaute Barbatruc

• 24 Avril 2023

• #2

Bonjour @Romain31

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

Pièces jointes

• Test vide V1.xlsm

  16.6 KB · Affichages: 4

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Avril 2023

• #3

Bonjour

pas compris ce que tu souhaites exactement

voici quelques lignes de code parmi lesquelles tu devrais pouvoir choisir

VB:

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

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 24 Avril 2023

• #4

Bonjour à tous,

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

JHA

 

Pièces jointes

• Test.xlsm

  15.4 KB · Affichages: 4

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 24 Avril 2023

• #5

Merci pour ces premières réponses.

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 24 Avril 2023

• #6

Bonjour à tous

Voici la V2

Merci de ton retour

@Phil69970

 

Pièces jointes

• Test vide V2.xlsm

  16.7 KB · Affichages: 6

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 24 Avril 2023

• #7

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.

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 24 Avril 2023

• #8

Bonjour à tous,

En inversant les critères

JHA

 

Pièces jointes

• Test.xlsm

  16.5 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2023

• #9

Bonjour Romain31, le fil,

Sélection de l'intersection des SpecialCells :

VB:

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

A+

 

Pièces jointes

• Test.xlsm

  17.9 KB · Affichages: 4

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 24 Avril 2023

• #10

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

 

Vote positif 0 Vote négatif