Remplacer deux lignes du même nom par "Monsieur et Madame"

[marneus54]

Bonjour,

J'ai découvert votre superbe forum d'entre aide hier et vous m'avez magnifiquement aidé !

Alors j'ose abuser pour la dernière fois !

Pour expliquer mon petit soucis, j'ai une base de ce type et voudrais un résultat comme cela

(avec une formule ou autre chose pour le faire le plus rapidement possible car ma base fait plus de 2000 noms)

C'est à dire supprimer les doublons de même nom lorsque l'adresse est commune a la civilité "Monsieur" et "Madame" pour retrouver "Monsieur et Madame" ET ajouter la date de naissance de la femme dans une nouvelle colonne si c'est possible évidemment !

Merci pour votre future aide !

 

[marneus54]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Je créé ça tout de suite 😉

 

[marneus54]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Je créé ça tout de suite 😉

Et voici le "du dis" fichier

 

[tototiti2008]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Re,

Peut-être remplacer

For n = LBound(a) To UBound(a)
  If Len(b(n)) > 2 Then

par

For n = LBound(a) To UBound(a)
  If Len(b(n)) - Len(Replace(b(n), ";", "")) > 1 Then

Mais ce code est très intéressant, bravo Pierre
J'ai encore à apprendre sur les dictionnaires 😉

 

[marneus54]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Merci je vais essayer, et très franchement je n'y connais absolument rien en code !

 

[pierrejean]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Re

Voila , apres correction
Pour ceux que cela interesse , j'avais sousestimé le numero des lignes

If UBound(Split(b(n), ";")) > 1 Then

remplace

If len(b(n)) > 2 Then

 

[marneus54]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Et bien il me semble que ça fonctionne parfaitement avec la totalité de la base !

 

[marneus54]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Un grand merci pour votre aide ! ça m'a fait gagner un temps précieux !

 

[pierrejean]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Re

@ Tototiti

Je ne doute pas que tu y arrives très rapidement
Combiné à l'utilisation des tableaux on obtient des performances exceptionnelles en terme de rapidité

 

[marneus54]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Quelques secondes tout au plus ! Génial !

 

[tototiti2008]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Re,

Je jetterais un œil attentif sur ton système d'incrémentation des items avec

Dico(x) = Dico(x) & n & ";"

ça semble très simple mais l'écriture est justement tellement dépouillée que je ne savais pas qu'on pouvait le faire comme ça 🙂

Je ferais des tests, encore merci pour ce code (et tous les autres de qualité 😉)

 

[ROGER2327]

Re : Remplacer deux lignes du même nom par "Monsieur et Madame"

Bonsoir à tous


Un autre code dans le classeur joint. (La référence à Microsoft Scripting Runtime doit être active.)


ROGER2327
#5875

Jeudi 26 Palotin 139 (Sainte Prétentaine, rosière - fête Suprême Quarte)
26 Floréal An CCXX, 9,0906h - fusain
2012-W20-2T21:49:03Z