Office 365 Probleme Filtre avancé

manuZ51

XLDnaute Nouveau
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
 

Fichiers joints

BOISGONTIER

XLDnaute Barbatruc
Bonjour,

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

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

Boisgontier
 

Fichiers joints

Dernière édition:

manuZ51

XLDnaute Nouveau
Bonjour,

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

VB:
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.
 

manuZ51

XLDnaute Nouveau
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.
 

manuZ51

XLDnaute Nouveau
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
 

Discussions similaires


Haut Bas