MSG à l'ouverture d'un onglet

A

Abel

Guest

• 14 Février 2005

• #2

Bonjour Petchy,

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

En espérant que cela te dépanne.

Abel.

 

Pièces jointes

• ExemplePetchy.zip

  4.7 KB · Affichages: 21
• ExemplePetchy.zip

  4.7 KB · Affichages: 19
• ExemplePetchy.zip

  4.7 KB · Affichages: 22

Vote positif 0 Vote négatif

P

petchy

Guest

• 14 Février 2005

• #3

bonjour Abel

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

 

Vote positif 0 Vote négatif

S

sousou

Guest

• 14 Février 2005

• #4

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

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 14 Février 2005

• #5

Petchy, sousou,

Ben c'est bien ça !

On ne se lasse pas d'apprendre.

Abel.

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 14 Février 2005

• #6

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

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 14 Février 2005

• #7

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.

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 14 Février 2005

• #8

Re,

Essaie :

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


En espérant que cela te dépanne.

Abel.

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 14 Février 2005

• #9

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é

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 14 Février 2005

• #10

re

oups désolé abel

Salut
Hervé

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 14 Février 2005

• #11

bonsoir Abel et Hervé

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

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 14 Février 2005

• #12

Re,

Pas d'mal, Hervé.

Abel.

 

Vote positif 0 Vote négatif