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![]()
Partager