zeltron24
XLDnaute Impliqué
Bonsoir à tous,
J'ai un souci de formule dans une macro
Voici la première
Sub Liste2()
If Range("C11") = "" Then
MsgBox "Il n'y a pas d'enseigne notée."
Range("C11").Select
Clignote
Exit Sub
Application.GoTo Reference:="Enseig2"
Range("P9").Select
End If
End Sub
Apparament elle fontionne sauf lorque la condition est vraie
Là, je n'arrive pas a selectionner la cellule C11 pour la faire clignoter
Sub Clignote()
Dim I As Integer
Dim K As Integer, L As Integer
I = Range.Select
If Worksheets("Achats").Range(I).Value = "" Then
PauseTime = 1 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
Worksheets("Achats").Range(I).Interior.ColorIndex = 46
Worksheets("Achats").Range(I).Interior.ColorIndex = xlNone
Loop
End If
End Sub
Quelqu'un peut il m'aider SVP
Merci D'avance
J'ai un souci de formule dans une macro
Voici la première
Sub Liste2()
If Range("C11") = "" Then
MsgBox "Il n'y a pas d'enseigne notée."
Range("C11").Select
Clignote
Exit Sub
Application.GoTo Reference:="Enseig2"
Range("P9").Select
End If
End Sub
Apparament elle fontionne sauf lorque la condition est vraie
Là, je n'arrive pas a selectionner la cellule C11 pour la faire clignoter
Sub Clignote()
Dim I As Integer
Dim K As Integer, L As Integer
I = Range.Select
If Worksheets("Achats").Range(I).Value = "" Then
PauseTime = 1 ' Définit la durée.
Start = Timer ' Définit l'heure de début.
Do While Timer < Start + PauseTime
Worksheets("Achats").Range(I).Interior.ColorIndex = 46
Worksheets("Achats").Range(I).Interior.ColorIndex = xlNone
Loop
End If
End Sub
Quelqu'un peut il m'aider SVP
Merci D'avance