Macro double clic pour afficher une valeur dans une cellule

Bonjour,

Je souhaiterais créer une macro permettant d'afficher une valeur définie dans les cellules d'une colonne par un double clic.

Exemple si je double clique sur n'impote quelle cellule de la colonne D la valeur affichée sera 1, 2 sur les cellules de la colonne E, 3 sur les cellules de la colonne F.

La difficulté c'est qu'il ne peut y avoir qu'une seule valeur affichée par ligne: Si je double clique sur D4 puis sur E4 la seule valeur affichée devra être 3 (celle correspondant au dernier "double clic".

J'espère que mes explications sont suffisamment claires et que pourrez m'aider à trouver une solution à mon problème.

Bonsoir,

Envoie une feuille avec exemples représentatifs

Amicalement

Claude

Bonsoir,

Regarde et dis quoi.

Avec un simple clic dans la colonne.

A +

dubois a écrit :

Bonsoir,

Envoie une feuille avec exemples représentatifs

Amicalement

Claude

Merci Claude de m'apporter ton aide. Comment insérer un fichier dans le message?

-- 09 Nov 2010, 21:27 --

henri a écrit :

Bonsoir,

Regarde et dis quoi.

Avec un simple clic dans la colonne.

A +

Cela semble correspondre à ce que j'attendais. Étant novice je vais essayer de la comprendre et de l'adapter.

Merci encore.

re

pour joindre un fichier sur le forum

Bonsoir,

Comment insérer un fichier dans le message?

en plus du commentaire de Claude, vois ce lien qui t'a été envoyé dans ta BAL lors de ton inscription --> https://forum.excel-pratique.com/excel/explications-et-regles-a-respecter-t13.html

A bientôt

Bonjour,

Je transmets mon fichier à titre d'exemple en pièce jointe.

Merci Claude pour tes infos. Je crois que j'ai besoin de lunettes!

Cordialement

-- 10 Nov 2010, 08:57 --

Jacky2010 a écrit :

dubois a écrit :

Bonsoir,

Envoie une feuille avec exemples représentatifs

Amicalement

Claude

Merci Claude de m'apporter ton aide. Comment insérer un fichier dans le message?

-- 09 Nov 2010, 21:27 --

henri a écrit :

Bonsoir,

Regarde et dis quoi.

Avec un simple clic dans la colonne.

A +

Cela semble correspondre à ce que j'attendais. Étant novice je vais essayer de la comprendre et de l'adapter.

Merci encore.

Après de multiples essais, lorsque je copie ta macro dans mon fichier, cela ne fonctionne plus.

Dommage car c'est pile poil ce que je cherchais

Merci encore

Bonjour,

Essaie avec ce code, à coller dans l'évènement de feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plg As Range
Set Plg = Range("C4:F20") 'plage à adapter
If Not Intersect(Target, Plg) Is Nothing Then
    Plg(Target.Row - 3, 1).Resize(1, 4).ClearContents
    Target = Cells(3, Target.Column).Value
    Cancel = True
End If
End Sub

Bonne journée

cousinhub a écrit :

Bonjour,

Essaie avec ce code, à coller dans l'évènement de feuille

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plg As Range
Set Plg = Range("C4:F20") 'plage à adapter
If Not Intersect(Target, Plg) Is Nothing Then
    Plg(Target.Row - 3, 1).Resize(1, 4).ClearContents
    Target = Cells(3, Target.Column).Value
    Cancel = True
End If
End Sub

Bonne journée

Merci pour ton aide.

J'ai copié ta macro sur la feuille mais Rien à faire! Ca ne marche pas. Je commence à désespérer. Pourtant la plage est correcte.

Quand je double clique il ne se passe rien.

C'est la même chose pour toutes les macros qu'on m'a gentiment proposé.

Merci quand même et bonne journée

Bonjour,

as-tu activer les macros ?

voir options

Claude

édit: pour tes messages, utilise "Répondre" plutôt que "Citer" ou "Editer"