XL 2013 Une cellule égale une autre y compris la mise en forme (couleur notamment)

[BIDOUYE]

Bonjour à tous !

Ma question est la suivante :

Comment faire pour qu'une cellule d'une feuille soit en tout point égale à une autre cellule d'une autre feuille y compris la mise en forme notamment la couleur du fond ?

En clair si je modifie la couleur du fond de la 1ère cellule il faut que la 2nde cellule change de couleur également !

Merci pour votre aide !

Bidouye

 

[DoubleZero]

Re : Une cellule égale une autre y compris la mise en forme (couleur notamment)

Bonjour à toutes et à tous,

Bienvenue sur XLD, BIDOUYE.

Merci de bien vouloir fournir un fichier "sosie" du fichier de travail, sans donnée confidentielle, tout en précisant les noms d'onglets concernés :

...une cellule d'une feuille soit en tout point égale à une autre cellule d'une autre feuille...

A bientôt 🙂

 

[laetitia90]

Re : Une cellule égale une autre y compris la mise en forme (couleur notamment)

bonjour BIDOUYE ,DoubleZero🙂🙂🙂
on pourrait en passant par une evenem....

exemple basique pour toutes les cellules feuille 1 vers feuille 2

Private Sub Worksheet_Change(ByVal T As Range)
  Cells(T.Row, T.Column).Copy Feuil2.Cells(T.Row, T.Column)
End Sub

avec condition cellule seulement column a,c,e

Private Sub Worksheet_Change(ByVal T As Range)
   If Not Intersect(T, [a:a,c:c,e:e]) Is Nothing And T.Count = 1 Then _
  Cells(T.Row, T.Column).Copy Feuil2.Cells(T.Row, T.Column)
End Sub

exemple de conditions plage a adapter

If Not Application.Intersect(T, Range("a:e")) Is Nothing And T.Count = 1 Then
 If Not Application.Intersect(T, Range("a1:e10")) Is Nothing And T.Count = 1 Then
 If Not Application.Intersect(Target, Range("a1:a12, d4:d10, d20, d22, d55, e1:e12")) Is Nothing And T.Count = 1 Then

 

[BIDOUYE]

Re : Une cellule égale une autre y compris la mise en forme (couleur notamment)

Bonjour,

Ci-joint un fichier test.

Je souhaite que la couleur de la cellule dans le second onglet prenne automatiquement la couleur de la cellule "mère" du premier onglet.

Merci pour votre aide !

Bidouye