fonction on time et faire clignoter une Cellule

zephir94 · 18 Juin 2015

Bonsoir à tous,

J'ai écris une macro pour faire clignoter des cellules dans une colonne.
Ca fonctionne bien sauf que en fonction d'une autre macro je masque certaines lignes et là c'est le drame !
Je n'arrive pas à orienter mon code dans ce sens !

Code:

Sub test()
    If t = 0 Then
      Feuil1.Range("K9:K15,K17:K21,K23:K35").Interior.ColorIndex = 3
      t = 1
    Else
      Feuil1.Range("K9:K15,K17:K21,K23:K35").Interior.ColorIndex = 1
      t = 0
    End If
    tps = Now + TimeValue("00:00:01")
    Application.OnTime EarliestTime:=tps, Procedure:="test"
End Sub

Merci par avance pour vos aides
Bien Cordialement

Paritec · 30 Juin 2015

Re : fonction on time et faire clignoter une Cellule

bonjour zephir94 le forum
si encore tu avais joins un fichier et expliqué dedans comment tu faisais pour avoir le bug on aurait pu tester et trouver une solution, mais là???
a+
Papou

fonction on time et faire clignoter une Cellule

zephir94

XLDnaute Impliqué

Paritec

XLDnaute Barbatruc

Discussions similaires