• Initiateur de la discussion Initiateur de la discussion lamho27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lamho27

XLDnaute Occasionnel
bonsoir le forum
je voudrais faire quand je tapes sur A1 un chiffre 1, cellule B1 apparaitre couleur ( ex : vert ) , ensuite tape 2=rouge ; 3=bleu ....
mercie d'avance
 
Re : Cellule en couleur

Bonsoir Lamho, bonsoir le forum,

Je te propose la macro événementielle Change ci-dessous à placer par VBE ([Alt]+[F11]) dans le composant de l'onglet désiré (Feuil1(Feuil1) par exemple) :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Range("B1").Interior.ColorIndex = Target.Value Mod 56
End Sub
 
Re : Cellule en couleur

Bonjour lamho, Robert,

Lamho, tu n'as peut-être pas bien testé la solution de Robert, qui marche parfaitement et ne donne pas que du noir, puisque l'opérateur MOD renvoie le reste de la division de ta valeur en A1 par 56, et donc change à chaque saisie, te donnant toutes les couleurs de l'arc-en-ciel et même beaucoup plus.
Très astucieux, je trouve!
Pour continuer sur le reste de la colonne A, remplace le code par ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
i = Target.Row
If Target.Address <> "$A$" & i Then Exit Sub
Range("B" & i).Interior.ColorIndex = Target.Value Mod 56
End Sub

Cordialement,
Guiv
 
Re : Cellule en couleur

Bonsoir le fil, bonsoir le forum,

Peut-être devrais-tu commencer par poser la bonne question d'entrée... Non ? J'ai l'impression qu'à chaque réponse qu'on va te donner tu vas changer d'idée. Je ne comprends pas ton tableau D10:G14 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
665
W
Réponses
1
Affichages
150
  • Question Question
Réponses
32
Affichages
766
Réponses
4
Affichages
310
Retour