XL 2019 Nombre de cellule vide dans une colonne dans un tableau dynamique

[Robin78]

Bonjour à toutes et à tous.

Voila, j'ai un tableau dynamique qui fait plusieurs milliers de lignes et une vingtaine de colonnes. Le tableau se modifie suivant la colonne A(7 choix possibles). Dans la colonne B j'ai parfois des cases vides sur plusieurs lignes, et j'aimerai sur une autre feuille, collecter l'ensemble des lignes où la case B est vide.

Désolé, je n'ai pas de formule actuellement.... je suis un peu perdu la 🙂.

Merci par avance pour votre aide

 

[Robert]

Bonjour Robin, bojour le forum,

Le fichier ou un exemple ayant la même structure !...

 

[Robin78]

Voici un image. En gros, je souhaite que les lignes en verts soient collectées dans la feuille 2.

Merci par avance

 

[Robert]

Re,

Tiens !... Un borné... Y'avait longtemps...
Un fichier Excel sinon rien !... (Ancienne pub Ricard)

 

[Robin78]

J'adore le ricard.

 

[Robert]

Re,

N'en abuse pas quand même... 😛. Je regarde ça et reviens vers toi après avoir déjeuner...

 

[Genii]

Je t'ai mis un exemple en laissant la ligne 1 libre au cas où ton fichier comporte des en tête.

 

[Robert]

Re,

Voila, j'ai un tableau dynamique ??? qui fait plusieurs milliers de lignes et une vingtaine de colonnes. Le tableau se modifie suivant la colonne A (7 choix possibles) ???. Dans la colonne B j'ai parfois des cases vides sur plusieurs lignes, et j'aimerai sur une autre feuille, collecter l'ensemble des lignes où la case B est vide.

Bon... Je passe la main...

 

[Romain31]

Bonjour Robin78,

A tester

Sheets("Feuil1").Range("B:B").SpecialCells(4).EntireRow.Copy Sheets("Feuil2").Range("A1")

Bonne journée

 

[JHA]

Bonjour à tous,

Sans VBA par filtre ou par TCD

JHA

 

[Jacky67]

Bonjour,
Essaye ceci
A placer dans le module de la feuille2
La mise à jour se fait à la sélection de feuille 2
Feuil1 comporte un en-tête

Private Sub Worksheet_Activate()
    Dim Plage
    Cells.Clear
    If Feuil1.FilterMode Then Feuil1.ShowAllData
    Set Plage = Feuil1.UsedRange
    Plage.AutoFilter Field:=2, Criteria1:="="
    Plage.SpecialCells(xlCellTypeVisible).Copy [a1]
End Sub