XL 2016 VBA - Recherche

senpan

XLDnaute Junior
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" ?
 

Pièces jointes

  • FORUM - Base de données - CP.xlsm
    1.2 MB · Affichages: 43

senpan

XLDnaute Junior
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" ?
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
312 799
Messages
2 092 239
Membres
105 299
dernier inscrit
doudounapnap