De l'aide sur une écriture en vb

Signaler
Messages postés
3
Date d'inscription
vendredi 20 août 2004
Statut
Membre
Dernière intervention
17 septembre 2004
-
Messages postés
3
Date d'inscription
vendredi 20 août 2004
Statut
Membre
Dernière intervention
17 septembre 2004
-
Bonsoir
Voilà j'aimerai faire clignoter la ligne 1 quand un chiffre >0 apparaît (car formule dans plusieurs cellule de la ligne 1)
j'ai un tableau si dans 2 colonnes la donnée est identique la ligne 1 doit clignoter
voilà le code pour aide:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If (["1:1"] >= 1) Then Call Clignotement
End If
End Sub

Sub Clignotement()
Set plage = [a1:ab1]
Fond = [a1:ab1].Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
plage.Interior.ColorIndex = 4
Next i
plage.Interior.ColorIndex = Fond
End Sub
Merci beaucoup pour de l'aide :) :) :) :big)
A bientôt Merci :)
T_oche

2 réponses

Messages postés
69
Date d'inscription
vendredi 27 février 2004
Statut
Membre
Dernière intervention
26 novembre 2005

Tu trouveras ce que tu cherches à cette adresse :

http://personal-computer-tutor.com/abc3/v20/chad20.htm

Le code source est bas de la page.

Kenavo !
0
Messages postés
3
Date d'inscription
vendredi 20 août 2004
Statut
Membre
Dernière intervention
17 septembre 2004

Bonjour Kenavo

Merci pour l'aide
Peux tu me dire comment stopper la macro sans revenir sous VB pour arrêter ?
Merci et à bientôt :) :) :) :big)
A bientôt Merci :)
0