Microsoft 365 Probleme Filtre avancé

[manuZ51]

Bonsoir,

J'ai crée un fichier avec une automatisation du lancement du filtre avancé. au debut je n'ai pas mis beaucoup de criteres et tout fonctioné bien. je retrouvais toute ma selection et j'ai augmenté le nombre de criteres en fonction de mon tableau source et depuis plus rien de fontionne. j'ai supprimé ma macro qui me permet de lancer la filtre avancé et recommencé et toujours rien. je vais appel a yeux exterieur pour m'aiguiller car je ne vois pas ce qui peche....

Merci par avance de votre aide

Manu

 

[djidji59430]

Bonjour à tous,

T'as essayé avec un TCD ?

 

[BOISGONTIER]

Bonjour,

C'est le nom de la zone de critères qui ne doit pas être ok.

Sub FiltreData()
    Sheets("Base1").Range("A1:J10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A6:J7"), CopyToRange:=Range("A10:J10"), _
        Unique:=False
End Sub

Boisgontier

 

[manuZ51]

Bonjour à tous,

T'as essayé avec un TCD ?

merci Djidji mais je prefere rester sur ma structure. Le TCD sera utilisé pour une autre recherche.

 

[manuZ51]

Bonjour,

C'est le nom de la zone de critères qui ne doit pas être ok.

Sub FiltreData()
    Sheets("Base1").Range("A1:J10000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A6:J7"), CopyToRange:=Range("A10:J10"), _
        Unique:=False
End Sub

Boisgontier

Merci BOISGONTIER je vais essyaer tout ça demain matin car avec mon Macbook rien ne fonctionne.

 

[BOISGONTIER]

Nouvelle version

Boisgontier

 

[manuZ51]

Excellent Merci a toi a surtout a l'heure ou tu l'as poste chapeau MERCI MERCI

 

[manuZ51]

Question est-il possible d'avoir deux macros filtres (avc nom differents) qui lancent un filtre avancé via une autre BD avec un lien commun entre les deux BD car il apres quelques essais j'avais pas mal de conflit. je vais refaire un essai avec ton nouveau fichier et des getionnaires de noms modifiés.

 

[BOISGONTIER]

Bonjour,

>car avec mon Macbook rien ne fonctionne.

http://boisgontierjacques.free.fr/fichiers/fonctionsperso/FonctionSansDoublonsTrieMAC2.xls

Boisgontier

 

[manuZ51]

Merci Jacques ton site est vraiment top je m'en inspire beaucoup

 

[manuZ51]

Bonjour Jacques

j'aurai besoin d'information sur la macro ci-jointe que tu as developpé

Function SansDoublonsTrié(champ As Range)
Set mondico = CreateObject("Scripting.Dictionary")
mondico.CompareMode = vbTextCompare
a = champ
For Each c In a
If Not mondico.Exists(c) And c <> "" Then mondico(c) = ""
Next c
Dim temp()
ReDim temp(1 To Application.Caller.Rows.Count)
If mondico.Count > Application.Caller.Rows.Count Then SansDoublonsTrié = "Pas assez de lignes!": Exit Function
i = 1
For Each c In mondico.keys
temp(i) = c
i = i + 1
Next
Tri temp, LBound(temp), i - 1
SansDoublonsTrié = Application.Transpose(temp)
End Function

car je rencontre un probleme avec la mention ="pas assez de lignes!" plusieurs colonnes apparait cette mention depuis que j'ai ajouter des données (environ 2500lignes) sur mon tableau si tu pouvait m'aiguiller je suis preneur de toutes les bonnes infos

Merci a l'avance

Manu