Modifier Rowsource automatiquement

[Jacques25]

Bonjour à tous,

Une petite question pour compléter un fichier :

J'utilise une combobx que j'alimente à l'aide de Rowsource.
Je souhaiterai compléter cette combobox (Rowsource) si je saisie une valeur différente de celles présentes dans la liste initiale.

Exemple :
Liste en colonne A appelée "Liste" comprennant : Paris, Lyon, Marseille
Je clique sur ma combobox et la ville que je veux est Orléans, je saisie donc Orléans
La prochaine fois que j'utilise ma Combobox je souhaiterai avoir les choix : Paris, Lyon, Marseille, Orléans.

En faisant ma recherche j'ai vu qu'il valait mieux utiliser Additem, pouvez vous m'en dire plus c'est une fonction que je ne connais pas.

Merci de votre coup de main.

Jacques

 

[Yaloo]

Re : Modifier Rowsource automatiquement

Bonjour Jacques,

Peut être avec un fichier.

A+

 

[CHALET53]

Re : Modifier Rowsource automatiquement

Bonjour

Un essai

 

[Yaloo]

Re : Modifier Rowsource automatiquement

Bonjour Chalet,

Je vois que tu as changé ton fichier, je ne l'ai pas encore testé.

Sinon sur la base du fichier de Chalet avec Find

Private Sub CommandButton1_Click()
derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Set C = Feuil1.Cells.Find(ComboBox1, LookIn:=xlFormulas, LookAt:=xlWhole)
  If C Is Nothing Then
    Cells(derlig + 1, 1) = ComboBox1
    ComboBox1.Clear
    userform_initialize
  End If
End Sub

A+

 

[Yaloo]

Re : Modifier Rowsource automatiquement

Re,

Sinon, comme ça :

 

[Jacques25]

Re : Modifier Rowsource automatiquement

Bonjour,

Merci pour vos réponse, je vais regarder ce qui est le plus simple à adapter dans mon code.
Désolé pour la pièce jointe mais après une dizaine d'essai pour la joindre au message j'ai abandonné (message d'erreur en permanence)

Bonne journée à tous

 

[gbinforme]

Re : Modifier Rowsource automatiquement

Une autre solution en utilisant un nom de liste dans rowsource comme dans la question.

"Je clique sur ma combobox et la ville que je veux est Orléans, je saisie donc Orléans"
et la prochaine fois que j'utilise ma Combobox il y a Orléans.

 

[Jacques25]

Re : Modifier Rowsource automatiquement

Bonjour à tous,

Une petite question pour gbinforme concernant le fichier, ça marche bien dans l'exemple mais si je veux l'utiliser dans une autre colonne j'ai un soucis au niveau de la ligne de code :
.Sort .Cells(.Row, .Column), xlAscending
Je pense avoir correctement modifier la définition de la plage "liste"
A savoir que le nom saisie ne s'inscrit pas dans la bonne colonne.
Après plusieurs essai je ne parviens pas à trouver la solution.

Pouvez vous m'aider.
Ci joint le fichier avec modif ==> décidément j'ai du mal avec les pièces jointes :-( je clique sur le bouton mais rien ne se passe.

Merci

 

[gbinforme]

Re : Modifier Rowsource automatiquement

Bonjour Jacques25,

Effectivement, je t'avais transposé rapidement ce que j’utilise quotidiennement mais il manquait le paramètre de la feuille sans lequel cela ne fonctionne pas correctement.

Voici l'exemple double qui devrait fonctionner.

 

[Jacques25]

Re : Modifier Rowsource automatiquement

Bonjour tout le monde,

Merci gbinforme pour cette modif ça marche très bien.

@ plus