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

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #2

Bonjour Robin, bojour le forum,

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

 

Vote positif 0 Vote négatif

R

Robin78

XLDnaute Nouveau

• 11 Mai 2020

• #3

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

Merci par avance

 

Pièces jointes

• Test.jpg

  168.8 KB · Affichages: 21

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #4

Re,

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

 

Vote positif 0 Vote négatif

R

Robin78

XLDnaute Nouveau

• 11 Mai 2020

• #5

J'adore le ricard.

 

Pièces jointes

• Test.xlsx

  9 KB · Affichages: 8

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #6

Re,

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

 

Vote positif 0 Vote négatif

G

Genii

XLDnaute Junior

• 11 Mai 2020

• #7

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

 

Pièces jointes

• Copie de Test.xlsm

  23.7 KB · Affichages: 6

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 11 Mai 2020

• #8

Re,

Robin78 à dit:

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.

Cliquez pour agrandir...

Bon... Je passe la main...

 

Vote positif 0 Vote négatif

R

Romain31

XLDnaute Occasionnel

• 11 Mai 2020

• #9

Bonjour Robin78,

A tester

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

Bonne journée

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 11 Mai 2020

• #10

Bonjour à tous,

Sans VBA par filtre ou par TCD

JHA

 

Pièces jointes

• Copie de Test.xlsm

  31.4 KB · Affichages: 4

Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc

• 11 Mai 2020

• #11

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

VB:

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

 

Dernière édition: 11 Mai 2020

Vote positif 0 Vote négatif