VBA Cells(Target

Bonsoir à tous,

Ce code déplace le curseur horizontalement (15 ème colonne de la plage2)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, [plage2]) Is Nothing Then
Cells(Target.Row, 15).Activate
End Sub

Je cherche l'équivalent, pour déplacer le curseur verticalement (toujours ligne 5)

édit:0:12 h

Plus exactement, je voudrais copier la cellule (target, sur la ligne 5 de la même colonne.

amicalement

Claude.

Bonsoir Claude,

Essaie le même code, en remplaçant Row par Column.

Amicalement

V_Elbie

merci V_Elbie,

Mais çà ne donne pas du tout le résultat attendu !

Bon, on verras çà demain

Claude.

Salut le forum

Cells(5,Target.Column).Activate

À adapter pour le copier

Mytå

Bonne nuit tous...

Tentative :

If Not Application.Intersect(Target, [plage2]) Is Nothing Then
Cells(5, Target.Column) = Target

Pas sûr d'avoir bien tout compris...

Bonjour à tous,

Sylvain, Tu as bien compris, c'est exactement ce qu'il me fallait.

Mytå, bonnes vacances et bonne pêche !

Merci à tous deux.

Amicalement

Claude.