christ77000
XLDnaute Occasionnel
Bonjour à tous, j'ai une macro qui fonctionne bien mais elle est placée sur une cellule avec calcul ce qui pose problème. Je dois me mettre sur cette cellule S8 et la valider manuellement pour que la macro fonctionne. S8 est masquée et protégée. Merci par avance pour votre aide.
Code de la feuille :
Code des macros :
calcul dans S8 =SI(D10="";0;RECHERCHEV(D10;T_Rompus[[Désignation]:[Rompus]];4;FAUX))
calcul dans C24 =SI(S8=0;"";CONCATENER("Pour info sur ce code produit vous avez en zone rompus ";S8;" plaques."))
Code de la feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Sheets("VentilationTTS").Range("S8")) Is Nothing Then
'Go ou Stop
If Val(Target.Value) > 0 Then Clign Else StopClign
End If
End SubCode des macros :
Code:
Dim Temps As Variant
Public Sub Clign()
'Programmation de l'évènement toutes les secondes
Temps = Now + TimeValue("00:00:01")
Application.OnTime Temps, "Clign"
'Affiche l'alerte ou la fait disparaître (alternativement)
With ThisWorkbook
With .Sheets("VentilationTTS").Range("C24")
.Font.ColorIndex = IIf(.Font.ColorIndex = 1, 3, 1) '2, 3, 2)
End With
End With
End Sub
Public Sub StopClign()
On Error Resume Next
'Stoppe la gestion de l'évènement OnTime
Application.OnTime Temps, "Clign", , False
On Error GoTo 0
'Cache l'alerte
With ThisWorkbook
'Texte
.Sheets("VentilationTTS").Range("C24").Font.ColorIndex = 3
End With
End Subcalcul dans S8 =SI(D10="";0;RECHERCHEV(D10;T_Rompus[[Désignation]:[Rompus]];4;FAUX))
calcul dans C24 =SI(S8=0;"";CONCATENER("Pour info sur ce code produit vous avez en zone rompus ";S8;" plaques."))