Trier une liste sans doublons et recuperer des donnees

Bonjour,

Je suis un peu une « quiche » en macro Excel mais à force de temps et de volonté, j’arrive quelques fois à m’en sortir tout seul.

Mais là c’est le noir total.

J’ai un tableau de 5 colonnes susceptible d’avoir environ 500 lignes.

Dans la colonne A c’est une date, la colonne B un nom, colonne C prénom, colonne D un grade militaire et colonne E une ville.

Les colonnes A, B et C ne sont pas « concernées » par la macro.

Il faudrait que cette macro trie par ville sans doublons (environ 17) les types de grade présents (15) dans chaque ville.

En clair

Cellule A1 la ville et de la colonne B1 à P1 les grades pour cette ville.

Cellule A2 une autre et de la colonne B2 à P2 les grades pour cette ville.

Sur le même tableau j’ai fait une autre macro qui elle compte uniquement le total pour chaque grade.

Je l’a mets peut-être peut elle servir à quelqu’un d’autre.

Sub CPL()
Dim plage As Range
Dim cel As Range
Dim n As Long
Set plage = Application.Sheets(31).Range("D1:D700")
n = 0
For Each cel In plage
If cel = "CPL" Then
n = n + 1
End If
Next
Range("I6") = n
End Sub

Merci à celui ou celle qui m’aidera.

Bonjour et bienvenue,

Se serait tellement + facile à te répondre avec un fichier joint

Amicalement

Claude.

C'est vrai que cela serat surement plus simple, enfin, façon de parler.

https://www.excel-pratique.com/~files/doc2/JSM6uClasseur1.xls

La feuille est une petite partie du classeur et si le résultat de la macro se fait sur une autre feuille dans le classeur, pas grave, au contraire.

Merci

re,

Tu demande les grades par Villes, les voici,

https://www.excel-pratique.com/~files/doc2/Filtre_bayard.xls

je pense qu'il faudrait étendre le filtre aux autres colonnes, non ?

Amicalement

Claude.

Salut le forum

Extraction des villes et grades sans doublons et création d'un tableau récapitulatif.

Le lien du fichier : Extraction.Zip

Mytå

Re le forum

Une version avec Tableau croisé dynamique (TCD)

Le lien du fichier : Extaction_TCD.Zip

Mytå

Bonjour tout le monde,

A ce que je vois mon problème insteresse et n'a pas l'air de vous paraitre compliqué

Pour répondre à dubois: je n'ai pas tout compris et si vous savez ce qu'est une quiche vous avez tout compris :s

Par contre Usb512 ton fichier "Extraction" est conforme à ce que je pensais, le seul problème est que , lors du remplissage du nombre de grade et ben ya de ########.

For Each Cellule In Range(Cells(5, 8), Cells(Data_Villes.Count + 4, Data_Grades.Count + 7))
  With Cellule
    .Formula = "=SUMPRODUCT((C4=R4C)*(C5=RC7))"
    .Value = .Value
    End With
Next Cellule

Lorsque je mets le curseur de' la souris sur le mot "Cellule" ou sur "Cells"une info-bulle m'indique "Cellule=erreur 2036" ou "Cells = erreur2036".

Peut-être cela viendrait de là (j'me mouille pas trop, hien)

Quant au tableau croisé, c'est ce que l'on utilise actuellement et la secrétaire c'est pas son truc non plus.

Merci a vous deux pour votre travail et j'espère que Usb512 va trouver la soluce.

Bon Dimanche

Re le forum

Bayard, le problème vient de l'utilisation complètte de la colonne.

Modifie par ceci, pour travailler avec les lignes 4 à 1000

For Each Cellule In Range(Cells(5, 8), Cells(Data_Villes.Count + 4, Data_Grades.Count + 7))
  With Cellule
    .Formula = "=SUMPRODUCT((R4C4:R1000C4=R4C)*(R4C5:R1000C5=RC7))"
    .Value = .Value
    End With
Next Cellule

Mytå

Bonjour USB512,

ça marche du feu de dieu, en clair ça marche nickel.

Une petite question en passant, pour que les données trouvées aillent sur une autre feuille vierge qui est créée pendant le travail de la macro, y a t'il beaucoup de modif à faire.

Sinon un grand merci pour ton travail et aussi aux autres qui ont essayés aussi.

Je ne connais pas encore bien la nétiquette du forum, donc je mets ce post en "résolu" et je repose une question un peu plus haut

Encore merci à USB512 et aux autres

Salut le forum

Bayard, tu aurais du rester sur cette ficelle (Désolé pour le délai de réponse)

Ton fichier avec le correctif demandé : Extraction.zip

Mytå

P.S. Bayard mon IP est banni sur le forum, je dois ruser afin de me connecter.

voila c'est "résolu"