Filtre élaboré par VBA

[Jacques25]

Bonsoir à tous,

Je rencontre un problème avec le code suivant :

'Tri par client
Dim Source As Range
Dim Criteria As Range
Dim Cible As Range
Dim j As Byte
'Définition des critères
Set Source = Range("B1:F350")
Set Criteria = Range("I104")
Set Cible = Range("I106")


For j = 1 To 52

Source.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range(Criteria.Offset(0, j), Criteria.Offset(1, j)), _
CopyToRange:=Range(Cible.Offset(0, j), Criteria.Offset(99, j)), _
Unique:=True
Next

En fait j'ai une base de données avec client/référence/désignation...

Avec ce bout de code, je fais une de désignation par client tout se passe à l'exception d'une configuration où j'ai un client ARVA et un autre ARVA2. Quand je lance le filtre :
dans ARVA j'ai la liste des désignations du client ARVA mais aussi du client ARVA2
dans ARVA je n'ai que le client ARVA2

Comment puis améliorer le code pour que chaque client ait ses propres désignations?

Merci pour votre coup de main.

Jacques

 

[CB60]

Re : Filtre élaboré par VBA

Bonsoir
est il possible que tu nous fasse parvenir un petit bout de fichier pour voir ta base et le travail que tu a réalisé?

 

[Jacques25]

Re : Filtre élaboré par VBA

Salut CB60,

Voilà le fichier, pour info le bout de code posté se trouve dans le code du bouton valider de l'userform


Merci de ton aide

Jacques

 

[CB60]

Re : Filtre élaboré par VBA

re
je connais un peu les filtres, mais pour moi les USF dur dur.
Je ne te serais donc pas d'une grande utilitée.
Désolé!!!

 

[Jacques25]

Re : Filtre élaboré par VBA

Re

Merci de t'être penché sur le sujet, j'espère que d'autres pourront m'approter leur aide.

@ plus

Jacques

 

[Jacques25]

Re : Filtre élaboré par VBA

Bonjour à tous,

Je venais faire un ptit tour pour voir si quelqu'un avait une idée sur mon problème, j'ai refais des essais depuis hors VBA en mettent simplement un espace derrière ARVA, ça fonctionne. Le seul soucis, comme j'utilise le nom du client pour nommer mes plages, l'espace n'est pas admis donc là je sèche.

Merci pour votre aide.

Jacques