XL 2010 colorier une cellule en fonction du format

mouss5174

XLDnaute Nouveau
bonjour,

j'aimerai que lorsque je rentre une couleur manuellement(format) dans une cellule A1 Feuil1
cela colorie de la même couleur différentes cellules (A5 Feuil1 ;B2 Feuil2)

est que cela est possible?

Merci de votre aide
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum

Oui, c'est possible.
>Par macro.

Tu as essayé l'enregistreur de macros?

Un exemple de macro
VB:
Sub RecopieFormat()
Feuil1.[A1].Copy
Feuil1.[A5].PasteSpecial Paste:=xlPasteFormats
Feuil2.[B2].PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
 
Dernière édition:

mouss5174

XLDnaute Nouveau
bonjour,

tout d'abord, je vous remercie de votre réactivité
non, je n'avais pas essayer ça, mais cela ne change pas la couleur lorsque que je met la couleur dans A1
ta macro marche si je l’exécute
dois je créer un bouton pour qu'elle se lance

cordialement
 

Staple1600

XLDnaute Barbatruc
Re

C'est normal qu'une macro marche si on l’exécute ;)
Si elle ne marche pas, c'est soit qu'elle n'a pas de pieds (ce qui est le cas d'un grand nombre de macros), soit qu'elle n'a pas été exécutée ;)

Je vais investiguer davantage pour voir si on peut automatiser ce coloriage.
 

Staple1600

XLDnaute Barbatruc
Re

A mettre dans le code de la feuille
Tu sélectionnes A1, tu changes la couleur
Tu sélectionnes A2
Puis tu resélectionnes A1
(oui je sais, c'est pas commode, mais je suis toujours en mode investigation ;) )
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Feuil1.[A5].Interior.Color = Target.Interior.Color
Feuil2.[B2].Interior.Color = Target.Interior.Color
End If
End Sub
 

JNP

XLDnaute Barbatruc
Bonsoir le fil :)
Bonsoir Staple, ça fait un bail :)
Est-il indispensable que l'action soit un changement de couleur où l'action peut-elle être une saisie de texte ?
Prenons le cas d'un planning, si j'écris dans la cellule "R" pour repos, et que les repos sont en jaune, il suffit que je mette en MFC que R est en police jaune sur fond jaune pour que visuellement, ma cellule est jaune, mais que je puisse faire un test ailleurs et mettre l'autre cellule en jaune, avec en plus l'avantage de pouvoir compter les repos :)
 

mouss5174

XLDnaute Nouveau
bonsoir à tous
je vous remercie à vous 2 de m'aider, pour répondre à ta question, JNP, non la MFC n'est pas solution
la macro que me propose Staple est bonne, mais il me reste à trouver un moyen de l’exécuter
j'ai essayer de faire comme si je valider la cellule A1 afin de lancer la macro mais ça marche pas pour l'instant.

merci Staple et JNP mais la je vous abandonne car dodo peut être que la nuit portera conseil car je vais continuer à creuser sur ce principe
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
J'ai quelque part une procédure appelée depuis plusieurs feuilles par leurs Worksheet_SelectionChange, qui sait réagir au changement de couleur de fond de la cellule sélectionnée :
VB:
Public Sub SelectionChange(ByVal LaFeuille As Worksheet, _
   ByVal Cible As Range, ByVal Appliquer As Boolean)
PositImages LaFeuille, Cible(1, 1)
If Cible.Rows.Count <> 1 Or Cible.Columns.Count <> 1 Then Exit Sub
If Cible.Row < 4 Or Cible.Row > LaFeuille.ListObjects(1).ListRows.Count + 4 Then Exit Sub
If Cible.Column = 7 Then
   ReDim T(1 To 1, 1 To 11)
   Set PlgLgn = Intersect([B:L], Cible.EntireRow)
   If Appliquer Then UFmAppliquer.Proposer Cible.Interior.Color
   Co.C = Cible.Interior.Color
   On Error Resume Next
   Do While ActiveCell.Address = Cible.Address
      If Err Then Exit Sub
      If Cible.Interior.Color <> Co.C Then
         Co.C = Cible.Interior.Color: MàJLigne
         If Appliquer Then UFmAppliquer.Proposer Cible.Interior.Color
         End If: DoEvents: Loop
ElseIf Cible.Column = 8 Then
   With New MSForms.DataObject: .SetText Cible.Value: .PutInClipboard: End With
   If Appliquer Then UFmAppliquer.Proposer Cible.Offset(, -1).Interior.Color
   End If
End Sub
Remarque: la partie intéressante c'est du Do While ActiveCell.Address = Cible.Address juqu'au End If: DoEvents: Loop
 

Discussions similaires

Statistiques des forums

Discussions
311 740
Messages
2 082 047
Membres
101 880
dernier inscrit
Anton_2024