alias_2003
XLDnaute Occasionnel
Bonjour à tous
Je ne pensais pas autant m'arracher les cheveux sur cette question, mais c'est pourtant la cas.
Voici mon problème : j'ai une combobox pour laquelle je dois limiter la saisie à la liste renseignée (initialisée dans l'Userform_Initialize) sauf si le choix dans la liste est "Ajout". Dans ce cas, une inputbox est affichée permettant à l'utilisateur de renseigner un nouveau nom.
Pour éviter les saisies "sauvages", j'ai changé le style de ma combobox à 2.
Voici le code de ma combobox
Evidemment, si je vous sollicite, c'est parce que mon code ne me permet pas d'obtenir le résultat recherché.
Pouvez-vous m'aider sur cette question et sauver les cheveux qu'il me reste ?
Merci beaucoup
Je ne pensais pas autant m'arracher les cheveux sur cette question, mais c'est pourtant la cas.
Voici mon problème : j'ai une combobox pour laquelle je dois limiter la saisie à la liste renseignée (initialisée dans l'Userform_Initialize) sauf si le choix dans la liste est "Ajout". Dans ce cas, une inputbox est affichée permettant à l'utilisateur de renseigner un nouveau nom.
Pour éviter les saisies "sauvages", j'ai changé le style de ma combobox à 2.
Voici le code de ma combobox
Code:
Private Sub CBNom_Change()
Dim rep As String
If CBNom.Value = "Ajout" Then
Me.CBNom.Style = 0
rep = InputBox("Renseignez le nom du nom.", "Nom")
Me.CBNom.Value = rep
If rep = "" Then
CBNom.Value = ""
End If
Else
Me.CBNom.Style = 2
Exit Sub
End If
End Sub
Evidemment, si je vous sollicite, c'est parce que mon code ne me permet pas d'obtenir le résultat recherché.
Pouvez-vous m'aider sur cette question et sauver les cheveux qu'il me reste ?
Merci beaucoup