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