OVH Cloud OVH Cloud

Message dans Excel

14 réponses
Avatar
Tijani
Comment je peux afficher un message lors du passage par
chaque cellule ou en cliquant sur chaque cellule?

4 réponses

1 2
Avatar
michdenis
Bonjour Joël,

Désolé pour ce message en double, comme je n'avais pas lu toute la ficelle ... et que Docm disait dans son dernier
message : "Cela ne fonctionne que pour une seule feuille "lors du passage" j'en ai conclu qu'on lui avait suggéré
l'événement au niveau de la feuille plutôt que celle au niveau du classeur !

Honnêtement, je ne peux pas dire que je ne le ferai plus !!! ;-)))


Salutations!



"Joel" a écrit dans le message de news:cc8a11$ops$
Bonjour Denis,

Cela ressemble à ce que j'ai écrit précédemment ? à 12h40 !

Mais entre temps, tu as du prendre l'apéro ;-)

Bon dimanche ...
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"michdenis" a écrit dans le message de
news:
Bonjour Joël,

Copie ceci dans le ThisWorkbook de ton classeur : cela va fonctionner à la
sélection de chaque nouvelle cellule dans

toutes les feuilles de ton classeur.

'-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target
As Range)


MsgBox "Bonjour"

End Sub
'-------------------


Salutations!



"Joel" a écrit dans le message de
news:cc6e06$s1h$

Bonjour,

Heu ... Tu es sûr que ça marche sur toutes les feuilles?

C'est vrai que ce n'était pas pécisé, mais le saura-t-on un jour ?
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"docm" a écrit dans le message de
news:%
Bonjour Tijani.

Clic droit sur l'onglet de la feuille et

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
reponse = MsgBox(Target.Address)
End Sub

"Tijani" wrote in message
news:25ae001c460e8$8dc147f0$
Comment je peux afficher un message lors du passage par
chaque cellule ou en cliquant sur chaque cellule?











Avatar
Joel
;-)

Maintenant que j'ai fait ma séance de VTT sous la pluie, j'ai les idées plus
claires que ce matin, où les vapeurs liquoreuses de la veillée précédente
embrumaient quelque peu ma sérénité...

Et puis, ta contribution ô combien appréciée sur ce forum devrait te
dispenser de donner des explications à ce genre de réflexions qui au final,
ne se voulait qu'une confirmation. Le principal n'est-il pas que le
questionneur ait sa réponse, confirmée qui plus est par l'habitué que tu es
?

Je n'interviens qu'épisodiquement sur ce forum, considérant qu'il est
naturel, lorsque je demande de l'aide, d'en donner moi-même selon mes
possibilités.

Merci à toi, et .. au prochain épisode ;-)
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"michdenis" a écrit dans le message de
news:
Bonjour Joël,

Désolé pour ce message en double, comme je n'avais pas lu toute la ficelle
... et que Docm disait dans son dernier

message : "Cela ne fonctionne que pour une seule feuille "lors du
passage" j'en ai conclu qu'on lui avait suggéré

l'événement au niveau de la feuille plutôt que celle au niveau du classeur
!


Honnêtement, je ne peux pas dire que je ne le ferai plus !!! ;-)))


Salutations!



"Joel" a écrit dans le message de
news:cc8a11$ops$

Bonjour Denis,

Cela ressemble à ce que j'ai écrit précédemment ? à 12h40 !

Mais entre temps, tu as du prendre l'apéro ;-)

Bon dimanche ...
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"michdenis" a écrit dans le message de
news:
Bonjour Joël,

Copie ceci dans le ThisWorkbook de ton classeur : cela va fonctionner à
la


sélection de chaque nouvelle cellule dans
toutes les feuilles de ton classeur.

'-------------------
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target


As Range)

MsgBox "Bonjour"

End Sub
'-------------------


Salutations!



"Joel" a écrit dans le message de
news:cc6e06$s1h$

Bonjour,

Heu ... Tu es sûr que ça marche sur toutes les feuilles?

C'est vrai que ce n'était pas pécisé, mais le saura-t-on un jour ?
--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"docm" a écrit dans le message de
news:%
Bonjour Tijani.

Clic droit sur l'onglet de la feuille et

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
reponse = MsgBox(Target.Address)
End Sub

"Tijani" wrote in message
news:25ae001c460e8$8dc147f0$
Comment je peux afficher un message lors du passage par
chaque cellule ou en cliquant sur chaque cellule?
















Avatar
Est ce que je peux affixher un info bulmle lors du passage
sur la cellule
-----Message d'origine-----
Bonjour,

Dans le module privé ThisWorkbook :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target

As Range)
MsgBox "coucou je suis sur " & Sh.Name & " - " &
Target.Address

End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Tijani" a écrit dans le message
de

news:25ae001c460e8$8dc147f0$
Comment je peux afficher un message lors du passage par
chaque cellule ou en cliquant sur chaque cellule?



.




Avatar
Joel
Bonjour et merci !!

Bonne Journée etc....

A votre service...

Blague à part la seule façon que je connaisse de prévoir une info-bulle dans
une cellule est d'y ajouter un commentaire...et de choisir Indicateur Seul
dans les Options...

Bon courage... et Bonne journée...

--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
a écrit dans le message de
news:25d1301c46269$b0f3eac0$
Est ce que je peux affixher un info bulmle lors du passage
sur la cellule
-----Message d'origine-----
Bonjour,

Dans le module privé ThisWorkbook :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target

As Range)
MsgBox "coucou je suis sur " & Sh.Name & " - " &
Target.Address

End Sub


--

Bien cordialement,

Joël GARBE
www.joelgarbe.fr
"Tijani" a écrit dans le message
de

news:25ae001c460e8$8dc147f0$
Comment je peux afficher un message lors du passage par
chaque cellule ou en cliquant sur chaque cellule?



.




1 2