J’ai dans un fichier une icône permettant de revenir à tout moment à un menu.
J’ai découvert dans ExcelLabo une macro permettant de déplacer
automatiquement l’icône lorsque l’on se déplace dans la feuille.
Cette macro est :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Image 2").Left = Target.Left
ActiveSheet.Shapes("Image 2").Top = Target.Top
End Sub
Comment modifier cette macro pour que l’image reste toujours sur la
troisième ligne visible à l’écran et ne change pas de colonne ?
L’idée étant que j’ai fait une flèche vers le bas à laquelle j’ai affecté la
macro :
ActiveWindow.LargeScroll Down:=1
J’aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant
toujours sur la troisième ligne visible à l’écran sans changer de colonne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Jean-Paul,
Essaie ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rg As range Set Rg = range(activewindow.VisibleRange.Address).Offset(3) ActiveSheet.Shapes("Image 2").Left = rg.Left ActiveSheet.Shapes("Image 2").Top = rg.Top Set Rg= Nothing End Sub
Salutations!
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai dans un fichier une icône permettant de revenir à tout moment à un menu. J'ai découvert dans ExcelLabo une macro permettant de déplacer automatiquement l'icône lorsque l'on se déplace dans la feuille. Cette macro est : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes("Image 2").Left = Target.Left ActiveSheet.Shapes("Image 2").Top = Target.Top End Sub
Comment modifier cette macro pour que l'image reste toujours sur la troisième ligne visible à l'écran et ne change pas de colonne ? L'idée étant que j'ai fait une flèche vers le bas à laquelle j'ai affecté la macro : ActiveWindow.LargeScroll Down:=1 J'aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant toujours sur la troisième ligne visible à l'écran sans changer de colonne.
Bien Amicalement
Jean-Paul V
Bonjour Jean-Paul,
Essaie ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As range
Set Rg = range(activewindow.VisibleRange.Address).Offset(3)
ActiveSheet.Shapes("Image 2").Left = rg.Left
ActiveSheet.Shapes("Image 2").Top = rg.Top
Set Rg= Nothing
End Sub
Salutations!
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de news:
92E04B8E-9B56-4A1F-86BE-0AD91592C782@microsoft.com...
Bonjour à tous
J'ai dans un fichier une icône permettant de revenir à tout moment à un menu.
J'ai découvert dans ExcelLabo une macro permettant de déplacer
automatiquement l'icône lorsque l'on se déplace dans la feuille.
Cette macro est :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Image 2").Left = Target.Left
ActiveSheet.Shapes("Image 2").Top = Target.Top
End Sub
Comment modifier cette macro pour que l'image reste toujours sur la
troisième ligne visible à l'écran et ne change pas de colonne ?
L'idée étant que j'ai fait une flèche vers le bas à laquelle j'ai affecté la
macro :
ActiveWindow.LargeScroll Down:=1
J'aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant
toujours sur la troisième ligne visible à l'écran sans changer de colonne.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rg As range Set Rg = range(activewindow.VisibleRange.Address).Offset(3) ActiveSheet.Shapes("Image 2").Left = rg.Left ActiveSheet.Shapes("Image 2").Top = rg.Top Set Rg= Nothing End Sub
Salutations!
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai dans un fichier une icône permettant de revenir à tout moment à un menu. J'ai découvert dans ExcelLabo une macro permettant de déplacer automatiquement l'icône lorsque l'on se déplace dans la feuille. Cette macro est : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes("Image 2").Left = Target.Left ActiveSheet.Shapes("Image 2").Top = Target.Top End Sub
Comment modifier cette macro pour que l'image reste toujours sur la troisième ligne visible à l'écran et ne change pas de colonne ? L'idée étant que j'ai fait une flèche vers le bas à laquelle j'ai affecté la macro : ActiveWindow.LargeScroll Down:=1 J'aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant toujours sur la troisième ligne visible à l'écran sans changer de colonne.
Bien Amicalement
Jean-Paul V
Jean-Paul V
merci bien ça marche bonne journée
Bonjour Jean-Paul,
Essaie ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rg As range Set Rg = range(activewindow.VisibleRange.Address).Offset(3) ActiveSheet.Shapes("Image 2").Left = rg.Left ActiveSheet.Shapes("Image 2").Top = rg.Top Set Rg= Nothing End Sub
Salutations!
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai dans un fichier une icône permettant de revenir à tout moment à un menu. J'ai découvert dans ExcelLabo une macro permettant de déplacer automatiquement l'icône lorsque l'on se déplace dans la feuille. Cette macro est : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes("Image 2").Left = Target.Left ActiveSheet.Shapes("Image 2").Top = Target.Top End Sub
Comment modifier cette macro pour que l'image reste toujours sur la troisième ligne visible à l'écran et ne change pas de colonne ? L'idée étant que j'ai fait une flèche vers le bas à laquelle j'ai affecté la macro : ActiveWindow.LargeScroll Down:=1 J'aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant toujours sur la troisième ligne visible à l'écran sans changer de colonne.
Bien Amicalement
Jean-Paul V
merci bien ça marche
bonne journée
Bonjour Jean-Paul,
Essaie ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rg As range
Set Rg = range(activewindow.VisibleRange.Address).Offset(3)
ActiveSheet.Shapes("Image 2").Left = rg.Left
ActiveSheet.Shapes("Image 2").Top = rg.Top
Set Rg= Nothing
End Sub
Salutations!
"Jean-Paul V" <JeanPaulV@discussions.microsoft.com> a écrit dans le message de news:
92E04B8E-9B56-4A1F-86BE-0AD91592C782@microsoft.com...
Bonjour à tous
J'ai dans un fichier une icône permettant de revenir à tout moment à un menu.
J'ai découvert dans ExcelLabo une macro permettant de déplacer
automatiquement l'icône lorsque l'on se déplace dans la feuille.
Cette macro est :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Image 2").Left = Target.Left
ActiveSheet.Shapes("Image 2").Top = Target.Top
End Sub
Comment modifier cette macro pour que l'image reste toujours sur la
troisième ligne visible à l'écran et ne change pas de colonne ?
L'idée étant que j'ai fait une flèche vers le bas à laquelle j'ai affecté la
macro :
ActiveWindow.LargeScroll Down:=1
J'aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant
toujours sur la troisième ligne visible à l'écran sans changer de colonne.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Rg As range Set Rg = range(activewindow.VisibleRange.Address).Offset(3) ActiveSheet.Shapes("Image 2").Left = rg.Left ActiveSheet.Shapes("Image 2").Top = rg.Top Set Rg= Nothing End Sub
Salutations!
"Jean-Paul V" a écrit dans le message de news:
Bonjour à tous
J'ai dans un fichier une icône permettant de revenir à tout moment à un menu. J'ai découvert dans ExcelLabo une macro permettant de déplacer automatiquement l'icône lorsque l'on se déplace dans la feuille. Cette macro est : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Shapes("Image 2").Left = Target.Left ActiveSheet.Shapes("Image 2").Top = Target.Top End Sub
Comment modifier cette macro pour que l'image reste toujours sur la troisième ligne visible à l'écran et ne change pas de colonne ? L'idée étant que j'ai fait une flèche vers le bas à laquelle j'ai affecté la macro : ActiveWindow.LargeScroll Down:=1 J'aimerais que Image 2 et Trait 1 se déplacent automatiquement en restant toujours sur la troisième ligne visible à l'écran sans changer de colonne.
