XL pour MAC Colorindex

Delorme

XLDnaute Occasionnel
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
 

Cousinhub

XLDnaute Barbatruc
Inactif
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

Code:
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

XLDnaute Occasionnel
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

Code:
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
 

Discussions similaires

Réponses
25
Affichages
977
Réponses
4
Affichages
484

Statistiques des forums

Discussions
313 290
Messages
2 096 856
Membres
106 766
dernier inscrit
jBa2023