"Lier" la couleur de 2 cellules VBA Fermé

Question

Bonjour,

Je cherche à lier la couleur de 2 cellules de 2 feuilles différentes.

J'ai réussi à "copier" et "coller" la couleur lors de l'appui sur le bouton, mais par la suite quand je modifie la couleur d'une des cellules, l'autre ne se modifie pas automatiquement.

Voici mon bout de code pour le moment:


i = 54        While i <= 60            c = Sheets(resultat).Cells(i - 2, 15).Interior.Color            Sheets("Debours").Cells(i, j + 3).Interior.Color = c            i = i + 1        Wend

En espérant que ce soit possible

Merci d'avoir pris le temps de lire ma demande

thev · Answer

Bonjour,

 essayer ceci :
 i = 54        While i <= 60           Sheets("Debours").Cells(i, j + 3).Interior.ColorIndex = Sheets(resultat).Cells(i - 2, 15).Interior.ColorIndex            i = i + 1        Wend

Patrice33740 · Answer

Bonjour,

« quand je modifie la couleur d'une des cellules, l'autre ne se modifie pas automatiquement »

Pour que cela fonctionne automatiquement, il faut utiliser une procédure évènementielle. Il n'existe malheureusement pas d'évènement lors du changement du format d'une cellule mais tu peux utiliser l'évènement Deactivate de la feuille.

Par exemple dans le module de la feuille dont tu veux copier les couleurs
Private Sub Worksheet_Deactivate()
  Call CopierLesCouleurs
End Sub

Cordialement
Patrice

"Lier" la couleur de 2 cellules VBA

2 réponses

Discussions similaires

Newsletters