Autres Petit problème d'affichage

[chilo27]

Bonsoir le forum

Après de longues recherches je viens le présent message vous exposer mes petits soucis

En fouinant sur le forum j'ai trouvé un fichier qui convient parfaitement à ce que je souhaite

Toutefois, je rencontre des petits blocages Par ex :

1) je ne parviens pas à adapter le code postal et l'afficher dans les combobox trouvé aussi sur internet
2) afficher dans les textbox une sélection dans la listview

J'ai dû alléger le fichier

Merci par avance

 

[fanch55]

Bonsoir,
Pas de fichier joint, un oubli ?

 

[chilo27]

Bonsoir fanch55 c'est un oubli et je dégrossit le ficher
merci pour le rappel

 

[chilo27]

j'ai dégrossi de beaucoup

Merci encore pour le rappel cela m'avait échappé

 

[fanch55]

Peut-être trop dégrossi, la base est vide ...

 

[chilo27]

oui autrement cela ne passe j'ai vu après

 

[chilo27]

je pense que cela devrait passer

Dans la combo code postal afficher le codepostal
dans la combo comboville la ville correspondante au code postal

 

[chilo27]

Voila la seconde partie que je voulais insérer dans le premier exemple

en entrant le code postal j'avais un message d'erreur sur cette

ligne
If Me.ComboVille.ListIndex = -1 And _
IsError(Application.Match(Me.ComboVille, Application.index(ListeVille, , 1), 0)) Then

Merci pour votre aide

 

[Compte Supprimé 979]

Bonjour chilo27

Comment voulez-vous que ça fonctionne, vous sortez de la sub avant la fin 🤔
De plus une gestion d'erreur ce n'est absolument pas ça

Voilà ce que je vois dans l'évènement "Initialize" de l'USF

'gestion des erreurs
On Error GoTo 0
Exit Sub
ErreuR:
MsgBox Err.Description & " dans le module UserForm_Initialize", vbCritical, "Affichage de l'erreur"

'================code postal
 '--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, 10))
  'Tri b, 1, 1, UBound(b)
  TriTableauIndex b       ' + rapide
  Me.Codepostal.List = b

Copier/coller du code sans le comprendre, ce n'est pas développer 🙄

Ce que j'en dis, je ne faisais que passer 😁

 

[chilo27]

Bonjour le forum

Bonjour BrunoM45

Merci pour la réponse, je vais revoir

Je n'ai pas du tout l'intention de me faire passer pour un développeur, non pas que je n'aurai pas aimé
mais l'informatique ne m'aime pas.
Mais j'accepte volontiers toutes les remarques
Toutefois , 'j'ai maintes fois utiliser le 2ème fichier qui a toujours fonctionné

Tous les cas je tiens à vous remercier pour votre aide,

 

[fanch55]

Re,
La particularité de votre base est qu'il y a plus de code postaux que de villes, une ville pouvant avoir plusieurs codes , voir Aix-en-Provence . ( nota: un code postal peut également desservir plusieurs communes )
De ce fait, vous ne pourrez plus utiliser les listindex des comboboxs et autres contrôles de listages .
Il vous faudra chercher ce que vous voulez directement dans la Base .
Classeur modifié pour charger les Villes et Codes postaux ( pas plus ) .

 

[chilo27]

Merci Fanch55

Merci pour l'aide, toutefois le dernier ficher commune insee cp
le fait mais bien entendu il n'est pas de moi

Merci de m'avoir éclairé