jeanlouispaf
XLDnaute Nouveau
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
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