Bonjour à toutes et à tous,
je vous expose mon souci, dans un fichier à traitement bi-mensuel, j'ai souhaité automatiser plusieurs opérations
qui étaient faites avant traitement des données. J'ai donc essayé de faire une macro VBA dans Excel 365.
Après avoir réalisé ma première macro VBA, le résultat attendu était là.
Puis après réflexion, il m'a semblé que le tri nominatif sur un nom qui pouvait changer au fil du temps n'était pas optimum.
Alors j'ai voulu effectuer un tri sur une colonne, avec une opération "différent de" et sur deux critères, CATASTROPHE.
Malgré la lecture de la doc Microsoft sur "AutoFilter" et la lecture de quelques forums, mais surtout quelques tentatives de ma part.
Rien ne marche :mur:
je vous post le code qui marche :
La ligne que je veux changer est :Code:
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
42Sub Test_Impayes() ' ' Test_Impayes Macro ' Traitement du fichier des impayés ' ' Supprimer les cellules fusionnées dans la première ligne ' afin de réaliser le traitement du fichier Rows("1:1").Select Selection.UnMerge 'Tri et suppresion des dossiers traités par Bérénice ' puis affichage de la colonne avec les cellules vides et de Jérome Bleck ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:= _ "BERENICE DUPONT" Rows("16:3000").Select Selection.Delete ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6 ' Selection et suppression des colonnes inutiles Range("A:F,H:H").Select Range("H1").Activate Range("A:F,H:H,L:O,U:W").Select Range("U1").Activate Selection.Delete 'Tri du mois -1 = 0 euros ActiveSheet.Range("$A$15:$I$3000").AutoFilter Field:=6, Criteria1:="0,00" ' fin provisoire de la macro Range("D16").Select End Sub
je souhaite trier sur "Différent de" Jérome Bleck et cellules vides.Code:
2
3
Help :help:
Merci d'avance de votre aide
