Ajout valeurs dans combobox avec macro

Bonjour à tous les excelliens qui pourront très certainement m'apporter une solution au problème suivant :

Dans ma feuille "Ecritures" j'ai un formulaire de saisie sur lequel figure un combobox appelé CléRep. Ce combobox est alimenté par une liste appelée "Clés" figurant sur l'onglet "Clé". Je souhaiterai que lorsque j'inscris dans le combobox CléRep une valeur qui n'existe pas dans la liste "Clés", cela déclenche la macro "AjoutClé" qui ouvre le formulaire pour ajouter des nouvelles valeurs à cette liste avec d'autres éléments.

J'ai testé plusieurs solutions mais toutes échouent ou m'ouvrent systématiquement la macro "AjoutClé".

Je joins mon fichier avec le dernier test effectué.

Je vous remercie par avance pour votre aide.

Private Sub CléRep_Change()

With Worksheets("Clé")

If Not IsError(Application.Match(Range("CléRep.Value"), Range("Clés"), 0)) Then

Call AjoutClé

End If

End With

End Sub

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Merci Gmb pour ta proposition mais qui ne correspond pas à ce que je souhaite.

Mais c'est sympa de t'être penché sur mon problème.

Une solution m'a été proposée qui convient à mon document.

Private Sub Clé_Change()

With Worksheets("Clé")

If Clé.MatchFound = False Then 'si la valeur de la combo n'est pas trouvé dans la liste initiale

If MsgBox("souhaitez-vous ajouter une clé de répartition ?", vbYesNo, "Demande de confirmation") = vbYes Then

Call AjoutClé

End If

End If

End With

End Sub

Cordialement

Merci à toi de ta réponse.

Effectivement, je comprends que j'avais fait compliqué alors qu'il y avait beaucoup plus simple.

Bye !