Onglet

[Jelf]

Bonjour

Est-il possible de faire clignoter un onglet.
Si oui, comment???

Merci

 

[Celeda]

BOnjour,

euh euh......non,:sick:

je ne pense pas que cela soit envisageable
(j'ai pas dit impossible 🙂 )


Celeda

 

[Jelf]

Bonjour Celeda

Et Merci quand même 🙂

 

[JeanMarie]

Bonjour

La faisabilité du clignotement d'un onglet, impose une version d’Excel supérieure à la version 2000.

Malheureusement je ne possède pas une supérieure à 2000. Mais la version 2007 beta

Code à mettre dans le ThisWorkBook de ton fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   If Val(Application.Version) > 9 Then
      Application.OnTime EarliestTime:=vTime, _
         Procedure:='ClignOnglet', Schedule:=False
   End If
End Sub

Private Sub Workbook_Open()
   Cycle
End Sub

et ce code dans un module du même fichier

Public vTime As Date

Sub ClignOnglet()
   With ActiveWorkbook.Sheets('Feuil1').Tab
       .ThemeColor = 5 - .ThemeColor
   End With
   Cycle
End Sub

Sub Cycle()
   If Val(Application.Version) > 9 Then
      vTime = Now + TimeValue('00:00:01')
      Application.OnTime vTime, 'ClignOnglet'
   End If
End Sub

@+Jean-Marie

PS : j'espère qu'il n'y aura pas de caractères indésirables pour la recopie.

 

[Jelf]

Bonjour et merci pour les formules, Je rencontre un petit problème avec 1 terme 'Schedule' mon VBA ne connait pas ce terme.
Toute la ligne me pose 1 problème
: Procedure := 'Clionglet' ,Shedule:= False

Tout ce qui est en rouge est refusé.
Cela provient sans doute de mon excel (2000).
Si tu as une autre solution, je suis preneur.

Merci d'avance

 

[JeanMarie]

Re...

Désolé, tu as pas lu, ce que je disais au début. Ta version d'excel ne permet pas de changer la couleur de l'onglet d'une feuille. Il faudra que tu fasses une mise à jour d'office.

@+Jean-Marie

 

[Jelf]

Merci Jean-Marie

Cela n'est pas grave, je voulais me compliquer les choses.

A+

Jean-Marie alias Jelf