Bonjour,
Une réponse ci possible sur mon erreur
Je voudrais faire clignoter une cellule à une somme supérieur
J’ais vus ceci sur une revue chez mon docteur j’ais voulut essayez mais voila
Car sortie d’opération je n’ais que cela à faire donc (d’apprendre)
Merci
Private Sub Worksheet_Change(ByValTraget As Range)
If Not_Intersect([B2:B6],Traget) Is Nothing and traget.Count = 1 Then
If[B7]=10 Then,Clinote "B7",10
End If
End Sub
Sub Clignote(C,nb)
CouleurActuelle=Range(c).Interior.ColorIndex
For n=1 To 10
ActiveSheet.Range(c).Interior.ColorIndex =3
fin = Timer + 0.2
Do While Timer < fin: DoEvents:Loop
ActiveSheet.Range(c).Interior.ColorIndex = ColeurActuelle
fin = Timer + 0.4
Do While Timer < fin: DoEvents:Loop
Next
End Sub
Une réponse ci possible sur mon erreur
Je voudrais faire clignoter une cellule à une somme supérieur
J’ais vus ceci sur une revue chez mon docteur j’ais voulut essayez mais voila
Car sortie d’opération je n’ais que cela à faire donc (d’apprendre)
Merci
Private Sub Worksheet_Change(ByValTraget As Range)
If Not_Intersect([B2:B6],Traget) Is Nothing and traget.Count = 1 Then
If[B7]=10 Then,Clinote "B7",10
End If
End Sub
Sub Clignote(C,nb)
CouleurActuelle=Range(c).Interior.ColorIndex
For n=1 To 10
ActiveSheet.Range(c).Interior.ColorIndex =3
fin = Timer + 0.2
Do While Timer < fin: DoEvents:Loop
ActiveSheet.Range(c).Interior.ColorIndex = ColeurActuelle
fin = Timer + 0.4
Do While Timer < fin: DoEvents:Loop
Next
End Sub