"Lier" la couleur de 2 cellules VBA
barbeaua
-
barbeaua -
barbeaua -
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:
En espérant que ce soit possible
Merci d'avoir pris le temps de lire ma demande
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
2 réponses
-
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 -
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 couleursPrivate Sub Worksheet_Deactivate() Call CopierLesCouleurs End Sub
Cordialement
Patrice-
Bonjour Patrice,
Malheureusement je ne sais pas trop comment m'y prendre.. Je dois copier la couleur d'une cellule sur la feuille choisie. Le nom de cette feuille a un code comme "1500270".
Après je dois me rendre dans la feuille nommée "Debours" et coller la couleur dans la colonne "1500270" a la cellule correspondante...
C'est trop complexe pour mon niveau en VBA :/
-
