[rés] Comment fait-on pr lancer une procédure en auto-open ?

Bonjour,

Je suis en train d'apprendre à faire des macros.

Je cherche à en faire une qui permette de faire clignoter une cellule.

Je me sers d'une macro que j'ai trouvée quelque part.

Il y est dit

Pour créer une cellule qui clignote : Définit un nouveau style (format/style/Flash/ajouter) Applique le à la cellule que tu choisis, place le code suivant dans un module de feuille et lance la procédure flash en tant que auto-open.

Mais comment fait-on pour lancer une procédure en auto-open ?

Quand je cherche à lancer la macro, on me répond "impossible de lancer la procédure en mode arrêt", qu'est-ce qui cloche.

Le code que j'ai recopié dans une macro de feuille est le suivant :

Dim NextTime As Date

Sub Flash()

NextTime = Now + TimeValue("00:00:01")

With ActiveWorkbook.Styles("Flash").Font

If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2

End With

Application.OnTime NextTime, "Flash"

End Sub

Sub StopIt()

Application.OnTime NextTime, "Flash", schedule:=False

ActiveWorkbook.Styles("Flash").Font.ColorIndex = xlAutomatic

End Sub

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Y a-t-il quelque chose qui cloche ?

Bonjour,

Place ce code dans le ThisWorkbook de ton fichier

Private Sub Workbook_Open()
  UserForm2.Show'   'Nom du fichier à ouvrir
End Sub

Amicalement

Pierrot

OK, Pierrot,

Merci beaucoup pour ton aide et bonne fin de week-end à toi.

H