Creer Un Listing Client

[Vilipendboy]

Bonjour à tous,

malgré mes recherches sur le forum je n'ai pas réussi à trouver la solution à mon problème...
Je dois faire un fichier client et j'ai pour cela l'ensemble des facturations par produit. C'est-à-dire que chaque ligne correspond à la facturation d'un produit pour un client et cela depuis le début de l'année (ce qui veut dire qu'un client qui aurait commandé 3 fois 4 produits depuis le début apparait 12 fois dans mon listing).

Je voudrais donc simplement avoir la liste de ces clients en conservant un certain nombre d'info (adresse, tel etc...). J'espère que j'ai été clair et je joins, à toutes fins utiles, un petit classeur pour l'être plus.

Un grand merci d'avance pour votre aide.

Cordialement😕

 

[Vilipendboy]

Re : Creer Un Listing Client

Personne n'a d'idée? Sniff....🙂

 

[Minick]

Re : Creer Un Listing Client

Salut,

Un filtre elabore fera exactement ce que tu veux.
et si tu veux mettre le resultat du filtre sur une autre feuille utilise cela :

Sheets("Feuil1").Range("A1:F26").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True

++

 

[nat54]

Re : Creer Un Listing Client

Hello,Une soluce en PJFichier >50Ko 😱http://cjoint.com/?gzqyXy4oWN

 

[Vilipendboy]

Re : Creer Un Listing Client

Merci bcp Nat et Minick pour vos aides.

J'ai 2 Q°:
- une à Minick: comment je fais pour coller le code, ça ne marche pas?😕 la plage va de A4 à S22558
- l'autre à NAt pour la macro: ça marche bien sauf que ça ne me prend pas les autres colonnes. Uniquement la A hors j'ai besoin des autres infos (tel, adresse). Pour être précis je voudrias supprimer les doublons de la colonne A en reportant (gardant) les infos liées des autres colonnes....

Merci beaucoup pour tout!
😀 😀 😀

 

[nat54]

Re : Creer Un Listing Client

Re,

Ok je n'avais pas compris cela

Colle cela dans un module


Sub Doub_Dir()
Dim X As Long
Dim Y As Long
Dim Flg_V As Boolean
For X = [A65536].End(xlUp).Row To 2 Step -1
For Y = X - 1 To 1 Step -1
If Range("A" & X) = Range("A" & Y) Then
Flg_V = True
Exit For
End If
Next Y
If Flg_V Then
Flg_V = False
Rows(X).Delete
End If
Next X
End Sub


et lance la macro Doub_dir via altF8
(merci ma besace excel)

 

[Minick]

Re : Creer Un Listing Client

re,

Regarde dans la piece jointe.

++

 

[GI_GI]

Re : Creer Un Listing Client

Bonjour
Une solution en vba
Salutations

 

[Vilipendboy]

Re : Creer Un Listing Client

Comment dire? 🙄
BRAVOOOOOOOO et un grand MERCIIIIIIIIIII à vous 3 !!! 🙂 🙂

C'est trop fort ce que vous savez de toutes ces cases... c'est là que je me dis qu'il y a 2 catégories de personnes: ceux qui savent et ceux qui ne savent pas.... Moi je ne sais pas..... Bref...

La Bise et re MERCI
😛

 

[nat54]

Re : Creer Un Listing Client

Bonjour,

C'est pour ca qu'Excel c'est géant ! Tu en apprends tous les jours
et le fait de lire XLD ca aide aussi.

Je me suis fait un word avec plein d'astuces excel : formules, vba... que je ressors quand j'en ai besoin 🙂