MSG à l'ouverture d'un onglet

[petchy]

bonjour à tous et bonne St VALENTIN

comment afficher un MSG à l'ouverture d'un onglet avec le non de l'onglet dans le MSG.
merci
@ plus
petchy

 

[Abel]

Bonjour Petchy,

Regarde la pièce jointe et dis nous si cela te convient.

En espérant que cela te dépanne.

Abel.

 

[petchy]

bonjour Abel

c'est super,ça me convient parfaitement
un grand merci
petchy

 

[sousou]

Bonjour petchy et abel


Ces deux lignes dans le code workbook, ont l'avantage de fonctionner sans adjonction de code, même si tu ajoutes des feuilles

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "Cette feuille est la feuille : " & Sh.Name
End Sub

 

[Abel]

Petchy, sousou,

Ben c'est bien ça !

On ne se lasse pas d'apprendre.

Abel.

 

[petchy]

Re

merci Sousou pour se code qui est intéressant,car l'avantage c'est que l'administrateur de mon appli pourras y ajouté des feuilles.
un grand merci à vous deux
@plus
petchy

 

[petchy]

Re: encore une question sur les MSG

ReRe

encore une petite question,qui doit etre stupide:
est ce que un MSG fait la différence entre le matin et le soir:je m'explique
quand le MSG se lance il affiche l'heure et la date,est il possible de lui faire marqué soit bonjour ou bonsoir par rapport à l'heure.

 

[Abel]

Re,

Essaie :

If Time > "12:00:00" Then
MsgBox ("Bonsoir")
Else
MsgBox ("Bonjour")
End If


En espérant que cela te dépanne.

Abel.

 

[Hervé]

bonjour

essaye un truc dans ce style :

Public Sub vv()
If Hour(Now) > 12 And Hour(Now) < 24 Then
MsgBox "Bonsoir" & vbCrLf & Format(Now, "hh:mm:ss")
Else
MsgBox "Bonjour" & vbCrLf & Format(Now, "hh:mm:ss")
End If
End Sub

Salut
Hervé

 

[Hervé]

re

oups désolé abel

Salut
Hervé

 

[petchy]

bonsoir Abel et Hervé

un grand merci à tous les 2 pour vos solutions,c'est impeccable.
bonne soirée
Petchy

 

[Abel]

Re,

Pas d'mal, Hervé.

Abel.