Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ne lire que les lignes filtrées visibles d'un tableau structuré en vba

treza88

XLDnaute Occasionnel
Bonjour à tous,

Je cherche comment ne lire que les lignes visibles d'un tableau structuré filtré.

J'ai bien ce code qui élimine les lignes de début et de fin, mais pas celles qui sont au milieu :

VB:
firstCell = Worksheets("Planning PF").Range("B:B").Find(1, , xlValues, , xlByRows, xlNext).Row
lastCell = Worksheets("Planning PF").Range("B:B").Find(1, , xlValues, , xlByRows, xlPrevious).Row


'MsgBox (firstCell)
For Each cel In Range("J" & firstCell & ":J" & lastCell)
"code"
Next

Quelqu'un aurait il la solution ?
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

Je cherche comment ne lire que les lignes visibles d'un tableau structuré filtré.

J'ai bien ce code qui élimine les lignes de début et de fin, mais pas celles qui sont au milieu :

VB:
firstCell = Worksheets("Planning PF").Range("B:B").Find(1, , xlValues, , xlByRows, xlNext).Row
lastCell = Worksheets("Planning PF").Range("B:B").Find(1, , xlValues, , xlByRows, xlPrevious).Row

'MsgBox (firstCell)
For Each cel In Range("J" & firstCell & ":J" & lastCell)
"code"
Next
Et il est où le TS dans ce bout de code ???



Une proposition :
VB:
Sub test()
For Each Cellule In Range("t_T1[Jour]").SpecialCells(xlCellTypeVisible)
Debug.Print Cellule.Address & " - "; Cellule.Value
Next Cellule
End Sub

 
Dernière édition:

treza88

XLDnaute Occasionnel
Encore merci à vous deux, pour vos remonté et boutade de TooFatBoy pour essayer d'avancer.

Je ne peux pas mettre le fichier ou même un exemple, sinon je l'aurais fait, je sais que travailler à l'aveugle n'est pas chose facile.

Mais voici deux image du tableau, le bandeau de champs:



Et le menu de trie et de filtrage :



ça ressemble quand même à un tableau structuré !!
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…