comprendre la macro choix palette couleur

[bynabik]

Bonjour le forum
J'ai trouvé la formule magique ci-dessous
en farfouillant dans le forum.
Elle remplace une couleur de fond par une autre dans tout le fichier. J'aurais bien voulu l'appliquer à la police et aux bordures par un bouton sur une userform qui changerait ainsi tout le rouge (par ex)du classeur par une autre couleur choisie dans la palette
MAlheureusementje n'y arrive pas je ne comprends pas bien comment ça marche si quelqu'un veut bien prendre le temps de me commenter cette macro, j'arriverai peut être à l'adapter à mes besoins.
Sub DialogueCouleur() 'Ti
Dim Res As Boolean
On Error GoTo erreur
With ActiveCell
Res = Application.Dialogs(xlDialogEditColor).Show(.Interior.ColorIndex)
If Res And (Selection.Count > 1) Then Selection.Interior.ColorIndex = .Interior.ColorIndex
End With
erreur:
End Sub
Merci d'avance

 

[Creepy]

Bonjour le Forum, Bynabik,

Ci dessous ta réponse :

Sub DialogueCouleur() 'Ti

Dim Res As Boolean
' Declaration de la variable Res en Boolean, c'est à dire ne peut prendre que la valeur
' Vrai ou faux
On Error GoTo erreur ' Si Erreur alors allez à Erreur.

With ActiveCell ' avec la cellule active (selectionnée)
   Res = Application.Dialogs(xlDialogEditColor).Show(.Interior.ColorIndex)
   ' Si cette cellule a une couleur de fond alors afficher la boite de dialogue
   ' Couleur
   
   If Res And (Selection.Count > 1) Then Selection.Interior.ColorIndex = .Interior.ColorIndex
   ' Si pas cliquer sur le bouton annulé et toujours une cellule selectionnée
   ' Alors on applique la couleur de la boite de dialogue COULEUR

End With ' fin du avec

erreur:
End Sub

@+

Creepy