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.
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.