zone déroulante alimentable

[cptbru]

Bonjour le forum

J' essaye de m' en sortir avec le pb suivant:

Dans une Zone de Liste déroulante ( Active X) qui fait référence à une liste de cellules par exemple $A$1:$A$10 ,je souhaite pouvoir taper un nom au clavier directement dans la combobox et qu'il s' enregistre ds la liste en 11eme valeur apr exemple.

Merci pour vos lumieres

Cptbru

 

[BOISGONTIER]

Re : zone déroulante alimentable

Bonjour,

Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le tableur)
Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If IsError(Application.Match(Me.Choix, Sheets("liste").Range("liste"), 0)) And Me.Choix <> "" Then
     Sheets("liste").Range("liste").End(xlDown).Offset(1, 0) = Me.Choix
     Sheets("liste").Range("liste").Sort key1:=Sheets("liste").Range("liste")(1)
    End If
End Sub

JB
Formation Excel VBA JB

 

[cptbru]

Re : zone déroulante alimentable

Bonjour,

Si l'élément frappé n'appartient pas à la liste, il est ajouté
(Liste dans le tableur)
Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If IsError(Application.Match(Me.Choix, Sheets("liste").Range("liste"), 0)) And Me.Choix <> "" Then
     Sheets("liste").Range("liste").End(xlDown).Offset(1, 0) = Me.Choix
     Sheets("liste").Range("liste").Sort key1:=Sheets("liste").Range("liste")(1)
    End If
End Sub

JB
Formation Excel VBA JB

Merci je vais l' intégrer à mon programme
Cptbru