Discussion :

[OLD_BEAR_ZEN]

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

je vous post le code qui marche :

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
Sub 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

La ligne que je veux changer est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:= _
        "BERENICE DUPONT"

je souhaite trier sur "Différent de" Jérome Bleck et cellules vides.

Help

Merci d'avance de votre aide

[Invité]

Bonjour,

Vous devriez regarder ce tuto https://www.developpez.net/forums/bl...ique-surcroit/

[BENNASR]

bonjour
dans le cas et étant débutant, je démarre l'enregistreur automatique des macros et j'obtient ce-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:="<>BERENICE DUPONT"

pour lecture

http://boisgontierjacques.free.fr/pa...tm#SupFiltrage

[OLD_BEAR_ZEN]

Bonjour,

Vous devriez regarder ce tuto https://www.developpez.net/forums/bl...ique-surcroit/

Bonjour M . KERGRESSE,

je n'ai pas trouvé mon bonheur dans le tuto que vous m'avez recommandé (qui est néanmoins est intéressant) ,
celui ci parle de POWER QUERY et non du code VBA dont j'ai besoin.

Merci quand mème de votre réponse

[Invité]

je n'ai pas trouvé mon bonheur dans le tuto que vous m'avez recommandé (qui est néanmoins est intéressant) ,
celui ci parle de POWER QUERY et non du code VBA dont j'ai besoin.

Power Query vous permet de faire d'une façon quasi instantanée sans VBA ce que vous faites avec votre code. Le VBA sert seulement à changer les paramètres de sélection.

[OLD_BEAR_ZEN]

bonjour
dans le cas et étant débutant, je démarre l'enregistreur automatique des macros et j'obtient ce-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:="<>BERENICE DUPONT"

pour lecture

Bonjour BENNASR,
j'avais trouvé pour un argument

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Criteria1:="<>BERENICE DUPONT"

mais je souhaitais trier sur deux arguments,
le deuxième est "différent de cellule vide".
Si vous avez l'info, mer d'avance
Cordialement

[BENNASR]

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:="<>BERENICE DUPONT", _
        Operator:=xlAnd, Criteria2:="<>"

[OLD_BEAR_ZEN]

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:="<>BERENICE DUPONT", _
        Operator:=xlAnd, Criteria2:="<>"

Merci beaucoup cela marche super

A+