Déplacer automatiquement 2 objets

Bonjour à tous

J’ai 2 objets qui se déplacent automatiquement sur la feuille et qui sont
toujours sur la deuxième ligne.

Le premier objet permet un retour rapide à un menu le deuxieme est une
flèche auquel j’ai affecté la macro « BAS »
Comment modifier la macro BAS qui est sensée faire une page down.

Les 2 macros sont :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1)
ActiveSheet.Shapes("Image 2").Left = Rg.Left
ActiveSheet.Shapes("Image 2").Top = Rg.Top
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1, 1)
ActiveSheet.Shapes("Trait 4").Left = Rg.Left
ActiveSheet.Shapes("Trait 4").Top = Rg.Top
Set Rg = Nothing
End Sub

Sub BAS()
ActiveWindow.LargeScroll Down:=1
End Sub

Bien Amicalement

Jean-Paul V

Bonjour à tous

J’ai 2 objets qui se déplacent automatiquement sur la feuille et qui sont
toujours sur la deuxième ligne.

Le premier objet permet un retour rapide à un menu le deuxieme est une
flèche auquel j’ai affecté la macro « BAS »
Comment modifier la macro BAS qui est sensée faire une page down.

Les 2 macros sont :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1)
ActiveSheet.Shapes("Image 2").Left = Rg.Left
ActiveSheet.Shapes("Image 2").Top = Rg.Top
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1, 1)
ActiveSheet.Shapes("Trait 4").Left = Rg.Left
ActiveSheet.Shapes("Trait 4").Top = Rg.Top
Set Rg = Nothing
End Sub

Sub BAS()
ActiveWindow.LargeScroll Down:=1
End Sub

Bien Amicalement

Jean-Paul V

Bonjour Jean-Paul V,

Si le but est de déplacer la cellule active, comme le fait Page Down :

Sub BAS()
Dim r As Long

With ActiveWindow
r = .ActiveCell.Row - .VisibleRange.Row
.LargeScroll Down:=1
Cells(.VisibleRange.Row + r, .ActiveCell.Column).Select
End With
End Sub

Bonjour à tous

J’ai 2 objets qui se déplacent automatiquement sur la feuille et qui sont
toujours sur la deuxième ligne.

Le premier objet permet un retour rapide à un menu le deuxieme est une
flèche auquel j’ai affecté la macro « BAS »
Comment modifier la macro BAS qui est sensée faire une page down.

Les 2 macros sont :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1)
ActiveSheet.Shapes("Image 2").Left = Rg.Left
ActiveSheet.Shapes("Image 2").Top = Rg.Top
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1, 1)
ActiveSheet.Shapes("Trait 4").Left = Rg.Left
ActiveSheet.Shapes("Trait 4").Top = Rg.Top
Set Rg = Nothing
End Sub

Sub BAS()
ActiveWindow.LargeScroll Down:=1
End Sub

Bien Amicalement

Jean-Paul V

--
Cordialement,

Jacques.

Bonjour Jacques

Merci ça marche

Serait-il possible de savoir la position à un instant t de l'objet image 2
afin que la macro renvoie à un menu1 ou un menu2 suivant sa position
cela peut-être aussi la position de la cellule active?

Bonjoir(c) Jean-Paul V

tiens, encore un frère Five ? y sont combien dans cette famille ;-))))))
désolé, je ne répond pas à votre question, mais c'etait tentant et
relativement "private joke"

JièL IV65536

Le 25/06/2005 19:54 vous avez écrit ceci :

Bonjour à tous

J'ai 2 objets qui se déplacent automatiquement sur la feuille et qui sont
toujours sur la deuxième ligne.

Le premier objet permet un retour rapide à un menu le deuxieme est une
flèche auquel j'ai affecté la macro « BAS »
Comment modifier la macro BAS qui est sensée faire une page down.

Les 2 macros sont :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As Range
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1)
ActiveSheet.Shapes("Image 2").Left = Rg.Left
ActiveSheet.Shapes("Image 2").Top = Rg.Top
Set Rg = Range(ActiveWindow.VisibleRange.Address).Offset(1, 1)
ActiveSheet.Shapes("Trait 4").Left = Rg.Left
ActiveSheet.Shapes("Trait 4").Top = Rg.Top
Set Rg = Nothing
End Sub

Sub BAS()
ActiveWindow.LargeScroll Down:=1
End Sub

Bien Amicalement

Jean-Paul V

Salut ChrisV,

Hum! Il me semble comprendre que Nadia te trouve plutôt de bon goût!

Starwing :faisant allusion à cette phrase:
Chris Verraest est bien plus cooooool

:-))

Je te souhaite plein de petit(s) bonheur(s) en chemin...

Starwing: faisant allusion aux petits marmots!

Je prends l'avion demain pour la Suisse ! ;-)