Chris57
XLDnaute Occasionnel
Bonjour à tous,
sur une feuille où je ne peux pas figer les volets, je cherche à figer une plage qui doit rester visible quelque soit le déplacement avec l'ascenseur haut/bas.
Ce que je voudrais en fait c'est que quelques boutons restent tout le temps visibles, un peut comme si je figeait les volets.
J'ai testé cette macro :
elle déplace le bouton à chaque sélection de cellule, mais si je descend un peu trop bas, le bouton est mal placé et n'apparait plus dans la fenêtre...
Auriez-vous une idée ??
sur une feuille où je ne peux pas figer les volets, je cherche à figer une plage qui doit rester visible quelque soit le déplacement avec l'ascenseur haut/bas.
Ce que je voudrais en fait c'est que quelques boutons restent tout le temps visibles, un peut comme si je figeait les volets.
J'ai testé cette macro :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim TopPos As Long
Dim LeftPos As Long
Dim X As Long
Dim Y As Long
For X = 1 To ActiveWindow.ScrollRow - 1
TopPos = TopPos + Cells(X, 1).Height
Next X
For Y = 1 To ActiveWindow.ScrollColumn - 1
LeftPos = LeftPos + Cells(Y, 1).Width
Next Y
ActiveSheet.Shapes("INSERER1lignecom").Left = LeftPos + ActiveWindow.UsableWidth - 600
ActiveSheet.Shapes("INSERER1lignecom").Top = TopPos + ActiveWindow.UsableHeight - 580
end sub
Auriez-vous une idée ??