bouton qui suit le défiliement

Marsh Posté le 21-09-2005 à 16:12:16

bonzour,

Existe-il un boutton qui se déplace au fur et a mesure que l'on descend
dans une feuille excel ?
vous voyez ?

et comment copier un bouton et le coller sur toutes les feuilles d'excel ?

:bounce:
ci !

Marsh Posté le 21-09-2005 à 16:12:16

Marsh Posté le 21-09-2005 à 16:45:14

bonjour,
pour la question 1
il faut utiliser un bouton de la Boite à outils Contrôle
ensuite coller la macro suivante dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = Target.Top
End Sub

Le bouton suivra alors la cellule active.
A+

Marsh Posté le 25-10-2005 à 16:24:16

re,
désolé mais maintenant je ne peux plus copier et coller !!¨
il perd la sélection quand je clique !!

Message cité 1 fois

Marsh Posté le 27-10-2005 à 10:10:40

BeBo* a écrit :

re,
désolé mais maintenant je ne peux plus copier et coller !!¨
il perd la sélection quand je clique !!

Je t'ai déjà répondu dans un autre thread ...

Code :

Dim wksSheet As Object
Dim rngTarget As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim lCutCopyMode As Long
lCutCopyMode = Application.CutCopyMode
Select Case lCutCopyMode
Case xlCopy, xlCut
Case Else
Set wksSheet = Sh
Set rngTarget = Target
End Select
Sheet1.CommandButton1.Top = Target.Top
Select Case lCutCopyMode
Case xlCopy
rngTarget.Copy
Case xlCut
rngTarget.Cut
End Select
End Sub

ici: http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0

Message édité par Vobiscum le 27-10-2005 à 10:13:52

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *