Interopérabilité comboBox / feuille excel…

Bonjour à toi Albert,


Je pense que le fil suivant ave le fichier joint de Thierry devrait répondre à tes attentes...


gestion des combobox


A+++

MERCI ZON!!!

...MERCI JACQUESDERYES, MERCI THIERRY

je sors enfin de l'ornière

... mais pourquoi Bill a fait un machin ingérable... il aurait pu penser à cette fonction ???

Il y a surement plus simple, mais ça fonctionne.

il faut tout d'abord déterminer la source de données du combobox1, variable, puisque tu peux ajouter des données

Private Sub UserForm_Initialize()
ComboBox1.RowSource = Range("a1", Range("a1").End(xlDown)).Address

End Sub
___________________________________________________

Lorsque l'on clique sur le bouton1, on effectue une recherche dans la feuille pour voir si ton entrée existe déjà.
Si elle n'existe pas ("is nothing") alors se placer à la dernière ligne vide et ajouter la valeur du combobox1.
Enfin, on réactualise ton combobox avec la nouvelle entrée ("call userform_initialize").


Private Sub CommandButton1_Click()

If Cells.Find(What:=ComboBox1.Value, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False) Is Nothing Then Range("a1").End(xlDown).Offset(1, 0).Value = _
ComboBox1.Value

Call UserForm_Initialize

end sub


Bonne journée

merci eric de proposer un code plus simple
mais je n'ai pas de bouton pour
CommandButton1_Click()
mais seulement 1 ComboBox
... et le code ne marche pas, même en remplaçant l'un par l'autre



... j'ai dû faire unschmilblick quelque part :

- j'ai effacé A1:A6 dans RowSource
- j'ai mis le code : ComboBox1.RowSource = Range("a1", Range("a1").End(xlDown)).Address

derrière la grille UserForm "click" remplacé par "initialize"

Eurêka... ça marche!!!

j'ai reproduit

Thierry's Démo pour Bruno "GESTION DES COMBOBOX"

ça marche! miracle!!

bonjour éric,

maintenant j'ai compris comment faire

ça marche horizontalement et verticalement (à condition de remplir les deux premières cases manuellement)


merci pour cette base de travail

albert