Selection couleurs

Bonjour,

je souhaite avoir un bouton sur ma feuille "COMPOS", qui me permettrai de changer la couleurs de fond et d'écriture de plusieurs cellules sur une autre feuille appelé "nouvelle version"

Est-il possible par VBA de faire ceci ?

Bonjour Kayzo

Pour répondre strictement à votre question : Oui c'est possible de faire ça en VBA

Bonne après-midi

Merci de ton retour. j'ai réalisé ce code mais le problème c'est que ca change de feuille. Hors je veux rester sur ma feuille principal.

Sub Bouton37161_Cliquer()

Sheets("nouvelle version").Select
Range("C28:M28,C41:M41,C54:M54,C68:K68,AD10").Select

End Sub

Re,

VBA c'est de la programmation objets, inutile de les sélectionner pour pouvoir travailler dessus

Sub Bouton37161_Cliquer()
  ' Avec l'objet conteneur
  With Sheets("nouvelle version")
    ' Avec la plage souhaitée
    With .Range("C28:M28,C41:M41,C54:M54,C68:K68,AD10")
        .Interior.Color = 3
    End With
  End With
End Sub

où autrement

Sub Bouton37161_Cliquer()
  ' Déclaration des variables objet
  Dim Sht As Worksheet
  Dim Rng As Range
  ' Définition des variables objet
  Set Sht = ThisWorkbook.Sheets("nouvelle version")
  Set Rng = Sht.Range("C28:M28,C41:M41,C54:M54,C68:K68,AD10")
  ' On travaille avec l'objet
  Rng.Interior.Color = 3
  ' On efface les variable objet pour libérer la mémoire (pas obligatoire)
  Set Rng = Nothing: Set Sht = Nothing
End Sub

A+

Merci a toi pour ton aide.

Le problème dans ce code, est que c'est une couleur fixe...

Hors je souhaiterais changer à chaque fois que je clique sur le bouton.

Ce bouton sert juste a sélectionner les plage et après je vais dans le bouton remplissage de la cellule et couleur du texte pour la changer.

Bonjour Kayzo, BrunoM45,

après je vais dans le bouton remplissage de la cellule et couleur du texte pour la changer.

La demande aurait dû être plus explicite dès le départ.

Voir ci-dessous une adaptation du code pour ce besoin.

Sub NewKolor()
Application.ScreenUpdating = False
'Les cellules A1 et B1 de la feuille COMPOS doivent être vides
Range("A1").Select
'Sélection de cellules de l'autre feuille
Set Cel = Sheets("nouvelle version").Range("C28:M28,C41:M41,C54:M54,C68:K68,AD10")
'Modification Fond cellules
Range("A1") = Application.Dialogs(xlDialogPatterns).Show
Cel.Interior.Color = Range("A1").Interior.Color
MsgBox "Cliquez sur Ok pour la couleur de police"
'Modification couleur police d'écriture
Range("A1") = Application.Dialogs(xlDialogPatterns).Show
Range("B1").Font.Color = Range("A1").Interior.Color
Cel.Font.Color = Range("B1").Font.Color
Sheets("COMPOS").Activate
Range("A1:B1").Clear
Application.ScreenUpdating = True
End Sub

Sinon, autre solution, il est possible de faire d'abord le fond et la fonte d'une cellule quelconque sur la feuille COMPOS. Puis de cliquer ensuite sur le bouton permettant d'appliquer ces formats aux cellules cibles de la feuille nouvelle version.

Merci a tous pour votre aide. C'est exactement ce que je cherchais. 👌🏼