Cellule et alerte clignotantes
Comment adapter ce code trouvé sur le net pour que le clignotement s'effectue dans une seule cellule (E8) de la feuille "Récapitulatifs" et ou le mettre thisworkbook ou autres module
peut être que l'auteur visitera le site merci d'avance
code qui fonctionne
Option Explicit
'---------------------------------------------------------------------------------------
' Auteur : Didier FOURGEOT (myDearFriend!)
' Date : 18/06/2006
' Sujet : Cellules et Alertes clignotantes
'---------------------------------------------------------------------------------------
Private Sub Workbook_Open()
'Lance le clignotement à l'ouverture si la cellule B3 supÈrieure à 9
If Val(Sheets(1).Range("B3").Value) > 9 Then Clign
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
cordialement
bonjour
conseil : laisse tomber car ton classeur risque de se mettre a "battre " c'est tout ;sauf marrant
cordialement
bientot noel , bonjour les guirlandes
Merci du conseil tu as largement raison, "pourquoi faire simple quant on peu faire compliqué"
Finalement j'ai fais simplissime avec une formule
=SI(C6<>0;"Compléter le fichier global";"")
joyeux noël