Code postal rajouter departement

lynyrd

XLDnaute Impliqué

• 9 Juillet 2011

• #2

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

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 9 Juillet 2011

• #3

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 9 Juillet 2011

• #4

Re : Code postal rajouter departement

Salut apdf1

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

Code:

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+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 9 Juillet 2011

• #5

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 9 Juillet 2011

• #6

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+

 

Vote positif 0 Vote négatif

A

apdf1

XLDnaute Impliqué

• 9 Juillet 2011

• #7

Re : Code postal rajouter departement

Re,

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

@+
Max

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 9 Juillet 2011

• #8

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Juillet 2011

• #9

Re : Code postal rajouter departement

Bonjour le fil


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

Code:

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

 

Vote positif 0 Vote négatif

A

alidroos

Guest

• 9 Juillet 2011

• #10

Re : Code postal rajouter departement

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Juillet 2011

• #11

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

Cliquez pour agrandir...

Kesako? No comprendo

 

Vote positif 0 Vote négatif