Récupération de la valeur d'une combobox

jeanlouispaf

XLDnaute Nouveau
Bonjour à tous

Dans un fichier d'adresses, je souhaite extraire d'une combobox la valeur "adresse" et la valeur "commune". Le Combobox fonctionne bien à la 1ère saisie mais plante dès la 2ème sélection.
Normalement le combobox doit pouvoir proposer les choix possibles à partir de quelques lettres contenues dans la valeur cherchée mais là aussi j'ai une erreur d'exécution.
Le problème vient du code que j'ai ajouté à une macro qui permettait de sélectionner une adresse par un double clic ou en tapant quelques lettres.

ActiveCell.Value = ComboBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = Right(Me.ComboBox1.Value, Len(Me.ComboBox1.Value) - InStr(Me.ComboBox1.Value, " - ") - 2)
ActiveCell.Offset(0, -1).Select
ActiveCell = Left(Me.ComboBox1.Value, InStr(Me.ComboBox1.Value, " - ") - 1)

Je vous remercie pour votre aide.
 

Pièces jointes

  • ComboBoxIntuitifs_Lettres.xls
    293.5 KB · Affichages: 19

Bebere

XLDnaute Barbatruc
bonsoir
bienvenue jean louis
code à tester
Code:
Private Sub ComboBox1_Change()
    Dim pos As Byte
    If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
        Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
        Me.ComboBox1.DropDown
    End If
    pos = InStr(Me.ComboBox1.Value, " - ")
    If pos > 0 Then
        ActiveCell.Offset(0, 1) = Mid(Me.ComboBox1.Value, pos + 2)
        ActiveCell = Mid(Me.ComboBox1.Value, 1, pos - 2)
    End If
End Sub
 

Discussions similaires

  • Question
Microsoft 365 Code VBA
Réponses
2
Affichages
294

Statistiques des forums

Discussions
311 725
Messages
2 081 948
Membres
101 849
dernier inscrit
florentMIG