Code postal rajouter departement

[apdf1]

Bonjour,

J'ai un USF avec deux Combobox pour faire une recherche code postal et ville qui correspond. Est il possible d'avoir une modification de code qui me permet de trouver le département qui correspond et qui se trouve sur la troisième colonnes de ma feuille Ci-joint mon fichier qui seras plus parlant
Je vous remercie par avance et vous souhaite une bonne soirée

Cordialement

Max

 

[lynyrd]

Re : Code postal rajouter departement

Bonsoir le forum,apdf1
le fichier en retour
A+
Download Code Postal2-bis.xlsm from Sendspace.com - send big files the easy way

 

[apdf1]

Re : Code postal rajouter departement

Bonjour Lynyrd,

Je vous remercie surtout a une heure pareil, j'ai completé la liste des codes "38950" lignes et quand je fait une recherche elle est trés longue ?
Y a t'il quelque chose a faire ?
Dans l'attente d'une réponse je vous souhaite une bonne journée

Max

 

[Compte Supprimé 979]

Re : Code postal rajouter departement

Salut apdf1

Tu peux déjà changer ton code à l'initialisation de ton USF

Private Sub UserForm_Initialize()
  Dim Cell As Range
  Dim Collec As New Collection
  Dim Compteur As Integer
  With Sheets("Feuil1")
    For Each Cell In .Range("A2:A" & .Range("A65536").End(xlUp).Row)
      On Error Resume Next
      Collec.Add (Cell), CStr(Cell)
      If Err.Number = 0 Then
        Me.Combobox1.AddItem Cell
      End If
      On Error GoTo 0
    Next
  End With
End Sub

A+

 

[apdf1]

Re : Code postal rajouter departement

Bonjour BrunoM45,

J'ai bien changer mon code à l'initialisation effectivement sa ouvre de suite mais je n'ais que les code Postaux sans leurs villes et département. Ou alors j'ai zapé un passage.

@+
Max

 

[Compte Supprimé 979]

Re : Code postal rajouter departement

Re,

Je n'ai rien changé à part optimiser le code, tu avais
1) tu fais une boucle pour ajouter les code postaux dans une collection
2) tu fais une boucle pour ajouter chaque élément de ta collection dans la combobox
J'ai donc fait
1) un boucle pour ajouter chaque élément de la collection dans la combobox

La ville c'est dans ton CB2 !

A+

 

[apdf1]

Re : Code postal rajouter departement

Re,

Pourtant je n'ais fait que copie/coller de ton code optimiser.
Je ne comprend pas !!!!!

@+
Max

 

[Modeste]

Re : Code postal rajouter departement

Bonjour le fil,

@apdf1: juste pour être sûr ... on est d'accord que le code de Bruno (même optimisé, gonflé aux stéroïdes et bourré d'EPO) ne remplace que ta propre procédure UserForm_Initialize() ... et pas l'ensemble de ton code!?
Chez moi, sur ton fichier de départ, ça fonctionne, en tout cas.

 

[Staple1600]

Re : Code postal rajouter departement

Bonjour le fil


Pour info: un autre moyen de remplir une combo (sans passer par une boucle)

Private Sub UserForm_Initialize()
Dim tablo
tablo = Feuil1.Range([A2], [A65536].End(xlUp))
ComboBox1.List = tablo
End Sub

 

[alidroos]

Re : Code postal rajouter departement

iBonjour jeune, je veux le code qui désactive le bouton Restaurer et zoom fichier Excel

 

[Staple1600]

Re : Code postal rajouter departement

Bonjour alidroos, le fil

iBonjour jeune, je veux le code qui désactive le bouton Restaurer et zoom fichier Excel

Kesako? No comprendo