Autres Petit problème d'affichage

fanch55

XLDnaute Barbatruc

• 18 Avril 2023

• #2

Bonsoir,
Pas de fichier joint, un oubli ?

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Avril 2023

• #3

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Avril 2023

• #4

j'ai dégrossi de beaucoup

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

 

Pièces jointes

• ListeviewAchille (version4).zip

  936.9 KB · Affichages: 3

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 18 Avril 2023

• #5

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Avril 2023

• #6

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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Avril 2023

• #7

je pense que cela devrait passer

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

 

Pièces jointes

• ListeviewAchille (version5).zip

  925.4 KB · Affichages: 4

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 18 Avril 2023

• #8

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

 

Pièces jointes

• Communes Insee CP 'version 1).zip

  863.9 KB · Affichages: 2

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 19 Avril 2023

• #9

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

VB:

'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

 

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 19 Avril 2023

• #10

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,

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 19 Avril 2023

• #11

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 ) .

 

Pièces jointes

• ListeviewAchille (version5).xlsm

  902.7 KB · Affichages: 5

Vote positif 0 Vote négatif

chilo27

XLDnaute Occasionnel

• 19 Avril 2023

• #12

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é

 

Vote positif 0 Vote négatif