[Resolu] Afficher contenu cellule sur laquelle se trouve le curseur dans une autre

[bast0504]

Bonjour

Je souhaite savoir comment je pourrais afficher dans une cellule le contenu de celle (appartenant à une liste) sur laquelle se positionne le curseur.

En utilisant mon exemple, quand mon curseur se pose sur un pays de la liste je souhaite que ce pays s'affiche dans la cellule jaune.

Merci

 

[DoubleZero]

Re : Afficher contenu de la cellule sur laquelle se trouve le curseur dans une autre

Bonjour, bast0504, le Forum,

Peut-être comme suit :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("d1:d" & Range("d65536").End(xlUp).Row)) Is Nothing Then [f4].Value = Target
End Sub

A bientôt 🙂

Re-bonjour, Jean-Marcel 🙂, Fred0o 🙂

 

[Fred0o]

Re : Afficher contenu de la cellule sur laquelle se trouve le curseur dans une autre

Bonsoir,

A mettre dans le code de la feuille "Feuil1" par click-droit sur le nom de l'onglet, puis "Visualiser le code" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [D4:D13]) Is Nothing Then
        [F4] = Target
    End If
End Sub

Bien sûr, la longueur de la plage [D4😀13] sera à adapter à ta colonne réelle, ou auto ajustable :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer
    i = Range("D65536").End(xlUp).Row
    If Not Intersect(Target, Range("D4:D" & i)) Is Nothing Then
        [F4] = Target
    End If
End Sub

A+

 

[bast0504]

Re : Afficher contenu de la cellule sur laquelle se trouve le curseur dans une autre

Bonsoir à tous

Incroyable, la puissance de vos solutions.

Merci à tous.