Récupération donnée combobox

Bonsoir à tous,

J'ai fais un peu de vba pour un projet info en cours, j'ai réussi à mettre place un USF avec des liens entre textbox et combobox mais je n'arrive pas à terminer le travail. Je ne comprends pas pourquoi mon code ne fonctionne pas.

Dans le fichier ci joint, dans le USF Saisie des coordonnées client, lorsque vous appelez un département dans la combobox département celui vous propose 10 villles (dans une autres combobox). je souhaiterai que lorsque je choisi l'une de ces 10 villes, le CP de cette ville s'affiche automatiquement dans la textbox cp.

J'ai essayé mais le code ne fonctionne pas et je ne vois pas mon erreur.

Merci de votre aide.

Alban

Bonsoir

Dans ta boucle enlèves Val de Val(Me.ville.Value) =

  For J = 7 To Ws.Range("E" & Rows.Count).End(xlUp).Row
    If Me.ville.Value = Ws.Range("E" & J) Then cp = Ws.Range("G" & J): Exit Sub
  Next J

Bonsoir,

Je n'ai pas très bien compris, je dois supprimer quoi précisément dans le code ?

Merci beaucoup.

Alban

Bonsoir

Banzai64 a écrit :

Dans ta boucle enlèves Val de Val(Me.ville.Value) =

la macro rectifié

Private Sub ville_Change()
Dim J As Long
Dim Ws As Worksheet

  If Me.choixdepartement.ListIndex = -1 Or Me.ville.ListIndex = -1 Then Exit Sub
  Set Ws = Sheets("listeville")

  For J = 7 To Ws.Range("E" & Rows.Count).End(xlUp).Row
    [barrer]If Val(Me.ville.Value) = Ws.Range("E" & J) Then cp = Ws.Range("G" & J): Exit Sub[/barrer]
    If Me.ville.Value = Ws.Range("E" & J) Then cp = Ws.Range("G" & J): Exit Sub
  Next J
End Sub

UN grand merci!