Re : Copier la couleur d'une cellule dans une autre sur une autre feuille
Je teste ce code qui me semble bien d'après votre aide.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Coul, Est As Range, Trouve As Range
If ActiveSheet.Name = "Synthèse par domaine" Or Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("BU58,BU64,BU65")) Is Nothing Then Exit Sub
With Sheets("Synthèse par domaine")
Set Est = .Rows(8).Find(Target.Offset(, -72))
If Not Est Is Nothing Then
Set Trouve = .[P
].Find(ActiveSheet.Name)
If Not Est Is Nothing Then Target.Copy .Cells(Trouve.Row, Est.Column)
End If
End With
End Sub
Le problème est que lorsque je fais quelque chose, Then Target.Copy .Cells(Trouve.Row, Est.Column)
se met en jaune et je ne sais pas quoi faire.
Quelqu'un aurait il une idée de ce qui ne va pas.
Merci beaucoup et bonne soirée.
Lolomal