Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Peux-tu mettre un classeur exemple sur www.cjoint.com ? Daniel "René Delcourt" a écrit dans le message de news:
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
Peux-tu mettre un classeur exemple sur www.cjoint.com ?
Daniel
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
E8E4FDF0-7769-4EDF-9ABC-86848CFEB41E@microsoft.com...
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)
Peux-tu mettre un classeur exemple sur www.cjoint.com ? Daniel "René Delcourt" a écrit dans le message de news:
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
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?
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)
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
Bonjour René,
avec ceci, ça devrait marcher au quart de tour. Pas besoin de boucle :