Macro double clic pour afficher une valeur dans une cellule

Bonjour

je me permet d'utiliser ce post (https://forum.excel-pratique.com/viewtopic.php?f=2&t=19905&start=10) car il me semble proche de de dont j'ai besoin.

En fait je souhaite, en Dcliquant dans une cellule ( voir exemple fichier joint) je souhaite faire apparaître la valeur dans la colonne a cote si c'est la même valeur. Si elle est différente, je remplie manuellement.

Merci d'avance

Edit Dan

Bonjour

En fait je souhaite, en Dcliquant dans une cellule ( voir exemple fichier joint) je souhaite faire apparaître la valeur dans la colonne a cote si c'est la même valeur.

Heu je vois pas... Exemple : vous avez 3 en B2 et 3 en colonne C2, double clique en C2 --> vous voulez 3 en colonne B ???

Cordialement

Bonsoir mab2a, Dan,

je te retourne ton fichier modifié :

je te laisse faire des essais.

⚠ tu avais mis ton code VBA dans Module1 au lieu du module de la feuille concernée ! de plus, le code de la sub BeforeDoubleClick ne doit pas être placé à l'intérieur d'une autre sub, comme tu avais fait ici :

Sub DOUBLE_CLIQUE()
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
  ...
End Sub
End Sub

Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Re

Désolé mais j'ai pas eu le temps de revenir hier pour poster le fichier que j'avais préparé

Vois donc la solution proposée par Dhany

Cordialement

Bonsoir dhany

Merci c top !!!!

@plus

Bonsoir mab2a,

merci pour ton retour ! pour passer le sujet en résolu, clique sur près de (coin haut droit du post) ➯; ça permet aussi de clôturer le fil de la discussion (toi seul peut le faire, car c'est toi qui a créé ce sujet).

bonne continuation !

dhany

Re

C'est bizard ça ne marche plus, je ne sais pas ce qu'il s'est passé ???

fais Ctrl r ; clique sur le bouton OK ; continue comme avant.

si ton sujet est résolu, fais ce qui est indiqué dans mon post précédent.

dhany

OK Merci !!!!

Bonjour,

@ dhany,

Tu peux expliquer l'utilité de

Sub RéactivEvents()
    Application.EnableEvents = True
    MsgBox "Evènements réactivés."
End Sub

avec

Private Sub Worksheet_BeforeDoubleClick( _
        ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With Target
        'If .CountLarge > 1 Then Exit Sub (pas nécessaire)
        If .Column <> 3 Then Exit Sub
        If .Row <> 1 Then .Value = .Offset(, -1)
    End With
End Sub

Je ne comprends pas tout.

Cdlt.

@Jean-Eric

tu a écrit :

Tu peux expliquer l'utilité de...

[quote="à 21:15, mab2a"]C'est bizarre ça ne marche plus, je ne sais pas ce qu'il s'est passé ??? [/quote]

mon post précédent est de 21:50

[quote="à 22:05, mab2a"]OK Merci !!!![/quote]

et sujet passé en résolu !

moi même, des fois, j'suis épaté qu'mes solutions marchent si bien ! faut croire que quelque chose de magique s'est produit entre les 2 posts de mab2a.

comme c'est toi l'spécialiste, j'suis sûr que t'as compris de quoi il s'agit, n'est-ce pas ? (non, c'est pas du vaudou ! )

dhany