faire clignoter cellule si

[sony8]

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

 

[vgendron]

Hello
avec la légère dyslexie en moins

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect([B2:B6], Target) Is Nothing And Target.Count = 1 Then
        If [B7] = 10 Then Clignote "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

 

[VIARD]

Bonjour Vgendron et à tous

une petite touche

Option Explicit
'=========================
Private Sub Worksheet_Change(ByVal Traget As Range)

If Not Application.Intersect([B2:B6], Traget) Is Nothing And Traget.Count = 1 Then
    If [B7] = 10 Then Clignote "B7", 5
End If

End Sub
'=========================
Sub Clignote(C, nb)
Dim CouleurActuelle As Variant, n%, Fin

CouleurActuelle = Range(C).Interior.ColorIndex
'------------------
For n = 1 To nb '10
    ActiveSheet.Range(C).Interior.ColorIndex = 3
    Fin = Timer + 0.2
    Do While Timer < Fin: DoEvents: Loop
    ActiveSheet.Range(C).Interior.ColorIndex = CouleurActuelle
    Fin = Timer + 0.4
    Do While Timer < Fin: DoEvents: Loop
Next

End Sub
'=========================

A+ Jean-Paul

 

[vgendron]

Hello Jean Paul..
alors toi aussis tu es frappé de dyslexie
ok, tu avais vu Clinote -->Clignote
mais reste aussi
Traget-->Target

 

[VIARD]

Hello Jean Paul..
alors toi aussis tu es frappé de dyslexie
ok, tu avais vu Clinote -->Clignote
mais reste aussi
Traget-->Target

Voilà ce qui arrive quand on ne met pas ses lunettes
il y ajuste le nb

salutation

 

[sony8]

bonjour ,
merci (mais oui je j'ais que j'ais ce problème de dyslexie ) et même avec les chiffres
mais encore Merci pour votre aide

 

[Si...]

Salut

...mais reste aussi
Traget-->Target

Heureusement que les problèmes de dyslexie ne sont pas toujours capasprothiques !

Ici, vgendron, le Traget n’est pas préjudiciable; donc, sois rassuré VIARD si tu n’as pas encore retrouvé tes lunettes .

Dans Private Sub Worksheet_Change(ByVal Target As Range) et par la suite, dans la macro, on peut remplacer Target par autre chose sans inquiétude. D’ailleurs, moi je le remplace systématiquement par R (initiale de range). C’est plus simple à utiliser.

 

[VIARD]

Salut



Heureusement que les problèmes de dyslexie ne sont pas toujours capasprothiques !

Ici, vgendron, le Traget n’est pas préjudiciable; donc, sois rassuré VIARD si tu n’as pas encore retrouvé tes lunettes .

Dans Private Sub Worksheet_Change(ByVal Target As Range) et par la suite, dans la macro, on peut remplacer Target par autre chose sans inquiétude. D’ailleurs, moi je le remplace systématiquement par R (initiale de range). C’est plus simple à utiliser.

Bonjour SI et à tous

Je confirme, j'avais effectué la manip de suite, vue que moi j'ai testé avec Toto pour Target, donc tout est bon.

A+ Jean-Paul