M
Marc
Guest
Bonjour à tous
Je reviens vers vous car je patauge toujours (c'est ma première macro en vb)
La macro ci-dessous a été fournie par _Thierry (que je remercie)
Et j'essaie de faire fonctionner la 2eme macro à partir de la, mais ca ne fonctionne pas. Pouvez-vous me dire ou je commet une erreur
En vous en remerciant
Sub LookingForRedCell()
Dim FirstCell As Range
Dim Cell As Range
Dim Plage As Range
Dim i As Byte
For Each Cell In Range('B5:H10')
If Cell = Range('B1') Then
Set FirstCell = Cell
Exit For
End If
Next
If FirstCell Is Nothing Then
MsgBox 'Date ' & Range('B1') & ' non trouvée, procédure avortée', vbCritical
Exit Sub
End If
Set Plage = Range(FirstCell.Offset(1, 0), ActiveCell.Offset(98, 0))
Clignotement
End Sub
Public Sub Clignotement()
Dim Tempo As Date
Dim Cell As Range
Static C As Boolean
C = Not C
Tempo = Now + TimeValue('00:00:01')
Range.FirstCell = Cell
Application.OnTime Tempo, 'Clignotement'
End Sub
Public Sub StopClign()
Dim Tempo
Dim Cell As Range
Application.OnTime Tempo, 'Clignotement', , False
Range.FirstCell = Cell
End Sub
Je reviens vers vous car je patauge toujours (c'est ma première macro en vb)
La macro ci-dessous a été fournie par _Thierry (que je remercie)
Et j'essaie de faire fonctionner la 2eme macro à partir de la, mais ca ne fonctionne pas. Pouvez-vous me dire ou je commet une erreur
En vous en remerciant
Sub LookingForRedCell()
Dim FirstCell As Range
Dim Cell As Range
Dim Plage As Range
Dim i As Byte
For Each Cell In Range('B5:H10')
If Cell = Range('B1') Then
Set FirstCell = Cell
Exit For
End If
Next
If FirstCell Is Nothing Then
MsgBox 'Date ' & Range('B1') & ' non trouvée, procédure avortée', vbCritical
Exit Sub
End If
Set Plage = Range(FirstCell.Offset(1, 0), ActiveCell.Offset(98, 0))
Clignotement
End Sub
Public Sub Clignotement()
Dim Tempo As Date
Dim Cell As Range
Static C As Boolean
C = Not C
Tempo = Now + TimeValue('00:00:01')
Range.FirstCell = Cell
Application.OnTime Tempo, 'Clignotement'
End Sub
Public Sub StopClign()
Dim Tempo
Dim Cell As Range
Application.OnTime Tempo, 'Clignotement', , False
Range.FirstCell = Cell
End Sub