Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel deux choix selon la position

deux choix selon la position

1 réponse
Avatar
pellet15
Bonjour =E0 tous

J'ai une macros qui s'ex=E9cute apr=E8s un double clic avec un hyperlink.

J'ai besoin que si on fait double clic sur les 50 premiere hyperlin
(a2:a50)
la macros "Test1" s'ex=E9cute et que les hyperlin 51 a 100 (a51:100)
ex=E9cute la macros "Test2".

Voici la macros que je veut modifier:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow =3D ActiveCell.Row
ActiveWindow.ScrollColumn =3D ActiveCell.Column
Test1
End Sub

Merci
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
Philippe.R
Bonjour,

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
if activecell.row < 51 then
Test1
else
Test2
endif
End Sub

devrait pouvoir convenir
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"pellet15" a écrit dans le message de
news:
Bonjour à tous

J'ai une macros qui s'exécute après un double clic avec un hyperlink.

J'ai besoin que si on fait double clic sur les 50 premiere hyperlin
(a2:a50)
la macros "Test1" s'exécute et que les hyperlin 51 a 100 (a51:100)
exécute la macros "Test2".

Voici la macros que je veut modifier:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveWindow.ScrollRow = ActiveCell.Row
ActiveWindow.ScrollColumn = ActiveCell.Column
Test1
End Sub

Merci