XL 2016 Liste déroulante modifiable et automatique

[Fipat]

Bonjour,

je recherche comment faire une liste modifiable et que la nouvelle donnée entrée s'ajoute à liste déroulante.

Exemple en Feuil1 j'ai en cellule A1

Toto
Tonton
Tatie

dans la feuil2 j'ai ma liste déroulante en B2.
Dans validation des données je décoche "Quand les données non valides sont tapées" pour pouvoir modifier, mais est-ce possible que cette modification vienne s'ajouter à la liste de la feuil1 ?

Dans le classeur exmple si je rajouté manuellement en Feuil2 B2 MAMIE je voudrais que cette donnée s'inscrive automatiquement en A1 feuil1.

Merci pour votre aide.

 

[bambi]

Dans le gestionnaire de noms, pour liste met

=Feuil1!$A:$A

Et tout ce que tu ajouteras dans la colonne A sera pris en compte 😉

 

[Fipat]

Merci Bambi 🙂

Via Formules et définir un nom ?



je dois mal m'y prendre car ça ne marche pas.

Merci.


EDIT :

Désolé, je viens de comprendre, cette technique permet de modifier feuil1 colonne A sans redéfinir les cellules pour la liste. Mais ce que je recherche c'est de pouvoir sasir une nouvelle donnée dans la feuil2 B2 et que cette nouvelle donnée s'inscrive directement en Feuil1 A

Merci.

 

[bambi]

Pourtant je fais exactement la même chose
Ton fichier en pièce jointe

[edit] c'est moi qui ai mal lu ta demande
mais à ma décharge, elle n'est pas commune
on cherche plutôt à faire l'inverse en général
donc je laisse les autres te répondre, car là, je ne sais pas
et je vais suivre les réponses avec curiosité

 

[Fipat]

J'ai éditer mon message en même temps que ta nouvelle réponse 🙂

EDIT :

Désolé, je viens de comprendre, cette technique permet de modifier feuil1 colonne A sans redéfinir les cellules pour la liste. Mais ce que je recherche c'est de pouvoir sasir une nouvelle donnée dans la feuil2 B2 et que cette nouvelle donnée s'inscrive directement en Feuil1 A

Merci pour ton aide.

 

[sousou]

Bonjour si une petite macro te conviens
Ajoute ceci dans le code de la feuille 2 ( à modifier avec ton contexte)
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
With Sheets("feuil1").UsedRange.Columns(1)
For Each i In .Rows
If Target <> i.Value Then nb = nb + 1
Next
MsgBox .Rows.Count & " " & nb
Target.Copy
If nb = .Rows.Count Then .Rows(1).Insert Shift:=xlDown
.Rows.Sort key1:=.Rows
End With
End Sub

 

[Fipat]

Bonjour Sousou,

merci pour cette réponse.
Cette macro fonctionne 🙂 , elle ajoute bien feuil1 la nouvelle saisie (d'ailleurs sous forme de liste en feui1 en colonne A ??? et je me retrouve avec ce nouveau menu déroulant avec Toto, Tonton, Tatie), mais je ne la retrouve pas dans la liste B2 Feuil2.



Merci

 

[Fipat]

Désolé Sousou, réponse trop rapide 🙂
Bon ça marche nickel, merci pour ce coup de pouce.

J'ai ajouté sur la validation des données ► =Feuil1!$A:$A sous Source :
Nickel, Merci.