Discussion :

[yayasiano]

Bonjour à tous.
Avant de poster j'ai beaucoup cherché sur ce problème d'autofiltre mais je n'ai trouvé aucune réponse.
En fait lorsque j'effectue un filtre manuellement sur une colonne avec un critère ici le critère est "VRAI " il fonctionne normalement.
En integrant le code que me donne l'enregistrement à ma macro le filtre fonctionne bien mais me cache tout les resultats je ne vois pas les valeurs qu'il a filtré a vrai dire je ne vois plus rien, seulement les cellules vides.
A cause de ca mon code ne va pas chercher les bonnes variable é il s'en suit un nombre d'erreurs alala!! mon dieu...
Je ne comprend vraiment pas voici un bout de mon code

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
 
    j = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").FormulaLocal = "=NB.SI(A:A;A2)>1"
    Range("U2").Copy Range("U2:U" & j)
    Range("V2").FormulaLocal = "=SI(A2=A3;""SUPPR"";"""")"
    Range("V2").Copy Range("V2:V" & j)
 
    'Flitrage des doublons VRAI
    Range("U1").Select
    Selection.AutoFilter Field:=21, Criteria1:="VRAI"
 
    'Décalage d'une cellule vers le bas des commentaires de la colonne R
    Range("R65536").End(xlUp).Select
    Range("R2", Selection).Select
    Selection.Cut
    Range("R3").Select
    ActiveSheet.Paste

Je n'ai pas de message d'erreur mais le filtre ne fonctionne pas j'ai testé en pas à pas et lorsque j'arrive à cette ligne il ne m'affiche pas les lignes ou il y a "VRAI".

Merci d'avance pour vos réponses

[pgz]

Bonjour.

Impossible n'est pas français, mais VBA non plus!
Essaie en remplaçant dans ton code le critère "VRAI" par "True" ou True.

PGZ

[yayasiano]

Impeccable pqz franchement merci beaucoup.
Par contre j'ai le meme soucis avec cet autre filtre qui se trouve sur la colonne suivante il ne veut pas me sélectionner les bonnes lignes le mot SUPPR est inséré à partir d'une formule.
Et je voudrais activer les deux filtres pour avoir les lignes VRAI SUPPR

Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    'comptage des lignes afin d'étendre la formule des SUPPR.
    j = Range("A" & Rows.Count).End(xlUp).Row
    Range("V2").FormulaLocal = "=SI(A2=A3;""SUPPR"";"""")"
    Range("V2").Copy Range("V2:V" & j)
 
    'Flitrage des SUPPR et suppression
    Selection.AutoFilter Field:=22, Criteria1:="SUPPR"
    Range("A1").End(xlDown).Select
    Range("A2", Cells(ActiveCell.Row, 22)).Select
    Selection.Delete
 
    'Retrait des filtres Doublons et SUPPR Mise en place filtre Statut
    Selection.AutoFilter Field:=21
    Selection.AutoFilter Field:=22

[yayasiano]

J'ai remplacé le SUPPR par un FALSE et tout fonctionne parfaitement.
En fait peu importe le mot que vous mettez dans la formule. il faut le remplacer par un mot anglais. Du moins dans la version 2000

[Godzestla]

Du moins dans la version 2000

Et dans les autres aussi.
En fait dans tes feuilles excel, les fonctions sont traduites à l'affichage si tu passes le fichier d'un poste avec une langue à un poste avec une autre.
Ex : SOMMESI en FR dans une cellulle devient SUMIF en UK.
(en stockage interne, cela reste UK).

Mais pour le code VBA, pas de conversion par défaut. Donc, il faut coder en Anglais. Si tu veux éviter l'ambiguité entre un SI et un TRUE, tu utilises .FORMULA au lien de .FORMULALOCAL et tu utilises IF.
Question de goùt.