Clic sur cellule déclenche affichage dans autre cellule

[gourdin]

Bonjour,

Pas facile à expliquer clairement,

Le mieux est de voir l'exemple simplifié ci-joint.

Merci

 

[youky(BJ)]

Re : Clic sur cellule déclenche affichage dans autre cellule

bonjour gourdin,
Un click droit sur l'onglet de ton classeur et visualiser le code
et copier ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
[E:E].ClearContents
Target.Value = Target.Offset(0, -2)
Target.Offset(2, 0) = Target.Offset(2, -2)
End Sub

 

[gourdin]

Re : Clic sur cellule déclenche affichage dans autre cellule

bonjour gourdin,
Un click droit sur l'onglet de ton classeur et visualiser le code
et copier ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
[E:E].ClearContents
Target.Value = Target.Offset(0, -2)
Target.Offset(2, 0) = Target.Offset(2, -2)
End Sub

Merci beaucoup

 

[phlaurent55]

Re : Clic sur cellule déclenche affichage dans autre cellule

Bonsoir à tous,
plutôt comme ceci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
[J19:L19].ClearContents
Range("J19").Value = Target.Offset(0, -2)
Range("L19").Value = Target.Offset(2, -2)
End Sub

voir fichier joint

 

[youky(BJ)]

Re : Clic sur cellule déclenche affichage dans autre cellule

Bonjour phlaurent55 et bien vu pour rectifier les destinations.
La prochaine fois je prends mon GPS.....

 

[gourdin]

Re : Clic sur cellule déclenche affichage dans autre cellule

Bonjour phlaurent55 et bien vu pour rectifier les destinations.
La prochaine fois je prends mon GPS.....

Merci à vous 2

 

[gourdin]

Re : Clic sur cellule déclenche affichage dans autre cellule

Je viens de me rendre compte que je n'ai pas été assez précis dans ma demande et que celà ne colle pas à mon document original.
J'ai trop simplifié mon exemple.
Vraiment désolé.

Voici, en fichier joint, le nouvel exemple simplifié qui "colle' à mon document original.

Merci de votre aide

 

[phlaurent55]

Re : Clic sur cellule déclenche affichage dans autre cellule

Re, gourdin,
ton fichier en retour

vois si cela te conviens

EDIT: j'aurais pu regrouper

If Not Intersect(Target, Range("[B][COLOR="Blue"]E9,E13,I9,I13[/COLOR][/B]")) Is Nothing Then
[E18:H18].ClearContents
Range("E18").Value = Target.Offset(0, -1)
Range("H18").Value = Target.Offset(2, -1)
End If

 

[gourdin]

Re : Clic sur cellule déclenche affichage dans autre cellule

Re, gourdin,
ton fichier en retour

vois si cela te conviens

EDIT: j'aurais pu regrouper

If Not Intersect(Target, Range("[B][COLOR="Blue"]E9,E13,I9,I13[/COLOR][/B]")) Is Nothing Then
[E18:H18].ClearContents
Range("E18").Value = Target.Offset(0, -1)
Range("H18").Value = Target.Offset(2, -1)
End If

OK merci encore