Bonjour à tous,
Dans une feuille Excel, j'aimerais créer un bouton flottant. C-à-d. un bouton qui garde sa position à l'écran peut importe où l'on se trouve dans cette feuille excel.
Voiçi ce que j'ai essayé;
j'ai crée un bouton sur la feuille via Developper>Insert>ActiveX Controls. Ce bouton s'appelle: CommandButton1.
Ensuite, après click droit dans l'onglet "Sheet1">View Code: le code suivant (trouvé sur le net);
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo 0
With Cells(Windows(1).ScrollRow, Windows(1).ScrollColumn)
CommandButton1.Top = .Top + 100
CommandButton1.Left = .Left + 300
End With
End Sub
Mais ça ne fonctionne pas. Un détail m'échappe sûrement.
Je cherche et recherche sans succès.
Quelqu'un peut-il m'éclairer, s'il vous plaît?
Merci d'avance.