Colorer un bouton sous Excel Fermé

Question

Bonjour, 

Je souhaiterai savoir si quelqu'un sait quel sont les lignes de code que je dois rajouter dans ma macro, pour que le bouton sur lequel je clic (qui exécute une macro) change de couleur (passe en vert par exemple).

Merci d'avance pour votre aide.

Configuration: Mac OS X / Safari 533.21.1

Mike-31 · Answer

Salut,

exemple 1 clic passe en vert et double clic en rouge

Private Sub CommandButton1_Click()
CommandButton1.BackColor = &HFF00&
End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.BackColor = &HFF&
End Sub

jobcouscous · Answer

Pour faire suite à ma première question,

Où puis-je trouver un tableau avec les couleurs et leur indice hexadecimale.
Si cela existe.

Merci.

Mike-31 · Answer

Re,

Colonne E et L 

https://www.cjoint.com/?BBDlLQUMlmN

jobcouscous · Answer

Merci pour toutes ces infos

jobcouscous · Answer

Maintenant j'aimerai inserer le changement de couleur dans ma macro, la voici :
Sub ST6W105M()


'
' ST6W105M Macro
'

'
    Sheets("ST 6W105M").Select
    Rows("1:188").Select
    Selection.Copy
    Sheets("ST").Select
    Range("A12").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Sheets("Devis").Select
    ActiveSheet.Shapes.Range(Array("Button 73")).Select
    Selection.Font.Bold = True
    Range("B28").Select
    ActiveCell.FormulaR1C1 = "6W105M"
    Range("C28").Select
    ActiveCell.FormulaR1C1 = 1
    Range("F28").Select
    ActiveCell.FormulaR1C1 = "='6W105M'!R[18]C[1]"
    Range("A12").Select
End Sub

Quelqu'un peut t'il m'aider?

Mike-31 · Answer

Re,

Ton code peut être amélioré quand à l'insertion de la couleur dans le code pas de problème mais à quel moment veux tu que la couleur change, en fin de procédure ou en fonction d'une valeur contenue dans une cellule

jobcouscous · Answer

J'aimerais que la couleur change juste après :

ActiveSheet.Shapes.Range(Array("Button 73")).Select
Selection.Font.Bold = True 

ou avant peut importe....

Je sais que mon code n'est pas top, car il est issu d'un "enregistrement de macro".

Mais bon, ça marche pas trop mal, pour l'instant je m'en contente, j'essaierai de l'améliorer par la suite.
Si tu as du temps et que tu pense pour l'améliorer, dis moi ce que tu en penses.

Merci d'avance.

Mike-31 · Answer

Re,

Crée un bouton ActiveX et colle la partie en gras dans ses propriétés

 
Private Sub CommandButton1_Click()

Sheets("ST 6W105M").Select
Rows("1:188").Select
Selection.Copy
Sheets("ST").Select
[A12].Select
Selection.Insert Shift:=xlDown
[A1].Select
Sheets("Devis").Select
ActiveSheet.Shapes.Range(Array("Button 73")).Select
Selection.Font.Bold = True
CommandButton1.BackColor = &HFF00&
[B28].FormulaR1C1 = "6W105M"
[C28].FormulaR1C1 = 1
[F28].FormulaR1C1 = "='6W105M'!R[18]C[1]"
[A12].Select
End Sub


Ce qui me pose problème c'est la ligne ci dessous, que veux tu faire exactement après avoir mis les ligne de 1 à 188 en situation copier, je pense que tu souhaites simplement copier une plage de A1 à x118 non

Selection.Insert Shift:=xlDown

jobcouscous · Answer

En faite je veut copier la selection A1 à A188 de l'onglet 'ST 6W105M' dans l'onglet 'ST' a partir de A 12  

Par contre, le programme bloque à: 

Rows("1:188").Select

Mike-31 · Answer

Re,  

Colle le code en gras dans les propriétés d'un CommandButton  

Private Sub CommandButton1_Click()
  
Sheets("ST 6W105M").Select  
[A1:A188].Copy  
Sheets("ST").Select  
[A12].PasteSpecial Paste:=xlPasteValues  
Sheets("ST").[A1].Select  
Sheets("Devis").Select  
ActiveSheet.Shapes.Range(Array("Button 73")).Select  
Selection.Font.Bold = True  
Sheets("ST 6W105M").Select  
CommandButton1.BackColor = &HFF00&  
[B28].FormulaR1C1 = "6W105M"  
[C28].FormulaR1C1 = 1  
[F28].FormulaR1C1 = "='6W105M'!R[18]C[1]" 

End Sub  

A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Colorer un bouton sous Excel

10 réponses

Discussions similaires