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