Discussion :

[pierre_br]

Bonjour
J'ai relevé la macro proposé par Patricktoulon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
    If Target.Cells.Count = 1 Then Target.Copy Destination:=[I3]
End If
End Sub

je souhaiterais modifier cette macro pour obtenir en I3 non pas la valeur de la cellule
mais le numéro de la ligne ou se situe la cellule.
je ne parviens pas à trouver la bonne syntaxe
Merci de votre aide

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Cells.Count = 1 Then Range("I3").Value = Target.Row
End Sub

je souhaiterais modifier cette macro pour obtenir en I3 non pas la valeur de la cellule
mais le numéro de la ligne ou se situe la cellule.

La macro d'origine ne mets pas une valeur en I3 mais, au contraire, met dans la cellule cliquée la valeur se trouvant en I3.

[pierre_br]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 And Target.Cells.Count = 1 Then Range("I3").Value = Target.Row
End Sub

La macro d'origine ne mets pas une valeur en I3 mais, au contraire, met dans la cellule cliquée la valeur se trouvant en I3.

Merci pour la macro que vous m'avez envoyée
Elle répond tout à fait à ma demande.

Par contre je suis surpris de vos remarques sur la macro d'origine.
je l'ai testé et utilisé si je clique en c15 je récupère en i3 la valeur de c15
Ii est bien spécifié copy destination i3

Peu importe Merci pour votre aide

[Menhir]

Par contre je suis surpris de vos remarques sur la macro d'origine.
je l'ai testé et utilisé si je clique en c15 je récupère en i3 la valeur de c15
Ii est bien spécifié copy destination i3

Effectivement, je n'avais pas vu que c'était un Copy et non un =.

[patricktoulon]

re
bonsoir
le test target.count n'est pas nécessaire pour le doubleclick, il y aura toujours qu'une cellule
je l'ai dis dans l'autre discussion que tu a visité
un truc simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True'pour ne pas mettre la cellule en mode edition 
 [i3] = IIf(Target.Column = 3, Target.Row, [i3])
End Sub

[pierre_br]

Bonjour Patrick

Merci pour tes précisions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Cancel = True'pour ne pas mettre la cellule en mode edition 
 [i3] = IIf(Target.Column = 3, Target.Row, [i3])
End Sub

Dans cette macro je voudrais ajouter une commande
si en colonne 3 feuille1 je clique sur "c15" valeur 22
je souhaite en feuille 2 dans les colonnes "d:g"
retrouver la valeur 22 et faire arriver le curseur sur cette cellule
sachant qu'il y a une seule cellule valeur 22.

Peux tu me donner la syntaxe.
D'avance merci
Pierre