Click avec coordonnées

Bonjour tout le monde !

Voici un code que j'ai trouvé sur le net, qui me parait très intéressant. Il permet de clicker à un endroit prédeterminé

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

Sub SingleClickVente()
  SetCursorPos 100, 100 'x and y position  '   <====================
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Mes valeurs X et Y sont enregistrées dans 2 textboxes et j'aimerais que ce code utilise ces valeurs. Donc j'ai essayé cette solution (ne vous moquez pas hein )

Sub SingleClickAchat()
  SetCursorPos UserForm1.TextBox29.Text, UserForm1.TextBox30.Text 'x and y position  '   <======
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Mais excel retourne une erreur...

Quelqu un pourrait il m'aider a utiliser mes 2 textboxes pour x et y?

Je vous remercie

cordialement

Best regards

Bonsoir et bienvenu(e)

En considérant que ce sont des nombres entiers

A tester

Sub SingleClickAchat()
  SetCursorPos Val(UserForm1.TextBox29), Val(UserForm1.TextBox30) 'x and y position  '   <======
 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Si pas ça fournis un fichier

Que dire....

Probleme posté il y a à peine 5 minutes que mon problème est déjà résolu....

Merci beaucoup beaucoup Banzai64 pour votre aide !

Cordialement