Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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
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
Dans colonne A = numéroté , colonne B=couleurs, dans celulle D10 je tapes numéro corresponce de A ( ex= A1) , je voudrais dans celulle D11a de couleur corresponce de B ( ex=B1); comment on peut faire , mercie
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