Si je puis me permettre, une seule et même personne ne peut pas faire ces trois recherches.Chercher à unifier les forces de l'Univers, percer le mystère de la matière et de l'énergie noires ou celui de la conscience extra-corporelle
Bonjour Dudu génial.J'ai reporté le code dans ton fichier. Ce code ne fonctionne pas chez moi, il manque les liaisons externes. Ajuste les couleurs selon tes préférences.
Pour la couleur de font c'est Command Button.ForeColor
Pour le faire disparaitre c'est Command Button.Visible = False
Si tu veux relancer le clignotement (?) il faut le faire avec la fonction comme dans WorkBook_Open().
Sinon je n'ai pas compris ce que tu veux faire. Je ne peux pas tester car les liaisons externes absentes font planter la Macro.
Quand ça plante, tu vois où ? (Debug, ligne jaune)
Il faut que tu ajustes les propriétés .Top et .Left du bouton sur une cellule de ton choix.
Partant d'objets de la feuille, tu as de la chance, cela correspond.
ThisWorkbook.Worksheets(1).CommandButton1.Top = [A10].Top
ThisWorkbook.Worksheets(1).CommandButton1.Left = [A10].Left
Dim DernièreLigne As Long
On Error Resume Next
'Dernière ligne de la colonne 1 de la feuille 1
DernièreLigne = ThisWorkbook.Worksheets(1).Columns(1).EntireColumn.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If Err.Number Then DernièreLigne = 0
On Error GoTo 0
MsgBox DernièreLigne
Dim DernièreLigne As Long
DernièreLigne = ThisWorkbook.Worksheets(1).UsedRange.Row + ThisWorkbook.Worksheets(1).UsedRange.Rows.Count - 1
ThisWorkbook.Worksheets(1).CmdDémarrer.Top = ThisWorkbook.Worksheets(1).Cells(DernièreLigne + 1, 1).Top
ThisWorkbook.Worksheets(1).CmdDémarrer.Left = ThisWorkbook.Worksheets(1).Cells(DernièreLigne + 1, 1).Left