liste de client

[Jean-Paul]

Bonjour a tous et merci de regarer mon problème.
Voila : je voudrais dans la liste de client qu'il y a dans mon fichier exemple,
pouvoir cliquer sur un nom et qu'il automatiquement va se loger dans la cellule p9
merci beaucoup

 

[Gérard DEZAMIS]

Bonsoir Jean-Paul

C'est effectivement un fichier exemple ...
Exemple à ne pas suivre ! Je plaisante ! Tu a dû l'oublier en route !
(Pas plus de 50 k pas de caractère "bizarre" et pas d'espace)
@+
GD

 

[Jean-Paul]

Excuser moi voice le model
mais sur ce model je voudrais le client sur H6

Merci a vous

 

[Gérard DEZAMIS]

Bonsoir Jean-Paul
La méthode utilisé est de nommer une zone ici Clients qui sert ensuite dans données validation Liste source = Clients à alimenter la case où doir apparaitre le nom du client

A toi de vois si cela peut te convenir.
@+
GD

 

[Jean-Paul]

Merci Gérard de répondre mais ce que je voudrais si c'est possible
c'est de ne pas avoir de flèche de liste déroulante
je voudrais avoir ma liste apart et quand je clique sur le nom
l'à il va semettre dans la cellule
Merci

 

[Gérard DEZAMIS]

Bonsoir Jean-Paul

A placer dans ta feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Clients")) Is Nothing Then
Recopie Target
End If
Cancel = True
End Sub
Private Sub Recopie(Target As Range)
Range("H6") = Target
End Sub

Un grand merci à Yannick01 qui a fait tout le boulot !

@+
GD

 

[Jean-Paul]

Merci Yanick

 

[Eric C]

Bonjour le forum
Bonjour Jean paul & Gérard

Tu peux même concaténer les 2 macros en une :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Clients")) Is Nothing Then
Range("H6") = Target
End If
End Sub

Bon W End à toutes & à tous
@ ++ Eric C

 

[Gérard DEZAMIS]

Bonjour à tous
et Merci (un grand) à Eric
En faire le moins possible pour obtenir le meilleur résultat.
Améliorer ou bidouiller les solutions des autres pour les embellir. Farfait. Sur ce Forum c'est vraiment coopératif, participatif et .... super sympa. Pouvu que ça dure !

Bon W-E à tous

@+
GD