faire clignoter cellule si

sony8 · 24 Janvier 2017

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 · 24 Janvier 2017

Hello
avec la légère dyslexie en moins

VB:

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 · 24 Janvier 2017

Bonjour Vgendron et à tous

une petite touche

Code:

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 · 24 Janvier 2017

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

VIARD · 24 Janvier 2017

vgendron à dit:
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 · 25 Janvier 2017

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... · 26 Janvier 2017

Salut

vgendron à dit:
...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 · 27 Janvier 2017

Si... à dit:
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

faire clignoter cellule si

sony8

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

sony8

XLDnaute Nouveau

Si...

XLDnaute Barbatruc

VIARD

XLDnaute Impliqué

Discussions similaires