XL 2013 Liste communes (suite)

[michir]

Bonsoir,
Je reviens vers le forum, notamment ver Nicole Buisson car elle m’a bien aidé dans mon problème si elle passe par là, (je la remercie encore ainsi que les autres contributeurs) où bien vers quelqu'un d’autre qui pourra m’aider
Voilà, j'ai une base de 36000 communes avec 10 colonnes et un « userform » permettant d’extraire une commune avec toutes ses caractéristiques
J’ai ajouté plusieurs colonnes (jaunes) à mon projet initial et je dois donc modifier le codage du « userform » J’ai essayé, mais je n’ai pas les connaissances suffisantes en VBA (jamais appris) et mon appli bug sans que je puisse la corriger
Le but étant que la commune sélectionnée avec la boite de dialogue soit récupérée avec ses caractéristiques sur la ligne 2 de la feuille « Accueil »
Je joins mon fichier complet
Merci à tous pour votre aide
Michel

 

[Si...]

Bonsoir

ton fichier coince chez moi 😳 donc avec mon fichier ...

Nota : une colonne de moins (ListBox 10 colonnes au départ... voir discussions)

Au revoir

 

[cathodique]

Bonsoir à vous, désolé de m'incruster.

@Nicole: vraiment fabuleux travail.

Pourrais-tu stp m'expliquer les lignes repérées par des astérisques

Private Sub UserForm_Initialize()
  '--villes +codes postaux
  ListeVille = Range("bdd").Value
  Me.ComboVille.List = ListeVille
  b = Application.Index([bdd], Evaluate("Row(1:" & [bdd].Rows.Count & ")"), Array(2, 1, 3, 4, 5, 6, 7, 8, 9)) ***
  Tri b, 1, 1, UBound(b) ***
  Me.CodePostal.List = b
End Sub

En te remerciant par avance.

Bon week-end à toutes et à tous.

 

[cathodique]

Merci beaucoup Nicole. Je ne connaissais pas du tout.

Surtout la notation Tri b, 1, 1, Ubound(b)

Encore pour tes explications. Bonne soirée et bon week-end.

 

[michir]

Quel travail Nicole, merci
sans abuser est il possible de supprimer la "ListBox" de droite car elle n'apporte pas grand chose dans la lisibilité et ne conserver que la "Listbox" de gauche ?

 

[michir]

Vu Nicole, merci à toi
je cherchais à diminuer la taille du fichier (6Mo) mais cela semble impossible

 

[michir]

Oui bien sûr Nicole
Mais çà je ne sais pas faire
Quoiqu'il en soit, je te remercie pour ton aide précieuse
Michel

 

[michir]

bonjour
je souhaiterais n'afficher le "userform" que sur la première feuille d'Accueil et le masquer sur les autres feuilles
Merci

 

[michir]

Merci Nicole,
je n'ai pas vu ce que tu as modifié dans le code mais cela fonctionne