msg au changement de feuille

Staple1600

XLDnaute Barbatruc

• 12 Avril 2008

• #2

Re : msg au changement de feuille

Bonjour

EDITION: a mettre dans ThisWorkBook

Issue de l'aide Excel (F1)

SheetActivate, événement - Exemple
Cet exemple montre comment afficher le nom de chaque feuille activée.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox Sh.Name
End Sub

Tu peux modifier ainsi

MsgBox "Vous êtes sur l'onglet : " & Sh.Name

 

Dernière édition: 12 Avril 2008

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 12 Avril 2008

• #3

Re : msg au changement de feuille

Salut Pascal21, Staple1600

Pascal21, voilà un fichier avec un petit USF non modal qui t'affiche ton message et disparait tout seul 😉

A+

 

Pièces jointes

• Pascal21_MsgChgFeuille.xls

  43 KB · Affichages: 40

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Avril 2008

• #4

Re : msg au changement de feuille

Re, bonjour BrunoM45


Le code de l'aide modifé:

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim x
x = MsgBox("Vous êtes sur la feuille : " & Sh.Name & Chr(13) & "Etes-vous sûr de votre choix?", vbYesNoCancel + vbQuestion, "Avertissement")
Select Case x
Case vbYes
MsgBox "Vous pouvez commencer votre saisie"
Case vbNo
If Sh.Index <> 1 Then Sheets(Sh.Index - 1).Select
Case Else
Cancel = True
End Select
End Sub

pascal21 :A l'usage, cela se révèle pénible non ?

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 12 Avril 2008

• #5

Re : msg au changement de feuille

bonsoir bruno stapple
j'ai utilisé le code de stapple car il correspondait polus à ce que je cherchais
un msg sans clic pour valider
merci à vous deux

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 12 Avril 2008

• #6

Re : msg au changement de feuille

Re,
Je n'ai pas du tout comprendre 😕
Ta demande :

je cherche le moyen d'avoir un msg au changement de feuille du genre"vous êtes sur la feuille de "nom de l'onglet""
ce message si possible ne devrait resté visible que quelques secondes (2 ou 3)

Cliquez pour agrandir...

Donc avec la solution de staple1600, tu es obligé de cliquer sur OUI/NON/Annuler 🙄

Alors que d'après ce que tu demandes tu ne voulais pas le faire!?

M'enfin faudrait savoir ...

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 13 Avril 2008

• #7

Re : msg au changement de feuille

bonjour
oui autant pour moi il s'agit de ta solution bruno que j'ai choisi en fait
ça correspondait tellement pile poil que je n'ai eu qu'a recopier le code sans y apporter de retouche si ce n'est les dimensions de l'userform et du label
l'heure tardive certainement!!!! lol

 

Dernière édition: 13 Avril 2008

Vote positif 0 Vote négatif