Filtre Elaboré et macro

Bonjour,

Je vous écris à nouveau pour un souci d’un tout autre genre.

Voilà, j’ai une macro qui copie les valeurs d’une colonne de ma base source sans doublons et qui les collent dans une autre feuille. J’ai essayé de la faire la plus générique possible afin de pouvoir m’en servir sur n’importe quelles feuille et colonnes de mon classeur :

Je vous mets ci-dessous la boucle qui pose problème

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Ctr =1   For Each cell In Range(Plage) If Not IsNumeric(Application.Match(cell.Value, Sheets(FeuilDest).Columns(ColonneDest), 0)) Or Ctr = 1 Then Select Case (FeuilDest) Case Is = "xxxxxx" Sheets(FeuilDest).Range(ColonneDest & Ctr + Ctr + Ctr + Ctr).Value = cell.Value Ctr = Ctr + 1 Case Else Sheets(FeuilDest).Range(ColonneDest & Ctr + 5).Value = cell.Value Ctr = Ctr + 1 End Select End If Next cell

---

Cette macro fonctionne plutôt bien : elle parcourt la feuille source et si la valeur observée n'est pas déjà dans la feuille de destination elle la colle.
Cependant lorsque je veux copier des champs au format « mmm-aa » : le résultat est la colonne entière de ma feuille source au lieu des valeurs sans doublons.

Je n’arrive pas à voir ce qui cloche, quelqu’un aurait-il une idée ?
Merci d’avance et bonne journée

PS : j'allais oublier de dire que FeuilDest est la feuille de destination et ColonneDest la colonne de destination

Une piste peut être : lorsqu'on recherche sur les dates il faut transformer la valeur en nombre (un peu comme avec Cnum dans les formules Excel) grâce à :

Code:

---

Application.Match(CDbl(cell.Value), Sheets(FeuilDest).Columns(ColonneDest), 0))

---

Le soucis c'est que quand on cherche sur une autre colonne source une valeur qui n'est pas une date ça ne marche plus...

Une idée ?

Oui et non on peu très bien continuer a travailler sur les dates.

Sinon tu peux tester si ta cellule est une date ou non et utiliser ce code ou non en fonction

Code:

---

1 2 3 4 5 6 7

if isdate(cell) then 'date   else 'pas date   end if

---

Alors j'ai essayé ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

For Each cell In Range(Plage) If IsDate(cell) Then   Sheets(FeuilDest).Range(ColonneDest & Ctr + 5).Value = CDbl(cell.Value) Ctr = Ctr + 1   ElseIf Not IsNumeric(Application.Match(cell.Value, Sheets(FeuilDest).Columns(ColonneDest), 0)) Or Ctr = 1 Then   Select Case (FeuilDest) Case Is = "xxxxxx" Sheets(FeuilDest).Range(ColonneDest & Ctr + Ctr + Ctr + Ctr).Value = cell.Value Ctr = Ctr + 1 Case Else Sheets(FeuilDest).Range(ColonneDest & Ctr + 5).Value = cell.Value Ctr = Ctr + 1   End Select End If   Next cell   End Sub

---

Mais du fait que je n'ai plus le match dans la condition If isdate, ça me copie/colle toutes les valeurs (avec doublons donc)
Si je mets Application.match sous if isdate, j'ai un message d'erreur :
"Erreur de compilation, Attendu: ="

Franchement je suis sure que c'est tout bete mais je sèche

heu pourquoi tu na pas mis le match tu disais que pour que cela fonctrionne avec des date il faut le mettre, et que ca planté si ce n'était pas une date donc maintenant tu sais ou le mettre et il ne sera utilisé que si tu as une date
Après je ne sais pas comment tu le met donc je ne pourrais pas t'aider pour ton problème. Mais ta fonction avec match renvoie un valeur il faut que tu en fasse quelque chose

C'est bon, ça a l'air de fonctionner, voilà le fin mot de l'histoire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Ctr = 1   For Each cell In Range(Plage)   If IsDate(cell.Value) Then If Not IsNumeric(Application.Match(CDbl(cell.Value), Sheets(FeuilDest).Columns(ColonneDest), 0)) Or Ctr = 1 Then   Call casPossible(FeuilDest, ColonneDest, Ctr, cell)   End If Else If Not IsNumeric(Application.Match(cell.Value, Sheets(FeuilDest).Columns(ColonneDest), 0)) Or Ctr = 1 Then   Call casPossible(FeuilDest, ColonneDest, Ctr, cell)   End If End If Next cell   End Sub

---

J'ai remplacé toute la partie Select du code précédent par une macro "cas possible" vu que ça se répétait

Merci encore !

Citation:

---

Envoyé par couistelle

J'ai remplacé toute la partie Select du code précédent par une macro "cas possible" vu que ça se répétait

---

Ca fait plaisir de voir de bon réflexes :D
Je susi content d'avoir pu t'aider