Bouton suiveur

bonsoir,

j'ai une macro pour des bouton suiveur qui fonctionne bien

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

DrawingObjects.Top = Rows(ActiveWindow.ScrollRow).Top + 70

End Sub

mais je ne peux plus faire de copier coller ctrl c et ctrl v (logique !)

quelqu'un aurait une solution a faire partager ?

merci de votre aide

cordialement

Bonjour

En utilisant le Double click pour appeler le bouton

Cordialement

bonjour

merci de ton aide, j'avais pensé au double clique mais c'est moins pratique a l'utilisation.

je ne sais pas si il y a une solution

si quelqu'un a une idée , elle serait la bienvenue

cordialement

Bonjour

Comme le copier/coller est (en principe) moins utilisé que le bouton suiveur

Au double clic bloque le déplacement du bouton

Dim Arret As Boolean

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Arret = Not Arret
  MsgBox "Blocage bouton suiveur " & Arret
  Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Arret = True Then Exit Sub
  DrawingObjects.Top = Rows(ActiveWindow.ScrollRow).Top + 70
End Sub

bonjour

encore une fois vous venez a mon aide , c'est vraiment sympa.

je me sert énormément du copier coller !!

mais la solution semble sur le bon chemin , il suffit juste que l'action ne requiert pas la messagebox

merci