OVH Cloud OVH Cloud

Tri avec nom du fichier

4 réponses
Avatar
Erico
Salut la gang,

J'ai des probl=E8mes avec le tri automatique en macro.

Premier tri, je demande le nom du fichier.
Deuxi=E8me tri, un nom diff=E9rent du nom de fichier.

Le deuxi=E8me tri ne fonctionne pas bien.
_________
1ere Tri

Selection.AutoFilter Field:=3D1,
Criteria1:=3DLeft(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4), Operator:=3DxlAnd
_________
2e Tri
Selection.AutoFilter Field:=3D3,
Criteria1:=3D"<>Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4)", Operator:=3D _
xlAnd

Merci

=C9rico du Canada (Montr=E9al)

4 réponses

Avatar
sabatier
salut érico
ici c'est le gang ou la gangue mais tu me diras qu'à bénares, le long
des gats, c'est le gange
jps

Erico a écrit:
Salut la gang,

J'ai des problèmes avec le tri automatique en macro.

Premier tri, je demande le nom du fichier.
Deuxième tri, un nom différent du nom de fichier.

Le deuxième tri ne fonctionne pas bien.
_________
1ere Tri

Selection.AutoFilter Field:=1,
Criteria1:=Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd
_________
2e Tri
Selection.AutoFilter Field:=3,
Criteria1:="<>Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4)", Operator:= _
xlAnd

Merci

Érico du Canada (Montréal)


Avatar
Érico
Personne a la réponse????
Érico

"sabatier" a écrit dans le message de news:

salut érico
ici c'est le gang ou la gangue mais tu me diras qu'à bénares, le long
des gats, c'est le gange
jps

Erico a écrit:
Salut la gang,

J'ai des problèmes avec le tri automatique en macro.

Premier tri, je demande le nom du fichier.
Deuxième tri, un nom différent du nom de fichier.

Le deuxième tri ne fonctionne pas bien.
_________
1ere Tri

Selection.AutoFilter Field:=1,
Criteria1:=Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd
_________
2e Tri
Selection.AutoFilter Field:=3,
Criteria1:="<>Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4)", Operator:= _
xlAnd

Merci

Érico du Canada (Montréal)





Avatar
isabelle
bonjour Érico,

est ce comme ça ça va ?

Selection.AutoFilter Field:=1, _
Criteria1:="=" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd
'_________
'2e Tri
Selection.AutoFilter Field:=3, _
Criteria1:="<>" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd

isabelle


Personne a la réponse????
Érico

"sabatier" a écrit dans le message de news:

salut érico
ici c'est le gang ou la gangue mais tu me diras qu'à bénares, le long
des gats, c'est le gange
jps

Erico a écrit:
Salut la gang,

J'ai des problèmes avec le tri automatique en macro.

Premier tri, je demande le nom du fichier.
Deuxième tri, un nom différent du nom de fichier.

Le deuxième tri ne fonctionne pas bien.
_________
1ere Tri

Selection.AutoFilter Field:=1,
Criteria1:=Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd
_________
2e Tri
Selection.AutoFilter Field:=3,
Criteria1:="<>Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4)", Operator:= _
xlAnd

Merci

Érico du Canada (Montréal)







Avatar
Érico
My god Isabelle!!!!!!!!!!
Ça marcheeeeeeeeee!
C'Est quoi tu fais dans vie pour être bonne de même?
Je suppose que tu fais de la programmation en Visual Basic?
Je vais te devoir une bière.

Érico de Montréal avec videotron

"isabelle" a écrit dans le message de
news:
bonjour Érico,

est ce comme ça ça va ?

Selection.AutoFilter Field:=1, _
Criteria1:="=" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd
'_________
'2e Tri
Selection.AutoFilter Field:=3, _
Criteria1:="<>" & Left(ActiveWorkbook.Name, _
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd

isabelle


Personne a la réponse????
Érico

"sabatier" a écrit dans le message de news:

salut érico
ici c'est le gang ou la gangue mais tu me diras qu'à bénares, le long
des gats, c'est le gange
jps

Erico a écrit:
Salut la gang,

J'ai des problèmes avec le tri automatique en macro.

Premier tri, je demande le nom du fichier.
Deuxième tri, un nom différent du nom de fichier.

Le deuxième tri ne fonctionne pas bien.
_________
1ere Tri

Selection.AutoFilter Field:=1,
Criteria1:=Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4), Operator:=xlAnd
_________
2e Tri
Selection.AutoFilter Field:=3,
Criteria1:="<>Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Name) - 4)", Operator:= _
xlAnd

Merci

Érico du Canada (Montréal)