Ne traiter que les lignes filtrées visibles

Le
René Delcourt
Bonjour,
Je croyais être sauvé avec ce code mais des lignes invisibles sont aussi
traitées!!!

For Each c In
ThisWorkbook.Sheets("TCD").Range("C6:c1000").SpecialCells(xlCellTypeVisible)

Y a t-il une erreur?
--
René Delcourt
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #6407481
Peux-tu mettre un classeur exemple sur www.cjoint.com ?
Daniel
"René Delcourt"
Bonjour,
Je croyais être sauvé avec ce code mais des lignes invisibles sont aussi
traitées!!!

For Each c In
ThisWorkbook.Sheets("TCD").Range("C6:c1000").SpecialCells(xlCellTypeVisible)

Y a t-il une erreur?
--
René Delcourt


JRM
Le #6407471
Bonsoir René,
Pour traiter une plage filtrée utilise l'expression
.Range("_FilterDatabase")
Exemple pour copier une plage filtrée :
Set MaPlage = ThisWorkbook.Sheets("TCD").Range("_FilterDatabase")
MaPlage.Copy Worksheets(3)

Est-ce que ça fonctionne ?
Cordialement,
JRM
Bonjour,
Je croyais être sauvé avec ce code mais des lignes invisibles sont aussi
traitées!!!

For Each c In
ThisWorkbook.Sheets("TCD").Range("C6:c1000").SpecialCells(xlCellTypeVisible)

Y a t-il une erreur?


Jac
Le #6427601
Bonjour René,

avec ceci, ça devrait marcher au quart de tour. Pas besoin de boucle :

[C6].CurrentRegion.SpecialCells(xlCellTypeVisible).Select

On en reparle quand tu veux.

Jac

Bonjour,
Je croyais être sauvé avec ce code mais des lignes invisibles sont aussi
traitées!!!

For Each c In
ThisWorkbook.Sheets("TCD").Range("C6:c1000").SpecialCells(xlCellTypeVisible)

Y a t-il une erreur?


Publicité
Poster une réponse
Anonyme