Discussion :

[ProjetRH]

Bonjour à tous,

Comme débutant confirmé je n'arrive pas à résoudre cette ligne de code,
je souhaite ajouter à "13C*" et "PHS*" de nouveaux caractères à trier comme "HSF*" et "PCO*" ( pour info PHS_0_FJ1 mais le tri ne doit être que sur "PHS" sans tenir compte du reste)

dans ce cas ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("$A$1:$Y$93").AutoFilter Field:=9, Criteria1:=Array( _
        "13C* ", "phs* "), Operator:=xlFilterValues

Si j'ajoute cela ne fonctionne plus..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("$A$1:$Y$93").AutoFilter Field:=9, Criteria1:=Array( _
        "13C* ", "PHS* ", "HSF*", "PCO* "), Operator:=xlFilterValues

Merci beaucoup pour votre aide

[OBO29]

Si j'ajoute cela ne fonctionne plus..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("$A$1:$Y$93").AutoFilter Field:=9, Criteria1:=Array( _
        "13C* ", "PHS* ", "HSF*", "PCO* "), Operator:=xlFilterValues

Comme ça sa donne quoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ActiveSheet.Range("$A$1:$Y$93").AutoFilter Field:=9, Criteria1:=Array( _
        "13C* ", "phs* ", "HSF*", "PCO* "), Operator:=xlFilterValues

[Invité]

Bonjour,
Comme ça arrive très souvent, tu nous exposes ta problématique, sens donner de précisions sur la finalité!

Et comme ça arrive souvent, nous allons tenter de t'aider à résoudre ton problème! Ce qui est bien en soit mais il arrive qu'une solution plus adapté existe mais implique de connaitre le but final!

Indépendamment de ça il y a des espaces dans tes critères après *

[joe.levrai]

Je n'ai rien compris à

pour info PHS_0_FJ1 mais le tri ne doit être que sur "PHS" sans tenir compte du reste

ça veut dire quoi exactement ?


ou bien je n'arrive plus à réfléchir, et ça s'expliquerait par ce que dis rdurupt

le bu final!

hipss, la bouteille est vide !!

[SfJ5Rpw8]

Bonsoir,

il semble que comme lorsque tu utilise le filtre dans excel tu ne peu utiliser les caractères générique que pour 2 critères seulement, si tu dépasse 2 critères les caractères générique ne sont pas pris en compte et sont "échappé" le filtre d* ne revoit plus tous les champs qui commence par d mais renvoi les champs contenant le caractère d suivi du caractère *.

[Invité]

Et oui Joe j'ai jamais vraiment été capable de conjuguer le verbe boire!

[ProjetRH]

( pour info PHS_0_FJ1 mais le tri ne doit être que sur "PHS" sans tenir compte du reste)

Bonjour,

Merci pour votre réponse, la finalité est de trier dans une colonne sur les trois premier caractères; exemple, "PHS_0_FJ1" je souhaite trier et retenir
touttes les cellules qui commencent par PHS, PHC, HSF, 13C
Dans le cas ci dessous le tri fonctionne pour deux critères mais comment ajouter de nouveaux critères ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
'
 
'
    ActiveSheet.Range("$A$1:$Y$93").AutoFilter Field:=9, Criteria1:=Array( _
        "13C* ", "phs* "), Operator:=xlFilterValues
End Sub

PHC_1_FJ3
PHS_1_FJ4
PHC_1_FJ3
PHC_1_FJ3
PHS_1_FJ2
PHC_1_FJ3
PHC_1_FJ3
HSF_0_KA2
PHC_1_FJ3
13C_0_FJ1

Merci beaucoup

[joe.levrai]

Est-il nécessaire de filtrer sur place les données, ou une exportation du résultat vers une autre feuille te conviendrait ?

[Invité]

Oui Joe tu m'as volé la politesse!

En effet trier ne veut pas dire filtrer, retenir veux dire garder donc supprimer les autres!

La finalité est comme le disait Joe un petit export (un copier coller), si c'est ça comme je le disais en début il était existe un solution autre.

[ProjetRH]

Est-il nécessaire de filtrer sur place les données, ou une exportation du résultat vers une autre feuille te conviendrait ?

Compte tenu de l'utilisation, il est nécéssaire de conserver les donneés
Merci