Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

[anthoYS]

Bonsoir,

Je souhaite, afficher le commentaire correspondant à la liste.
Je m'explique en E (Feuil1) on choisi un des 3 JD (d'une liste allant de A1:A3, en 'feuil2'), et si je choisi l'élément ou JD en A2, il faut que le commentaire projetté en E, soit celui présent en C2 (feuil2).

Voilà, pour plus de clarté, veuillez vous référez au fichier joint.

Merci par avance.

 

[Macpoy]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

bonsoir,

pour un contributeur avisé, vous publiez 2 questions similaires !!!
est ce bien nécessaire ??
on fait le reproche aux nouveaux !!!
voir pour un début de réponse

https://www.excel-downloads.com/thr...menu-liste-deroulante-copie-loriginal.141946/

 

[BOISGONTIER]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
    Application.EnableEvents = False
    [Prique].Find(Target, LookAt:=xlWhole).Offset(, 2).Copy
    Target.PasteSpecial Paste:=xlPasteComments
    Application.EnableEvents = True
  End If
End Sub

JB

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Merci BOISGONTIER.

Toujours prêt à donner un coup de main surtout quand ça traite de menu liste déroulante, un vrai spécialiste.

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Re,

Autre problème, c'est que la liste se trouve sur une autre feuille...

Comment faire?

Car ce raccourci en liste déroulante est faux...
Car le voici :
='C:\Users\Utilisateur\Documents\[Y.xlsm]Bks'!$B$2:$B$30

Or la plage $B$2:$B$30 est nommée, mais ça ne passe pas !
Ce nom est "Liste_livres"

Dans le code de la feuille je dois juste préciser le nom de la plage?
Ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
    Application.EnableEvents = False
    [Liste_livres].Find(Target, LookAt:=xlWhole).Offset(, 2).Copy
    Target.PasteSpecial Paste:=xlPasteComments
    Application.EnableEvents = True
  End If
End Sub

Merci par avance.

Ps : désolé, car tes solutions précedentes s'avèrent juste, mais je n'ai pas su adapter correctement à mon problème quand j'ai posté le sujet.

 

[BOISGONTIER]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

-La liste est située dans un autre classeur X.XLS (qui est ouvert) dans un onglet xxx
-Dans le classeur où est situé le menu, définir un nom de champ

Prique =[x.xls]xxx!$A$1:$A$3

Programme sans changement.

JB

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

OK merci BOISGONTIER.

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Re,

Je l'ai adapté à un de mes fichiers ;

Voci le code d'erreur :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 Then
    Application.EnableEvents = False
   [COLOR="Red"] [Y.xlsm]Bks!$B$2:$B$30.Find(Target, LookAt:=xlWhole).Offset(, 3).Copy[/COLOR]
    Target.PasteSpecial Paste:=xlPasteComments
    Application.EnableEvents = True
  End If
End Sub

en image :



Menu liste déroulante :



Liste visé onglet 'Bks' :



Les commentaires sont en E ici (non visible dans l'image).


Merci par avance.

 

[Staple1600]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Bonjour


anthoYS
Tu devrais te méfier de tes copies d'écrans.
Elles révèlent bien des choses ... 😛

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Tu devrais te méfier de tes copies d'écrans.
Elles révèlent bien des choses ... 😛

Comme quoi?

Non, tu fait juste une erreur d'interprétation (idées mal placé) ;
Si c'est pour faire chaque fois sur mes posts ce genre de remarque...
Elle ne m'aide pas grandement à résoudre ce pour quoi j'ai posté le sujet...

Merci de respecter cela.

 

[Staple1600]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Re

C'est juste un trait d'humour concernant l'onglet nommé Cul
Personnellement je l'aurai effacé de la copie d'écran.

Il n'est pas interdit (pas encore) de faire de l'humour que je sache 😉

PS: je préviens aussi les forumeurs quand ceci joignent des classeurs contenant des données confidentielles.

PS2: comme tu utilises Excel 2007, et que ta question est dans le forum dédié à Excel, je ne peux pas t'aider n'ayant pas Excel 2007 sous la main.

PS3:Sauf qu'en relisant le code de BOISGONTIER, je vois qu'il utilises une zone nommée

[Prique].Find(Target, LookAt:=xlWhole).Offset(, 2).Copy

que toi tu n'utilises pas dans ton dernier code.

[Y.xlsm]Bks!$B$2:$B$30.Find(Target, LookAt:=xlWhole).Offset(, 3).Copy

Je pense que l'erreur vient de là

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Re,

Ok lol. Et d'accord pour ton excuse en PS2...
Mais rien n'est confidentiel ici ! Juste le nom des onglets, mais sans avoir le contenu...
Voilà.

T'es drôle jusqu'au bout, tu rajoute même un PS2.

@+

 

[Staple1600]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Re

Il y a même un PS3 maintenant

Avec une zone nommée (Insertion/Noms/Définir) cela devrait marcher.

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Merci. Mais ça n'a rien à voir, c'étais adapté à un fichier exemple (fictif pour le post).
Mais adapté à mon cas réel ça ne marche pas.

Cordialement.

Bonne fin de dimanche Staple1600 !

PS : comme quoi pas besoin d'Excel 2007 surtout que les copies indique tout, enfin je crois.

 

[anthoYS]

Re : Commentaire par menu liste déroulante, f-> cellule choisi, même ligne (A2=>C2))

Re,

je renvoie ce qui savent à ce post (# Lien supprimé)

Veuillez s'il vous plaît m'aider car je n'y arrive pas du tout. 😕

D'ou vient la faille au code?

Merci & @+ j'espère !