Bonjour,
dans votre fichier posté faites ceci
- Click droite sur l'onglet concerné (donc feuil1 ici)
- Choisir l'option "visualiser le code"
- coller le code ci-dessous dans la fenetre
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)) Is Nothing Then
Target.Offset(0, -1) = Target.Value
End If
End Sub
- Enregistrez votre fchier
Il vous suffit de cliquer dans la colonne B pour avoir la valeur en colonne A
Cordialement