N
nilses
Guest
Bonjour,
J'airais besoin de votre aide sur mon problème. J'arrive à récupérer les coordonnées de ma souris et à transformer les données en quelque chose "d'exploitable ". Je souhaite maintenant faire un Offset pour déplacer mon curseur par exemple 3 lignes en dessous, mais je n'y arrive pas.
Pourriez-vous m'aider,
Merci par avance,
Nilses
Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Position As Variant
Dim sh As Worksheet
Dim titi As Variant
Position = Replace(Target.Address, Chr(36), "")
Position = Position
With sh
Set titi = sh.Range(Position).Offset(3).Value
End With
titi = titi
End Sub
J'airais besoin de votre aide sur mon problème. J'arrive à récupérer les coordonnées de ma souris et à transformer les données en quelque chose "d'exploitable ". Je souhaite maintenant faire un Offset pour déplacer mon curseur par exemple 3 lignes en dessous, mais je n'y arrive pas.
Pourriez-vous m'aider,
Merci par avance,
Nilses
Voici mon code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Position As Variant
Dim sh As Worksheet
Dim titi As Variant
Position = Replace(Target.Address, Chr(36), "")
Position = Position
With sh
Set titi = sh.Range(Position).Offset(3).Value
End With
titi = titi
End Sub