Bonjour,
Nommer une nouvelle feuille [ Position ].
Placer cette macro derrière la feuille de la région B1 à C10.
La partie du message vous permets de savoir comment connaître
la ligne, et la colonne de la sélection.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Plage As Range, Intersection As Range
Dim Message As String, LaColonne As String
Dim Position As Long
Set Plage = Range("B1:C10")
Set Intersection = Application.Intersect(Target, Plage)
If Not (Intersection Is Nothing) Then
' Sauvegarde de la sélection
Position = Sheets("Position").Range("A65536").End(xlUp).Row
Sheets("Position").Cells(Position + 1, 1).Value = Target.Address
' Message d'information
Message = "La sélection de l'utilisateur est :" & vbLf & vbLf
Message = Message & "Ligne : " & Target.Row & vbLf
LaColonne = Mid(Target.Address, 2)
LaColonne = Mid(LaColonne, 1, (InStr(1, LaColonne, "$", vbTextCompare) - 1))
Message = Message & "Colonne : " & LaColonne & " - " & Target.Column & vbLf
MsgBox Message
End If
End Sub
'
Lupin
~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~