Discussion :

[Travelleroftheworld]

Bonjour à tous

Je débute dans les macro et je rencontre un petit soucis (dont je cherche la réponse depuis des heures) sur une macro que je suis en train de créer


Pour faire simple, l'idée est que dans
- dans le premier onglet : nous avons la base de données (tirées d'un logiciel, toujours le même format)
- dans le deuxième onglet : nous avons deux parties
- la partie "éléments à rechercher" => c'est très simple, les champs sont les mêmes que
les titres dans l'extraction du premier onglet et l'utilisateur vient taper ou coller l'info qu'il
recherche
- la seconde " éléments trouvés" donne le résultat via une macro

ça permettrais à l'utilisateur de faire des cherches rapidement sans trop de manipulation

Il y a différents types de données mais là ou j'ai un problème est lorsque je rencontre une valeur numérique

Au début ça ne remontait rien

J'ai mis en format teste puis remplacé les "." par des "," et maintenant je récupère les chiffres à virgule dans mon filtre mais il me manque toujours les nombres entiers



Voici une version simplifiée du code ( un exemple avec juste la partie filtre numérique)
Dans mon fichier je cherche sur une plage donnée les montants avec un 1 dedans
J'ai 139, 15.3 et 342.1 et je ne récupère que les deux derniers

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
21
22
23
24
 
Sub TestFiltreNum()
 
    Selection.AutoFilter
 
    Range("b6:b10").Replace ".", ","
    Range("b6:b10").NumberFormat = "@"
    ActiveSheet.Range("$B$5:$B$10").AutoFilter Field:=1, Criteria1:=Array("*1*"), Operator:=xlFilterValues
     Range("b6:b10").Replace ",", "."
 
   Range("b6:b10").NumberFormat = "General"
 
 Range("B5").Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 
   Range("F5").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 
   ActiveSheet.ShowAllData
   Range("b6:b10").NumberFormat = "General"
   Range("b6:b10").Replace ",", "."
End Sub

Est ce que vous sauriez comment récupérer les entiers ?

Un grand merci d'avance pour votre aide

[78chris]

Bonjour

Le moins qu'on puisse dire est que c'est tiré par les cheveux !

Filtrer ou extraire des nombres ne pose pas de problème si le tableau contient des nombres...

Qu'en est-il ?

Que saisissent les utilisateurs et où ?

C'est typiquement une extraction par filtre avancé qui ne nécessite pas ce chemin tortueux...

Joins une copie d'écran de quelques lignes de la base et de la feuille résultat

[Travelleroftheworld]

Bonjour Chris

et merci de me répondre

Dans cette colonne, il n'y aura que des nombres

Les autres colonnes ont des dates ou du texte mais j'arrive à faire les filtres qu'il faut en spécifiant la colonne et le type de filtre en fonction du format des données

Mais par contre, dés que c'est du numérique je n'y arrive pas (j'ai mis l'exemple en pièce jointe)
Je pensais trouver une solution simple mais là je vois pas

J'essaie juste de faire ça basiquement :




Merci encore

[78chris]

RE

Comme dit, je pense qu'il faut t'orienter vers un filtre avancé et non une copie avec des conversions.

Ton exemple n’illustre pas le cas réel, juste un bout de ton problème tel que tu as imaginé le résoudre... donc n'aide pas à reprendre les choses correctement

[Travelleroftheworld]

Le fichier se présente ainsi (il est brut)

Dans la partie du haut, l'utilisateur vient taper manuellement ce qu'il cherche (un critère seulement)

Il clique sur test

et ça lui donne les résultats c'est à dire les champs contenant la recherche(il n'a pas besoin de chercher facture, f suffit)



je ne connais pas du tout les filtres avancés
Je ne sais pas si ça peut me donner le même résultat ....