VBAExcel Regrouper certains enr et pas d'autr Résolu/Fermé

Question

Bonjour à tous !

Voici mon souci : 
J'ai une base de données de clients de 30 000 enregistrements. Un fichier classique avec nom, adresse, code postal, ville, pays.
Je dois regrouper ceux qui sont à une même adresse, même ville, même code postal, quel qu'en soit le nombre, pour n'en faire qu'un seul enregistrement avec comme libellé du nom : Centre culturel. 
Par contre les clients qui sont seuls à une adresse doivent rester tels quels. 

Je n'ai pas réussi via l'extraction sans doublon du filtre élaboré. Si quelqu'un pouvait me donner quelques pistes pour utiliser une macro, qui m'éviterait des formules "SI" multiples, cela serait un réel soulagement ! 

Je travaille sur la version 2000 (si, ça existe encore !!) d'Excel. 

Je n'ai pas la solution avec les tris successifs, ni avec les filtres successifs. Même si j'obtiens les enr classés par ville puis par adresse puis par nom, il faut toujours que je fasse manuellement le regroupement des clients qui sont à la même adresse postale. Sur un fichier de 30 000 enr, cela risque de me prendre vraiment beaucoup de temps. 

Et si je fais une extraction sur les adresses, le résultat est faux car il existe des adresses identiques dans des villes différentes. 

Données/ Sous-total ne m'est d'aucun secours étant donné que je n'ai besoin d'aucun calcul sur les nombre d'enr ou autre fonction de calcul. 

Ce dont j'ai besoin, c'est que la base soit lue, qu'à chaque enr exactement semblable dans les champs pays, ville, code postal et adresse, dans le cas où il n'y a qu'un seul enr, il reste tel quel, s'il y a plusieurs enr avec des noms différents, tous ces enr soit remplacés par un seul prenant le nom de "centre culturel". 
Je ne vois pas quelle fonction utiliser pour parvenir à ceci. 

Voici un exemple du document de départ (Test) :
https://www.cjoint.com/?0FmnyeN9nI9 

et ce que je dois obtenir après (Test_résultat) :
https://www.cjoint.com/?0FmnzEYEM8D 


Merci d'avance à ceux qui me répondront.

Ménilmuche
Configuration: Windows XP / Internet Explorer 7.0

Paf · Answer

bonjour
dans la mesure où les données sont triées comme dans le fichier joint, la macro suivante fonctionne:
Derlig = Range("A" & Rows.Count).End(xlUp).Row

For i = Derlig To 3 Step -1
    If Cells(i, 2) = Cells(i - 1, 2) And Cells(i, 3) = Cells(i - 1, 3) And Cells(i, 4) = Cells(i - 1, 4) Then
        Cells(i - 1, 1) = "Centre culturel"
        Rows(i).Delete
    End If
Next

bonne suite

Paf · Answer

Pourquoi ouvrir ce sujet sur le forum programmation à une heure  où  le souci était quasi résolu sur le forum bureautique?
http://www.commentcamarche.net/forum/affich-25360263-excel-regrouper-certains-enr-et-pas-d-autres

VBAExcel Regrouper certains enr et pas d'autr

2 réponses

Discussions similaires