XL 2016 Liste déroulante modifiable et automatique

Fipat

XLDnaute Nouveau
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.
 

Fichiers joints

bambi

XLDnaute Occasionnel
Dans le gestionnaire de noms, pour liste met
Code:
=Feuil1!$A:$A
Et tout ce que tu ajouteras dans la colonne A sera pris en compte ;)
 

Fipat

XLDnaute Nouveau
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.
 
Dernière édition:

bambi

XLDnaute Occasionnel
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é
 
Dernière édition:

Fipat

XLDnaute Nouveau
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

XLDnaute Accro
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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.
 

Discussions similaires


Haut Bas