Discussion :

[Fitis]

Bonjour à tous,

J'aurais besoin de votre aide concernant la création d'une macro. J'ai utilisé l'outil "Enregistrer une macro".
J'ai sur mon fichier de base des valeurs avec des "." que je souhaite transformer en "," pour pas voir effectuer un tri numérique et ne conserver que les valeurs >5,0. Le problème, c'est que la macro élimine tous les nombres entiers et ne conserve que les nombres avec des virgules ou inversement selon les essais de code.
J'ai beau changer le format en "Nombre", cela ne marche toujours pas. Pourtant quand je le fais manuellement directement dans le fichier, il n'y a pas de problème.

De plus, le nom du premier onglet étant différent pour chaque fichier que je dois analyser, il faut un nom identique de la feuille 1 pour appliquer la macro en toute circonstance.
J'ai essayé avec Sheet(1) ou ActiveWorkbook.Worksheets(1) mais cela ne semble pas fonctionner.

Je vous joins en pièce-jointe quelques lignes d'un fichier type.

Merci d'avance pour vos réponses !

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
Sub Filt()
'
' Filt Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+K
'
    Columns("T:T").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "0,00"
    Range("C1").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("G.variant_report.table1").AutoFilter.Sort. _
        SortFields.Clear
    ActiveWorkbook.Worksheets("G.variant_report.table1").AutoFilter.Sort. _
        SortFields.Add Key:=Range("T1:T239671"), SortOn:=xlSortOnValues, Order:= _
        xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("G.variant_report.table1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.ScrollRow = 323
    ActiveWindow.ScrollRow = 3866
    ActiveWindow.ScrollRow = 4832
    ActiveWindow.ScrollRow = 5154
    ActiveWindow.ScrollRow = 14494
    ActiveWindow.ScrollRow = 15461
    ActiveWindow.ScrollRow = 26090
    ActiveWindow.ScrollRow = 26412
    ActiveWindow.ScrollRow = 28666
    ActiveWindow.ScrollRow = 31243
    ActiveWindow.ScrollRow = 42838
    ActiveWindow.ScrollRow = 49924
    ActiveWindow.ScrollRow = 51534
    ActiveWindow.ScrollRow = 64418
    ActiveWindow.ScrollRow = 66028
    ActiveWindow.ScrollRow = 72148
    ActiveWindow.ScrollRow = 74081
    ActiveWindow.ScrollRow = 76335
    ActiveWindow.ScrollRow = 76657
    ActiveWindow.ScrollRow = 78590
    ActiveWindow.ScrollRow = 82777
    ActiveWindow.ScrollRow = 84709
    ActiveWindow.ScrollRow = 92762
    ActiveWindow.ScrollRow = 93406
    ActiveWindow.ScrollRow = 95338
    ActiveWindow.ScrollRow = 99848
    ActiveWindow.ScrollRow = 102102
    ActiveWindow.ScrollRow = 103068
    ActiveWindow.ScrollRow = 108866
    ActiveWindow.ScrollRow = 109510
    ActiveWindow.ScrollRow = 113697
    ActiveWindow.ScrollRow = 114664
    ActiveWindow.ScrollRow = 114986
    ActiveWindow.ScrollRow = 115308
    ActiveWindow.ScrollRow = 115630
    ActiveWindow.ScrollRow = 113375
    ActiveWindow.ScrollRow = 90185
    ActiveWindow.ScrollRow = 47347
    ActiveWindow.ScrollRow = 43804
    ActiveWindow.ScrollRow = 28022
    ActiveWindow.ScrollRow = 27378
    ActiveWindow.ScrollRow = 14817
    ActiveWindow.ScrollRow = 13206
    ActiveWindow.ScrollRow = 5476
    ActiveWindow.ScrollRow = 5154
    ActiveWindow.ScrollRow = 1
    ActiveSheet.Range("$A$1:$DS$239671").AutoFilter Field:=20, Criteria1:= _
        ">=5,0", Operator:=xlAnd
End Sub