Discussion :

[deamonRav]

Bonjour,

J'aimerais pouvoir faire suivre, aux boutons que j'ai créés sur ma feuille, le déplacement de celle-ci.

Est-ce Possible?

D'avance merci.

DeamonRav

[Antoniom]

Hello,

Pour tester. Place une zone de texte nommée "Message" + deux CommandButton et colle ces codes sur la feuille voulue.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim h As Long, g As Long 'h = hauteur, g = gauche
 
    Application.ScreenUpdating = False
 
    With ActiveWindow.ActivePane.VisibleRange
        h = .Top + (.Height / 2)
        g = .Left + (.Width / 2)
    End With
 
    With Feuil1.CommandButton1
        .Top = h - (.Height / 2)
        .Left = g - (.Width / 2)
    End With
 
    With Feuil1.CommandButton2
        .Top = h - (.Height / 2)
        .Left = g - (.Width / 2 - 100)
    End With
 
    With ActiveSheet.Shapes("Message")
        .Top = h - (.Height / 2 + 100)
        .Left = g - (.Width / 2 + 200)
    End With
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton1_Click()
 
    MsgBox "Hello..."
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CommandButton2_Click()
 
    MsgBox "...ça va ?"
 
End Sub

Peut-être ça te va.

Bye.

[deamonRav]

Bonjour Antonium,

J'ai essayé ton code sur une nouvelle feuille, mais il ne se passe rien.
Il m'affiche bien les mesages quand je click sur les boutons... mais ils ne suivent pas le déplacements de la fenêtre.

Ah je viens de remplacer Application.ScreenUpdating = False par True et ça marche...

Merci beaucoup c'est ce que je souhaitais faire.

DeamonRav