XL pour MAC Colorindex

[Delorme]

Bonjour à tous

Debutant et passionné d'excellents je vous pose mon probleme
J'espère qu'il y a une solution
Je voudrais que ma macro fonctionne avec non pas le code couleur qui est 8 , mais avec une adresse de cellule exemple B1dans laquelle je pourrais rentrer ce code qui teinterais la cellule a1
je pourrais par la suite modifier le code 8 dans la cellule B1et de ce fait changer la couleur de a1

Sub teinte()
Range("a1").Interior.ColorIndex = 8
End Sub

C'est un peu tordu mais est ce possible ?

merci d'avance

Michel

 

[TooFatBoy]

Bonjour,

As-tu essayé ceci :

Range("A1").Interior.ColorIndex =Range("B1").Value

 

[Cousinhub]

Bonjour,
Dans l'évènement de feuille, tu peux mettre ce code :
Dès que tu entres un nombre inférieur à 56 en colonne B, la cellule A de la même ligne se colore de la valeur

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And IsNumeric(Target) And Target.Column = 2 Then
    If Target <= 56 Then
        Target.Offset(, -1).Interior.ColorIndex = Target
    Else
        Target.Offset(, -1).Interior.ColorIndex = 0
    End If
End If
End Sub

Bonne apm

 

[Delorme]

Bonjour,

As-tu essayé ceci :

Merci impec

 

[Delorme]

Bonjour,
Dans l'évènement de feuille, tu peux mettre ce code :
Dès que tu entres un nombre inférieur à 56 en colonne B, la cellule A de la même ligne se colore de la valeur

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And IsNumeric(Target) And Target.Column = 2 Then
    If Target <= 56 Then
        Target.Offset(, -1).Interior.ColorIndex = Target
    Else
        Target.Offset(, -1).Interior.ColorIndex = 0
    End If
End If
End Sub

Bonne apm

Merci beaucoup