Autofilter

Le
Denys
Bonjour à tous,

Avec l'autofilter, je souhaiterais que le critère 1 soit égal à toutes
les cellules non vides de la colonne O Voici

With Worksheets("P&D")
.Unprotect "hb"
Set Rg = .Range("A2:R" & .Range("A65536").End(xlUp).Row)

Application.ScreenUpdating = False
With Rg
.AutoFilter field:=15, Criteria1:=<>"" 'ici Excel recherche
une expression ou un objet.
Set Rg1 = .SpecialCells(xlCellTypeVisible)
etc

Alors, à côté de criteria1 je souhaite écrire différent de ""

J'ai essayé = "<>""" ="=<>""" ="<>"""" et quelques autr=
es
trucs

Z'auriez une p'tite idée?

Merci

Denys
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
JB
Le #4916211
Bonjour,

Sheets("feuil1").[A1].AutoFilter
Sheets("feuil1").[A1].AutoFilter Field:, Criteria1:="<>"

http://cjoint.com/?gnssXCVBM8

JB

On 13 juin, 17:49, Denys
Bonjour à tous,

Avec l'autofilter, je souhaiterais que le critère 1 soit égal à tou tes
les cellules non vides de la colonne O... Voici...

With Worksheets("P&D")
.Unprotect "hb"
Set Rg = .Range("A2:R" & .Range("A65536").End(xlUp).Row)

Application.ScreenUpdating = False
With Rg
.AutoFilter field:, Criteria1:=<>"" 'ici Excel recherche
une expression ou un objet....
Set Rg1 = .SpecialCells(xlCellTypeVisible)
etc......

Alors, à côté de criteria1 je souhaite écrire ... différent de ""

J'ai essayé = "<>""" ="=<>""" ="<>"""" et quelques au tres
trucs...

Z'auriez une p'tite idée?

Merci

Denys


Denys
Le #4916171
Bonjour JB,

Merci infiniment...

Bonne journée

Denys
Publicité
Poster une réponse
Anonyme