XL 2013 Liste communes (suite)

[michir]

Bonsoir,
Je reviens avec mon problème de macro car je suis très peu doué en VBA
Je suis reparti de la proposition de Job75 (dernière mouture) qui me convient bien, en essayant de l'adapter à mon fichier
La macro a besoin d'être modifiée pour l'adapter à mes en tête de colonnes
Je ne sais pas faire, le codage me reste illisible
Je joins mon fichier, si une âme charitable et douée passe par là
Merci à tous
Michel

 

[LaCeline]

michir, le forum,

Si j'ai bien compris...


LaCéline

 

[michir]

Merci beaucoup à LaCeline pour son fichier qui pour moi reste assez étanche
Sans abuser, peux tu m'expliquer en quelques mot à quoi correspondent l'affectation des variables qui ont changé
b(n, 1) = a(i, 1)
b(n, 2) = a(i, 2)
b(n, 3) = a(i, 3)
b(n, 4) = a(i, 4)
b(n, 5) = a(i, 5)
....etc
Comme cela je ne mourrai pas idiot (enfin un peu moins)

Merci aussi à Nicole mais je cherche a voir le code dans l'éditeur et ne le voit pas, c'est ce qui me fait adopter la solution de LaCeline

Merci à tous, je comprends vite mais faut m'expliquer longtemps...

 

[michir]

...suite ....j'ai un pb de fonctionnement lorsque il y a plusieurs communes du même nom, exemple "saint-michel"
la combo ne réagit pas (fichier Numéros de ville)

 

[michir]

Merci Nicole
sais tu comment récupérer le contenu du formulaire, notamment Nom commune, CP, Code INSEE et Dept pour être réutiliser ailleurs ?
Merci à toi

 

[michir]

Oui merci Nicole, j'ai bien compris comment fonctionne le combo
Ce que je voulais dire c'est comment récupérer automatiquement le contenu des fenêtres du userform pour les exploiter ailleurs dans la feuille ou une autre feuille du classeur
Merci à toi

 

[michir]

...je l'ai collé dans le module du userform
et ensuite ?
lorsque je fais exécuter il ne se passe rien

 

[michir]

..si je veux coller les résultats du "userform" sur la ligne 30 de la feuille ?

 

[michir]

oui c'est cela par exemple

 

[michir]

oui merci Nicole
mais si je ne veux récupérer non pas la liste complète mais la sélection faite avec le combo
par exemple
AAST 64460 64001 PYRENEES-ATLANTIQUES 200
en A30

 

[michir]

oui merci Nicole,
mais si je ne veux récupérer non pas la liste complète, mais la sélection faite avec le combo
par exemple :
AAST 64460 64001 PYRENEES-ATLANTIQUES 200
en A30 ?
Bonne soirée
Michel

 

[cathodique]

Bonjour Nicole, Michir,

Pour enjoliver les codes

 

[michir]

Merci encore Nicole pour ce temps passé,
Ton fichier fonctionne parfaitement c'est ce que je recherchais depuis le début
J'espère que ton fichier pourra servir aussi à d'autres
Un dernier détail, j'aimerais que le "userform" soit affiché en permanence, sans avoir besoin de cliquer sur "Go" pour lacer la macro
Est ce seulement possible ?
Merci,
Michel

Pour Cathodique
C'est quoi cette barre pour enjoliver le code ? où la trouves tu ?

 

[michir]

Merci beaucoup pour ta disponibilité et ta patiente Nicole,
Tu es un chef à 4 plumes
Michel

 

[cathodique]

Re, Nicole

En sélectionnant VB au lieu de code général, tu obtiendras ceci

Dim f, ListeVille()
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))
  Tri b, 1, 1, UBound(b)
  Me.CodePostal.List = b
End Sub