Re : dessin clignotant
merci robert pour ton aide ton classeur fonctionne parfaitement tout comme je voulais le faire. Voila par contre j'ai essayé de l'adapter à mon classeur la feuille "Objet Dessin Clignotant je l'ai remplacé par le nom "accueil".
Lorsque j'ouvre mon classeur j'ai un message d'erreur qui me dit cela '
erreur de compilation dans le module caché :ThisOrkbookvoici mon code que j'ai dans mon dossier workbook
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
'
mon Univers Excel... : myDearFriend! Excel Pages
' Date : 18/06/2006
' Sujet : Cellules et Alertes clignotantes
'---------------------------------------------------------------------------------------
Private Sub Workbook_Open()
Sheets("Objet Dessin clignotant").Select
Module1.actu
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Interrompt le clignotement éventuel avant fermeture
StopClign
End Sub
'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Dim F As Worksheet
' If Target.Count > 1 Then Exit Sub
' If Not Application.Intersect(Target, Sh.Range("B3")) Is Nothing Then
' 'S'assure que la même valeur apparaisse en B3 sur chaque feuille
' Application.EnableEvents = False
' For Each F In Worksheets
' If F.Name <> Sh.Name Then
' F.Range("B3").Value = Target.Value
' End If
' Next F
' Application.EnableEvents = True
' 'Lance ou stoppe le clignotement
' If Val(Target.Value) > 9 Then Clign Else StopClign
' End If
'End Sub
D'avance merci pour ton aide , amitiés
🙄
