Macro double click pour coller sur une autre feuille

Reboujour à tous,

dans l'exemple joint, j'ai deux dossiers sélectionnés dans la feuille résultat.

Je voudrais en double-cliquant sur la ligne 2 (par exemple) de la feuille Résultat de recherche, aller copier la case B2 dans la feuille consultation sur la case C3.

Si je choisis la ligne 3, même chose: B3 se copie en C3

Je ne sais pas dans quel sens prendre la chose.

Encore merci d'avance,

Elfi

Bonsoir,

Essaie ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
'Macro Dan pour Plabrousse le 27/04/2010
'http://forum.excel-pratique.com/excel/macro-double-click-pour-coller-sur-une-autre-feuille-t16929.html
If Not Intersect(Target, Range("B2:B" & Range("B65536").End(xlUp).Row)) Is Nothing Then
With Sheets("Consultation")
    .Range("C3") = Target
    .Select
End With
End If
Cancel = True
End Sub

Code à placer dans la feuille Recherche résultat. Pour ce faire, clique droite sur l'onglet, puis choisis "visualiser le code" et mets le code ci-avant dans la fenêtre.

Amicalement

Bonjour le forum,

Bonjour Dan,

c'est exactement c que je voulais. Merci beaucoup

A bientôt

Elfi

Rebonjour à tous,

bonjour Dan

En fait, je suis allé trop vite. Ton code ne fonctionne que si l'on clique sur la cellule B de la ligne concernée. Or, ce que je voudrais, c'est que cela fonctionne quand on clique n'importe où sur la ligne (En fait, ligne correspond à un dossier dans une base. En cliquant dessus, j'ouvre le dossier).

Crois-tu que c'est possible.

D'avance, merci,

amicalement,

Elfi

Bonjour,

à adapter, mais à mon avis pas pratique !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Flag Then Exit Sub
    If Not Application.Intersect(Target, Range("b6:g" & [b65000].End(xlUp).Row)) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Range("c3") = Range("b" & Target.Row)
    End If
End Sub

Bonne journée

Claude

édit: mis dans DoubleClick

51selection.zip (22.05 Ko)

rebonjour à tous,

bonjour Claude, et merci.

Je ne comprend pas ce que tu veux dire par pas pratique. En fait, j'ai mal illustré ma question.

Voici le fichier avec les explications au fur et à mesure,

Merci encore.

PS:Claude, tu te doute pourquoi c'est faire, je présume. Merci pour tout pour cela aussi.

Amicalement,

Elfi

105selection.zip (24.52 Ko)

Re,

Ok tu avais pas dit cela au début...

Remplace mon code par celui-ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
'Macro Dan pour Plabrousse le 27/04/2010
'http://forum.excel-pratique.com/excel/macro-double-click-pour-coller-sur-une-autre-feuille-t16929.html
If Not Intersect(Target, Range("A2:D" & Range("B65536").End(xlUp).Row)) Is Nothing Then
Sheets("consultation").Visible = True
With Sheets("Consultation")
    .Range("C3") = Range("B" & Target.Row)
    .Select
End With
End If
Cancel = True
End Sub

Amicalement

Bonjour Dan,

Super, c'est ce qu'il me fallait.

Merci et à bientôt,

Elfi

Rechercher des sujets similaires à "macro double click coller feuille"