Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour" (lien
vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets Car
je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour" (lien
vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets Car
je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour" (lien
vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets Car
je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet Feuil2 ou
feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est inutile
puisque j'ai des liens et sur chaque feulle un "retour" (lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message d'info
Mais comme g supprimé cette option d'affichage des onglets Car je passe par
les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de Feuilles !
Merci
joël
--
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet Feuil2 ou
feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est inutile
puisque j'ai des liens et sur chaque feulle un "retour" (lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message d'info
Mais comme g supprimé cette option d'affichage des onglets Car je passe par
les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet Feuil2 ou
feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est inutile
puisque j'ai des liens et sur chaque feulle un "retour" (lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message d'info
Mais comme g supprimé cette option d'affichage des onglets Car je passe par
les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de Feuilles !
Merci
joël
--
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour" (lien
vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets Car
je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour" (lien
vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets Car
je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour" (lien
vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets Car
je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour savoir
Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour savoir
Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: OM#gAKkGEHA.2408@TK2MSFTNGP10.phx.gbl...
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour savoir
Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
As Hyperlink)
End Sub
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir
sur quel lien tu viens de cliquer.Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End SubEs ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
As Hyperlink)
End Sub
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir
sur quel lien tu viens de cliquer.
Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End Sub
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.
Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: OM#gAKkGEHA.2408@TK2MSFTNGP10.phx.gbl...
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
As Hyperlink)
End Sub
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir
sur quel lien tu viens de cliquer.Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target
As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End SubEs ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si oui
comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le message
d'info Mais comme g supprimé cette option d'affichage des onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Merci Nicolas ,
Ma question sur les commandes e, général :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
TargetAs Hyperlink)
End Sub
Pourrait il être remplacé en changeant le mot TARGET par feuil2!A1
en l'ecrivant Comme cela :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Feuil2:A1> As Hyperlink)
End Sub
joël
"Nicolas B." a écrit dans le
message de news:Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir sur quel lien tu viens de cliquer.Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End SubEs ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le
message d'info Mais comme g supprimé cette option d'affichage des
onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Merci Nicolas ,
Ma question sur les commandes e, général :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target
As Hyperlink)
End Sub
Pourrait il être remplacé en changeant le mot TARGET par feuil2!A1
en l'ecrivant Comme cela :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Feuil2:A1> As Hyperlink)
End Sub
joël
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: u2a4aukGEHA.3576@tk2msftngp13.phx.gbl...
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir sur quel lien tu viens de cliquer.
Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End Sub
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.
Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: OM#gAKkGEHA.2408@TK2MSFTNGP10.phx.gbl...
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le
message d'info Mais comme g supprimé cette option d'affichage des
onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
Merci Nicolas ,
Ma question sur les commandes e, général :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
TargetAs Hyperlink)
End Sub
Pourrait il être remplacé en changeant le mot TARGET par feuil2!A1
en l'ecrivant Comme cela :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Feuil2:A1> As Hyperlink)
End Sub
joël
"Nicolas B." a écrit dans le
message de news:Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir sur quel lien tu viens de cliquer.Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End SubEs ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le
message d'info Mais comme g supprimé cette option d'affichage des
onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Target est une variable. Si tu as envie, tu peux changer le nom de cette
variable, mais cela n'affectera pas sa valeur.
Tu ne peux cependant pas mettre feuil2!a1 car on ne peut pas utiliser de
"!"
dans un nom de variable.
Par exemple, ici j'ai changé Target en Tgt :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Tgt As
Hyperlink)
If Tgt.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End Sub
Mais je ne comprends pas pourquoi tu veux changer cela : si tu mets par
exemple comme variable Feuil1 dans la première solution (avec Select
Case),
en cliquant sur le lien vers la feuille 2 le message affiché sera celui de
la feuille 2, pas de la feuille 1.
A+
--
Nicolas B.Merci Nicolas ,
Ma question sur les commandes e, général :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
TargetAs Hyperlink)
End Sub
Pourrait il être remplacé en changeant le mot TARGET par feuil2!A1
en l'ecrivant Comme cela :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Feuil2:A1> As Hyperlink)
End Sub
joël
"Nicolas B." a écrit dans le
message de news:Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir sur quel lien tu viens de cliquer.Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End SubEs ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le
message d'info Mais comme g supprimé cette option d'affichage des
onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
Target est une variable. Si tu as envie, tu peux changer le nom de cette
variable, mais cela n'affectera pas sa valeur.
Tu ne peux cependant pas mettre feuil2!a1 car on ne peut pas utiliser de
"!"
dans un nom de variable.
Par exemple, ici j'ai changé Target en Tgt :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Tgt As
Hyperlink)
If Tgt.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End Sub
Mais je ne comprends pas pourquoi tu veux changer cela : si tu mets par
exemple comme variable Feuil1 dans la première solution (avec Select
Case),
en cliquant sur le lien vers la feuille 2 le message affiché sera celui de
la feuille 2, pas de la feuille 1.
A+
--
Nicolas B.
Merci Nicolas ,
Ma question sur les commandes e, général :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target
As Hyperlink)
End Sub
Pourrait il être remplacé en changeant le mot TARGET par feuil2!A1
en l'ecrivant Comme cela :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Feuil2:A1> As Hyperlink)
End Sub
joël
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: u2a4aukGEHA.3576@tk2msftngp13.phx.gbl...
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir sur quel lien tu viens de cliquer.
Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End Sub
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.
Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." <nicolas.bruot@adresse.bidon.com> a écrit dans le
message de news: OM#gAKkGEHA.2408@TK2MSFTNGP10.phx.gbl...
Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.
Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le
message d'info Mais comme g supprimé cette option d'affichage des
onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--
PasdeSpam...Rollier-jo@noos.fr
Target est une variable. Si tu as envie, tu peux changer le nom de cette
variable, mais cela n'affectera pas sa valeur.
Tu ne peux cependant pas mettre feuil2!a1 car on ne peut pas utiliser de
"!"
dans un nom de variable.
Par exemple, ici j'ai changé Target en Tgt :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Tgt As
Hyperlink)
If Tgt.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End Sub
Mais je ne comprends pas pourquoi tu veux changer cela : si tu mets par
exemple comme variable Feuil1 dans la première solution (avec Select
Case),
en cliquant sur le lien vers la feuille 2 le message affiché sera celui de
la feuille 2, pas de la feuille 1.
A+
--
Nicolas B.Merci Nicolas ,
Ma question sur les commandes e, général :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
TargetAs Hyperlink)
End Sub
Pourrait il être remplacé en changeant le mot TARGET par feuil2!A1
en l'ecrivant Comme cela :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Feuil2:A1> As Hyperlink)
End Sub
joël
"Nicolas B." a écrit dans le
message de news:Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal ...)
Non, il faut les garder, d'autant plus que tu te sers de Target pour
savoir sur quel lien tu viens de cliquer.Ou doit on obligatoirement passer par Case etc..
C'est à mon avis le plus simple pour ce cas. Si tu veux par contre
déclencher le msgbox seulement pour un lien (d'adresse Feuil1!A1) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
If Target.SubAddress = "Feuil1!A1" Then MsgBox "C'est lui !"
End SubEs ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
Euh, là j'avoue ne pas comprendre la question...
A+
--
Nicolas B.Merci ça marche !
Une question bête (je débute)
Peut on changer des paramètres dans la ligne :
Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As
Hyperlink)
En remplaçant target par exemble par feuil2!A1
Ou doit on obligatoirement passer par Case etc..
Es ce que les lignes de commandes en général Sont modifiables ? Si
oui comment connaitre les champs variables de la commande ?
merci
joël
"Nicolas B." a écrit dans le
message de news: OM#Salut Jöel,
Tu peux utiliser l'événement Workbook_SheetFollowHyperlink (dans
ThisWorkbook) :
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal
Target As Hyperlink)
Select Case Target.SubAddress
Case "Feuil2!A1"
MsgBox "Tu vas en 2"
Case "Feuil3!A1"
MsgBox "Tu vas en 3"
End Select
End Sub
A+
--
Nicolas B.Bonjour,
J'utilise un lien hypertexte pour passer d'une feuille à l'autre
J'ai sur ma premiere feuille Une sorte de Menu (feuil1) avec :
saisie des Resultats Routes ......: Cliquez içi
Historique des mouvements .....: Cliquez içi
Donc Quand l'utilisateur clique içi Je le dirige sur l'onglet
Feuil2 ou feuil3
Au niveaux des options du classeur ,je masque les onglets (c'est
inutile puisque j'ai des liens et sur chaque feulle un "retour"
(lien vers feuil1)
Maintenant mon problème:
Lors de l'ouverture du classeur , j'envoie un message :
MsgBox(Prevention routiere)
Tout va bien
Lors du changement de feuilles (onglets) j'envoie un message:
Private Sub Worksheet_Activate()
MsgBox "Message de Joël :Attention Données provisoires ... "
End Sub
Et là Si j'utilise en bas le changement d'onglet , g bien le
message d'info Mais comme g supprimé cette option d'affichage des
onglets
Car je passe par les liens hypertexte
JE n'AI PLUS LE MESSAGE !!
Pouvez vous m'aider à obtenir ce message a chaque changement de
Feuilles !
Merci
joël
--