OptionButton avec une combobox pour lancer une recherche

Bonjour,

De nouveau je ne trouve pas la solution.

Après selection d'un OptionButton, affichage d'une combobox, choisir une valeur et là, je plante. Comment faire pour que le choix se retrouve dans ma variable M_Devis. J'ai ajouter une ligne Me.CbxDevis = Application.InputBox("entrée un numéro de devis"), si je rentre la valeur le reste fonctionne parfaitement. Je souhaite ne plus passer par la saisie mais par la selection de la combo. Merci de votre aide.

Private Sub OptionButton4_Click() ' Modification d'un devis

If Me.OptionButton4 = True Then
    Me.OptionButton1.Visible = False 'Modifier l'apparence du formulaire
    Me.OptionButton2.Visible = False
    Me.OptionButton3.Visible = False
    Me.OptionButton5.Visible = False
    Me.lblNumDevis.Visible = True
    Me.CbxDevis.Visible = True
    Me.CbxDevis = Application.InputBox("entrée un numéro de devis")
    If Me.CbxDevis <> "" Then
        M_Devis = Me.CbxDevis
        RechDevis
        ActiveCell.Offset(ligne - 1, 19).Activate
        Range("S" & ligne) = "Modifié"
        Else
        MsgBox "Choisir un devis"
        M_Devis = Me.CbxDevis
        Exit Sub
    End If
End If
End Sub

Bonjour, une combox est alimentée par une liste. (Dans le cas présent la liste des devis existants)

Si on a que votre code sans fichier on ne va pas inventer le reste du code. pour trouver la liste et les actions de la combo.

Avec mes excuses, j'ai oublie

Bonjour, D'aprés ce que j'ai compris : Aprés choix de l'option 4 ( Modification ) Le sélecteur de devis apparait.

il faut donc déplacer le code dans l'évènement combobox change.

( on utilise alors le code : combobox.listindex pour trouver un numéro de ligne qui servira pour la suite )

Merci beaucoup, j'ai procédé au changement, je n'avais pas penser utiliser ce code.

Je vais pouvoir finaliser.

Merci encore