Microsoft 365 Report d'une cellule

[emmanuel.conche]

Bonjour
Je souhaite reporter la valeur d'une cellule vers une autre, par la simple clic sur une des cellule de la même ligne.
Dans mon exemple si je clique sur par exemple C12 je veux que le numéro client D12 s'affiche directement en D2.
Est-ce possible ?
Merci
Manu

 

[emmanuel.conche]

Re,
Voir PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A16:AQ49]) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub
Il en reste 1 STP
[/QUOTE]

 

[emmanuel.conche]

Re,
Voir PJ avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [A16:AQ49]) Is Nothing Then
        If Cells(Target.Row, "F") <> "" Then [E1] = Cells(Target.Row, "F")
    End If
End Sub

STP IL RESTE UN POSTE AVEC LE TABLEAU

 

[sylvanu]

Re,

Quel tableau ? Quel post ?

Si c'est le post #10 j'ai supprimé la PJ.