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