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

jeanlouispaf · 3 Novembre 2017

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.

Bebere · 3 Novembre 2017

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

jeanlouispaf · 3 Novembre 2017

[
Merci infiniment Bebere pour cette solution qui fonctionne parfaitement. Je vais regarder le code en détail pour en comprendre le fonctionnement.

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

jeanlouispaf

XLDnaute Nouveau

Pièces jointes

Bebere

XLDnaute Barbatruc

jeanlouispaf

XLDnaute Nouveau

Discussions similaires

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

jeanlouispaf

XLDnaute Nouveau

Pièces jointes

Bebere

XLDnaute Barbatruc

jeanlouispaf

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency