XL 2016 VBA - Recherche

[senpan]

Bonjour à tous,

Dans le cadre d'un Userform, je souhaite effectuer une recherche dans les codes postaux de la feuille CP.
Or, le Luxembourg et les Pays-Bas ont des lettres dans les CP.
Comment faire pour que cela fonctionne ?

Dans le Userform, il y a une textbox permettant de saisir les informations.
Puis dans la combobox du dessous, s'affiche les villes correspondantes.

Vous devinez donc que cela pose problème pour des CP qui ont des lettres.

Avez-vous une idée pour corrigé ce "défaut" ?

 

[mutzik]

bonjour,

convertir tout en texte, et ca marche
sélectionner la colonne qui contient les CP et la passer en texte

 

[senpan]

Bonjour mutzik,

Malgré ton aide, cela ne fonctionne pas.
J'ai mis la colonne des CP en texte mais, par exemple, pour le CP L-3311, code postal non trouvé.

 

[senpan]

Je suis en train de m'arracher les cheveux concernant ce problème.

Une idée ?

 

[senpan]

bonjour,

convertir tout en texte, et ca marche
sélectionner la colonne qui contient les CP et la passer en texte

Peux-tu m'indiquer les manipulations que tu as réalisées car cela fonctionne pas chez moi ?
J'ai mis la colonne CP en format texte : nada !
Puis toutes les colonnes pour voir : nada ! aussi.

Voici le code de la textbox : est-ce le code qui "délire" ?

Private Sub TextBoxCP_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim Trouve As Range, firstAddress As String

ComboBoxVILLE.Clear
With Sheets("CP")
    Set Trouve = .Columns(1).Cells.Find(Val(TextBoxCP), lookat:=xlWhole)
    If Trouve Is Nothing Then
        MsgBox "Code postal non trouvé !" & vbCrLf & vbCrLf & vbCrLf & "RECOMMENCEZ la saisie.", vbOKOnly + vbInformation, "Code postal"
    Else
        firstAddress = Trouve.Address
        Do
            ComboBoxVILLE.AddItem .Range("B" & Trouve.Row)
            Set Trouve = .Columns(1).Cells.FindNext(Trouve)
        Loop While Not Trouve Is Nothing And Trouve.Address <> firstAddress
    End If
End With
Set Trouve = Nothing

TextBoxCP.Text = Format(TextBoxCP.Text, "0## ###")

End Sub