Avec l'autofilter, je souhaiterais que le crit=E8re 1 soit =E9gal =E0 toutes
les cellules non vides de la colonne O... Voici...
With Worksheets("P&D")
.Unprotect "hb"
Set Rg =3D .Range("A2:R" & .Range("A65536").End(xlUp).Row)
Application.ScreenUpdating =3D False
With Rg
.AutoFilter field:=3D15, Criteria1:=3D<>"" 'ici Excel recherche
une expression ou un objet....
Set Rg1 =3D .SpecialCells(xlCellTypeVisible)
etc......
Alors, =E0 c=F4t=E9 de criteria1 je souhaite =E9crire ... diff=E9rent de ""
J'ai essay=E9 =3D "<>""" =3D"=3D<>""" =3D"<>"""" et quelques autr=
es
trucs...
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...
On 13 juin, 17:49, Denys <denys.perrea...@rbc.com> wrote:
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:=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 au tres
trucs...
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...