Discussion :

[quent-fgx]

Bonjour à tous,

J'ai créé un userform sur Excel et j'utilise la fonction AdvancedFilter avec laquelle je rencontre une difficulté.
Pour simplifier, je souhaite filtrer le tableau de données suivant :

Numéro de fiche	Numéro de série
1	00123456789
2	7410258963

NB : Les cellules de ce tableau sont en format texte et sont récupérés à partir de textBox de mon userform.

Mon tableau de critère (également en format 'texte') est le suivant :

Numéro de série

0123456789

Mon code VBA est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub filtreAvance1()
 
    'Déclaration des variables
    Dim rgDonnees As Range
    Dim rgCritere As Range
    Dim rgDestination As Range
 
    'Affectation des variables
    Set rgDonnees = Feuil4.Range("A1").CurrentRegion 'équivalent au 1er tableau exemple
    Set rgCritere = Feuil3.Range("Q3").CurrentRegion 'équivalent au 2nd tableau exemple
    Set rgDestination = Feuil2.Range("A1")
 
    'Suppression l'ancien filtre
    Feuil2.Cells.ClearContents
 
    'Exécute l'outil FiltreAvancee
    rgDonnees.AdvancedFilter xlFilterCopy, rgCritere, rgDestination
 
End Sub

J'aimerai que le résultat du filtre soit vide mais ce dernier m'extrait la fiche n°1 associée au numéro de série "00123456789" (dans mon critère, le numéro de série est "0123456789").
J'ai l'impression qu'Excel supprime les "0" du début des nombres, pourtant dans les deux tableaux (données & critère) les cellules sont au format 'texte'.
J'ai essayé différentes variantes telles que modifier mon tableau critère comme tel :

Numéro de série

=0123456789

Cependant, le résultat est le même. La seule solution que j'ai trouvé est de modifier mes numéros de série, en ajoutant une lettre au début comme "b" et là le résultat est conforme à mes attentes. J'aimerai une solution plus optimale s'il vous plaît ?

Merci par avance, bonne journée à vous

[Philippe Tulliez]

Bonjour,
Je ne sais pas si cela peut vous aider mais en plaçant une apostrophe devant le nombre il se comporte comme une valeur alphanumérique

[quent-fgx]

Bonjour,

Merci pour votre retour rapide. J'ai essayé mais cela ne fonctionne pas... J'ai bien ajouté une apostrophe devant mes numéros de série des tableaux données et critère mais rien n'y fait :/

[Philippe Tulliez]

Bonjour,
Une image des données partielles serai un plus car vous avez deux critères "Numéro de fiche" et "Numéro de série", je ne vois pas la raison pour laquelle cela ne fonctionne pas.
Avez vous vérifié si toutes les lignes contenant vos données sont de même type que les critères, à l'aide de la fonction ESTNUM ou ESTTEXTE ?

Sinon, ce serait peut-être plus simple de passer par POWER QUERY

[jurassic pork]

Hello,
dans la plage de critère il faut mettre :

Numéro de série

="0123456789"

Ami calmant, J.P

[quent-fgx]

Bonjour à tous,

Merci pour vos réponses. J'ai tenu compte de vos remarques mais j'ai toujours le même problème. Je vais répondre dans l'ordre à vos remarques.

Bonjour,
Une image des données partielles serai un plus car vous avez deux critères "Numéro de fiche" et "Numéro de série", je ne vois pas la raison pour laquelle cela ne fonctionne pas.
Avez vous vérifié si toutes les lignes contenant vos données sont de même type que les critères, à l'aide de la fonction ESTNUM ou ESTTEXTE ?

Sinon, ce serait peut-être plus simple de passer par POWER QUERY

Dans mon premier message, j'ai présenté deux tableaux, le premier était un exemple restreint de ma table de données et le second mon tableau de critère, le critère est unique, il s'agit du "Numéro de série". @Philippe Tulliez voici une capture d'écran de mon tableau complet de donnée ainsi que mon tableau de critère qui sont à présent sur la même feuille de calcul (j'ai suivi la remarque de @Niagala) :



@Philippe Tulliez, toutes les lignes contenant mes données et en particulier la colonne "Numéro de série" (C2:C4) sont de même type que le critère (J2), à savoir du texte.
Je ne souhaite pas utiliser power query car la méthode filtreAvance1() est appelé depuis un userform.

@jurassic pork, j'ai bien essayé votre conseil mais le filtre ne fonctionne plus du tout. Par exemple lorsqu'en J2 je mets <<="00123456789">>, le filtre ne sort aucun résultat alors qu'il devrait ressortir la fiche n°3.

@Niagala, j'ai essayé mais le problème est le même malheureusement.

En tout cas merci pour vos messages

Je vais créer un fichier Excel "modèle" que je vais vous partager, peut-être plus simple de travailler sur le même document.

Bonne journée à vous

[Philippe Tulliez]

Bonjour Niagala,

Après avoir tenu compte des suggestions de Philippe Tulliez, il faut que rgDonnees et rgCritere soient sur la même feuille pourque le filtre puisse se faire.

Je ne sais pas où vous avez lu dans cette discussion que j'aurais écrit qu'il faut mettre les critères et les données sur la même feuille.
Les trois zones (source des données, critères, et exportation) peuvent parfaitement être sur des feuilles séparées.

[jurassic pork]

Hello

@jurassic pork, j'ai bien essayé votre conseil mais le filtre ne fonctionne plus du tout. Par exemple lorsqu'en J2 je mets <<="00123456789">>, le filtre ne sort aucun résultat alors qu'il devrait ressortir la fiche n°3.

Effectivement il faut mettre en fait :
="=00123456789"

Using the equal sign to type text or a value

Because the equal sign (=) is used to indicate a formula when you type text or a value in a cell, Excel evaluates what you type; however, this may cause unexpected filter results. To indicate an equality comparison operator for either text or a value, type the criteria as a string expression in the appropriate cell in the criteria range:
=''= entry ''
Where entry is the text or value you want to find. For example:

What you type in the cell	What Excel evaluates and displays
="=Davolio"	=Davolio
="=3000"	=3000

Ami calmant, J.P

[Niagala]

'Affectation des variables
Set rgDonnees = Feuil4.Range("A1").CurrentRegion 'équivalent au 1er tableau exemple
Set rgCritere = Feuil3.Range("Q3").CurrentRegion 'équivalent au 2nd tableau exemple

Bonjour

Après avoir tenu compte des suggestions de Philippe Tulliez, il faut que rgDonnees et rgCritere soient sur la même feuille pourque le filtre puisse se faire.

[Niagala]

Bonjour Philippe Tulliez.
Vous ne m'avez pas compris. Je veux dire que après avoir tenu compte de vos propositions de réponses, qu'il tienne aussi compte des miennes.