Manipuler une base de donnée Résolu/Fermé

Question

Bonjour,
En phase d'apprentissage en macro excel, je vous explique mon problème:
Sur ma feuille de base de donnée "BD" J'ai une colonne A comprenant des prénoms de personnes et leur lieu de résidence en colonne B:

Colonnes A_B:    
Pierre_Paris
Jean__Lyon 
Alain__Lyon  
André_Marseille
Roger_Paris
......

Sur ma feuille "RES", je souhaiterai lister les habitants par villes:

Colonnes A_B_C:  
Paris____Pierre_Roger
Lyon____Jean__Alain
Marseille_André
......

Je voudrai que ma liste se mette à jour automatiquement au fur et à mesure de nouvelles entrées de prénoms ou de villes (listes non exhaustives).
Je suis confus sur la méthode à suivre: faire un tableau, créer une collection...?
Je vous remercie de votre aide.
Stem01

ccm81 · Answer

Bonjour

un début de réponse?
https://www.cjoint.com/?3GBqwFXLCbT 

Cdlmnt

ccm81 · Answer

1. Option Explicit est une directive qui oblige à déclarer toutes les variables et constantes (bonne habitude à prendre)
2. Const sep = "$" sep est le séparateur utilisé pour séparer les prénoms lors de la construction du dictionnaire, je l'ai mis en Constante au cas où ce caractère apparaitrait dans les valeurs à traiter, dans ce cas, il vaut mieux modifier sa valeur en début de code et une seule fois plutôt que d'aller trafiquer dans le code de la procédure Encore une bonne habitude, dans le code des procédures/fonctions, il vaut mieux ne pas mettre de valeurs en dur, mais les remplacer par des appels à des constantes. Si pour une raison quelconque cette valeur est amenée à changer, on n'a pas à toucher au code des procédures

3. Une autre proposition qui te permet d'ajouter un à un les villes/prénoms au fur et à mesure de leur entrée
https://www.cjoint.com/?3GCnRw01570 

Cdlmnt

ccm81 · Answer

Essaies ceci For liBD = LidebBD To lifinBD ville = .Cells(liBD, codebBD + 1) prenom = .Cells(liBD, codebBD) If prenom <> "" and ville <> "" Then If dico.exists(ville) Then dico(ville) = dico(ville) & sep & prenom Else dico.Add ville, prenom End If End If Next liBD Cdlmnt

ccm81 · Answer

De rien,

Si c'est fini, peux tu mettre le sujet à Résolu (en haut à droite de ton premier message)

Bon après midi

Manipuler une base de donnée

4 réponses

Discussions similaires