Actualisation d'une liste déroulante

Bonjour,

Je m'excuse, j'ai l'impression d'avoir lu 10 fois ce titre sur le forum mais malheureusement je n'ai pas trouvé la réponse à mon problème.

Ma question est la suivante:

J'ai une liste de produits dont l'intitulé est amené à changé au fil du temps. J'aimerais que les listes déroulantes s'actualisent lorsque que la modification se fait dans la liste des produits. Car aujourd'hui, si je modifie le nom d'un produit dans la liste des produits, elle ne s'actualise pas dans la liste déroulante et donc les recherches associés sont introuvable car le produit devient introuvable. Je suis ainsi obligé de retourner dans la liste déroulante pour réactualiser et rechoisir le bon produit.

Y- a t-il une option a valider pour que cela fonctionne?

J'espère ne pas avoir fait de demande doublon et avoir été assez précis dans ma demande,

Merci d'avance pour votre aide.

Bonjour et bienvenue sur le forum

Joins ton fichier avec sa liste déroulante et sa liste de produits et on verra comment la faire fonctionner.

Bye !

Bonsoir

Dans un module

Public AncienMot
Public NouveauMot

Dans la feuille contenant la liste

Adapter NomDefiniDeLaListe et Sheets("Feuil2")

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [NomDefiniDeLaListe]) Is Nothing Then
AncienMot = Target
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Liste]) Is Nothing Then
NouveauMot = Target
Sheets("Feuil2").Cells.Replace What:=AncienMot, Replacement:=NouveauMot, MatchCase:=True
End If
End Sub

Amicalement

Nad

Bonjour,

Je vous upload un fichier simplifié qui utilise le meme systeme ..

Si je modifie la dénomination dans la tab "pdts" par exemple du produit "b" par le nom "b1", la recherche prix dans la tab "recherche" ne peut plus se faire car le nom du produit n'est plus le bon.

Je voulais savoir si il était possible d'avoir une actualisation automatique?

Merci beaucoup ..

Bonsoir

Je t'ai donné la marche à suivre plus haut. As-tu essayé de l'appliquer ?

Je veux bien te renvoyer ton fichier, mais tu ne progresseras pas.

Je préfèrerai que tu me dises si tu comprends pas quelque chose et je te guiderai.

A te relire

Nad

Bonjour Nad,

Merci pour ton retour, je n'ai effectivement pas réussi la manipulation.

• J'ai ouvert VBA
• J'ai crée un module dans VBAProject (Personal Macro Workbook)
• J'ai collé dedans:

Public AncienMot

Public NouveauMot

- J'ai ouvert dans VBAProject (Pdts & Recherche.xslx) pas dans (Personal Macro Workbook) meme si je l'ai testé quand meme:

et j'ai collé:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [Frs]) Is Nothing Then
AncienMot = Target
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [Liste]) Is Nothing Then
NouveauMot = Target
Sheets("Recherche").Cells.Replace What:=AncienMot, Replacement:=NouveauMot, MatchCase:=True
End If
End Sub

Ensuite j'ai voulu sauver le travail, excel me dit que si je sauve mon travail, les macros seront perdues,

J'ai essayé de jouer avec e fichier sans enregistrer mais j'ai du faire qq chose qu'il n'allait pas car ca ne fonctionne pas,

Merci d'avance,

Bonne journée,

Thomas.