Bonjour à tous,
J'ai un code qui devrait envoyer une valeur issue d'une combobox vers une liste qui est sur une feuille "DATA".
J'ai beau chercher je n'arrive pas à retomber sur mes pattes.
J'ai systématiquement une erreur:
"Erreur d'exécution 1004" - "Erreur définie par l'application ou par l'objet"
nota: le "Then" est bien placé dans le code il n'y a pas de retour chariot
Je vous laisse le code et la feuille de calcul
Merci d'avance pour vos réponses
J'ai un code qui devrait envoyer une valeur issue d'une combobox vers une liste qui est sur une feuille "DATA".
J'ai beau chercher je n'arrive pas à retomber sur mes pattes.
J'ai systématiquement une erreur:
"Erreur d'exécution 1004" - "Erreur définie par l'application ou par l'objet"
nota: le "Then" est bien placé dans le code il n'y a pas de retour chariot
Je vous laisse le code et la feuille de calcul
Merci d'avance pour vos réponses
Code:
Private Sub cbxDomaine_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Ajout données dans la liste Domaine
If IsError(Application.Match(Me.cbxDomaine, Worksheets("DATA").Range("DOMAINE"), 0)) And Me.cbxDomaine <> "" Then
Worksheets("DATA").Range("DOMAINE").End(xlDown).Offset(1, 0) = Me.cbxDomaine
Worksheets("DATA").Range("DOMAINE").Sort key1:=Range("DOMAINE")(1)
End If
End Sub