Microsoft 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
 

Pièces jointes

  • essai fichier polyvalence2.xlsm
    63.7 KB · Affichages: 8

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
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
 

Pièces jointes

  • Copie de essai fichier polyvalence2-1.xlsm
    60.2 KB · Affichages: 7
Dernière édition:

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

Réponses
3
Affichages
343

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof