XL 2016 Bug sur courant alternatif pour récupérer cellules visibles

sousou

XLDnaute Barbatruc

• 25 Novembre 2021

• #2

Bonjour
Comme-ceci, mais je ne m'explique pas trop
MsgBox ThisWorkbook.Worksheets("BdD_ysorder_xls").ListObjects("BdD_ysorder_xls").AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

 

Vote positif 0 Vote négatif

N

Nicocotte125

XLDnaute Nouveau

• 25 Novembre 2021

• #3

Bonjour,
Merci, pour compter le nombre de lignes effectivement ca fonctionne
Par contre pour récupérer le contenu des cellules visibles, la je suis coincé ! (ou alors il faudrait que je créer une boucle façon usine à gaz !)

J'ai l'impression que c'est la structure de la table en elle même qui pose problème, mais je n'arrive pas à savoir en quoi !

Peut-être que quelqu'un connait une autre syntaxe / fonction vba qui pourrait récupérer les résultat du filtre ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2021

• #4

Bonjour Nicocotte125, sousou,

Comptez les cellules visibles d'une colonne :

VB:

MsgBox ("Nbr ligne visible =" & ThisWorkbook.Sheets("BdD_ysorder_xls").ListObjects("BdD_ysorder_xls").DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count)

affiche bien 4.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2021

• #5

Et il est bien plus simple d'écrire :

VB:

MsgBox "Nbr ligne visible =" & [BdD_ysorder_xls].Columns(1).SpecialCells(xlCellTypeVisible).Count

 

Vote positif 0 Vote négatif

N

Nicocotte125

XLDnaute Nouveau

• 25 Novembre 2021

• #6

Merci, mais en fait ce qui m'intéresse à terme, c'est surtout de récupérer certaines informations contenues dans chacune des lignes. Hors en ne pointant que sur une colonne, à moins d'écrire du code pas très élégant, je ne peux pas récupéré le contenu de la colonne "J-Article client Ref" et "K-Article Client Desig" par exemple, car il me faudra un équivalent du code ci-dessous :

VB:

Extrait_Nomenclature = ThisWorkbook.Worksheets("BdD_ysorder_xls").Range("A2:AA" & Derniere_Ligne_Commande).SpecialCells(xlCellTypeVisible).Rows

Après si personne ne trouve ce qui dans la table fait que les résultats avec

Code:

.row

sont parfois cohérents, parfois incohérents, je ferais autrement. J'ai juste l'impression que le problème est bête comme chou, mais je n'arrive pas à mettre le doigt sur la source !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2021

• #7

Avec la méthode que j'ai indiquée c'est très simple :

VB:

Dim colJ As Range, colK As Range
Set colJ = [BdD_ysorder_xls].Columns(10).SpecialCells(xlCellTypeVisible)
Set colK = [BdD_ysorder_xls].Columns(11).SpecialCells(xlCellTypeVisible)

Vous pouvez ensuite copier-coller ces 2 plages où vous voulez ou les analyser par des boucles.

 

Vote positif 0 Vote négatif

N

Nicocotte125

XLDnaute Nouveau

• 25 Novembre 2021

• #8

Merci...

Toutefois si j'arrive à percer le mystère du .

VB:

.row

facétieux, je mettrais à jour ce fil de discussion. Si dans le cadre de cet exemple, je me suis aperçu du problème parmi les quelques 16 500 lignes de la table, j'aurais préféré comprendre la génèse histoire pour repartir plus emprunt de plus de certitudes.

Si dans 2 à 3 semaines je n'ai pas trouver d'explication satisfaisante je clôturerai ce fil de discussion ...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Novembre 2021

• #9

Un fil n'est jamais clos, il est résolu ou pas.

Moi je l'ai résolu 2 fois

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Novembre 2021

• #10

Bonjour à tous
un exemple pour récuperer tes données
Sub Macro1()
'
' Macro1 Macro
Set zone = ThisWorkbook.Sheets("BdD_ysorder_xls").ListObjects("BdD_ysorder_xls").DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Rows

MsgBox ("Nbr ligne visible =" & ThisWorkbook.Sheets("BdD_ysorder_xls").ListObjects("BdD_ysorder_xls").DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count)
'
'MsgBox zone.Address

For Each lg In zone
phrase = phrase & lg.Columns(8) & "/" & lg.Columns(9) & Chr(13)

Next
MsgBox phrase
End Sub

 

Vote positif 0 Vote négatif

N

Nicocotte125

XLDnaute Nouveau

• 26 Novembre 2021

• #11

sousou à dit:

Bonjour à tous
un exemple pour récuperer tes données
Sub Macro1()
'
' Macro1 Macro
Set zone = ThisWorkbook.Sheets("BdD_ysorder_xls").ListObjects("BdD_ysorder_xls").DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Rows

MsgBox ("Nbr ligne visible =" & ThisWorkbook.Sheets("BdD_ysorder_xls").ListObjects("BdD_ysorder_xls").DataBodyRange.Columns(1).SpecialCells(xlCellTypeVisible).Count)
'
'MsgBox zone.Address

For Each lg In zone
phrase = phrase & lg.Columns(8) & "/" & lg.Columns(9) & Chr(13)

Next
MsgBox phrase
End Sub

Cliquez pour agrandir...

Merci...

c'est grosso-modo ce que je comptais faire en guise de plan B-

VB:

.cells

(en attendant de comprendre ou ça coince dans la plan A-

Code:

.rows

)... quand au Msgbox, c'était juste pour illustrer mes propos ;-)....

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 26 Novembre 2021

• #12

oui

 

Vote positif 0 Vote négatif