Aide suite tutoriel "Effectuer des actions sur une feuille "

Bonjour à tous,

j'ai suivi le très bon tutoriel "effectuer des actions sur une feuille à partir d'un userform modal".

de ce fait, je souhaitais faire la même chose mais avec plusieurs coloris sous forme de boutons dans mon userform:

1/cliquer sur un des boutons présent dans le userform

2/puis que chaque cellule sélectionnée prenne la couleur du bouton

mais voila, je débute avec VBA et cela ne fonctionne pas,

j'ai mis toutes mes conditions dans la partie worksheet mais à chaque fois, c'est ma dernière condition qui est prise en compte

voici une copie de mon worksheet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If actif Then Selection.Interior.Color = UserForm1.CommandButton1.BackColor
If actif Then Selection.Interior.Color = UserForm1.CommandButton2.BackColor
If actif Then Selection.Interior.Color = UserForm1.CommandButton3.BackColor
If actif Then Selection.Interior.Color = UserForm1.CommandButton4.BackColor
If actif Then Selection.Interior.Color = UserForm1.CommandButton5.BackColor
If actif Then Selection.Interior.Color = UserForm1.CommandButton6.BackColor
End Sub

Si quelqu'un aurait la gentillesse de m'expliquer comment faire! par avance merci

je vous mets mon fichier disposition

Bonjour

lilou4462 a écrit :

c'est ma dernière condition qui est prise en compte

Si tu pouvais ralentir le temps tu verrais que la cellule sélectionnée passe par toutes les couleurs jusqu'à la couleur de ton bouton 6

Le mieux (dans ton cas) c'est de colorier la cellule quand tu appuies sur le bouton

Tu supprimes ta macro Worksheet_SelectionChange

Et dans le code de ton Userform il faut que tu rajoutes une macro par bouton

Tu auras 6 macros (à peu près identique)

Je te fais juste 2 macros, essayes de faire les autres : Si soucis reviens

Private Sub CommandButton1_Click()
  Selection.Interior.Color = UserForm1.CommandButton1.BackColor
End Sub

Private Sub CommandButton2_Click()
  Selection.Interior.Color = UserForm1.CommandButton2.BackColor
End Sub
' etc...

Dans ce code de l'Userform tu peux supprimer les autres macros et supprimer la variable actif

merci beaucoup pour votre explication et l'exemple des macros.

tout fonctionne!!!!

milles mercis!