Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Choisir couleur

Choisir couleur

16 réponses
Avatar
Chris & Henk
re-re-bonjour, bonsoir,

J'ai ceci pour écrire une valeur dans une cellule mais comment avoir le
choix noir ou rouge ?

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value =
Range("N4").Value * Range("P4").Value

Avec BackStyle ?
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Norvi
Bonsoir,

Utilises Interior.ColorIndex :

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Interior.ColorIndex
= 1

1 pour le noir, 3 pour le rouge.

Cordialement,

N.
Avatar
Jacky
Bonjour,

Si c'est pour le tableau de multiplication, as-tu regardé ma proposition
dans le fil précédent ??

JJ

"Chris & Henk" a écrit dans le message de
news:44352f13$0$6681$
re-re-bonjour, bonsoir,

J'ai ceci pour écrire une valeur dans une cellule mais comment avoir le
choix noir ou rouge ?

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value > Range("N4").Value * Range("P4").Value

Avec BackStyle ?




Avatar
Jacky
Ouppss
copie du lien
http://cjoint.com/?efqn4HtFMU

JJ

"Jacky" a écrit dans le message de
news:%
Bonjour,

Si c'est pour le tableau de multiplication, as-tu regardé ma proposition
dans le fil précédent ??

JJ

"Chris & Henk" a écrit dans le message de
news:44352f13$0$6681$
re-re-bonjour, bonsoir,

J'ai ceci pour écrire une valeur dans une cellule mais comment avoir le
choix noir ou rouge ?

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value > > Range("N4").Value * Range("P4").Value

Avec BackStyle ?








Avatar
Chris & Henk
Re-punaise comme tu es re-balaise :)

"Norvi" a écrit dans le message de news:

Bonsoir,

Utilises Interior.ColorIndex :

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Interior.ColorIndex
= 1

1 pour le noir, 3 pour le rouge.

Cordialement,

N.



Avatar
Chris & Henk
Et moi nul :(

j'avais donc :

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value =
Range("N4").Value * Range("P4").Value

puis pour la couleur :

Cells(Range("N4").Value + 1, Range("P4").Value +
1).Value.Interior.ColorIndex = 1 = Range("N4").Value * Range("P4").Value

ne marche pas , suis nul, snif snif :(

"Chris & Henk" a écrit dans le message de news:
44353b8a$0$18326$
Re-punaise comme tu es re-balaise :)

"Norvi" a écrit dans le message de news:

Bonsoir,

Utilises Interior.ColorIndex :

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Interior.ColorIndex
= 1

1 pour le noir, 3 pour le rouge.

Cordialement,

N.







Avatar
Norvi
Merci ;)

Pour apprendre, c'est pas difficile (même si je me contente de trucs
assez simple), tu as 4 moyens :
- Ce newsgroup
- les sites Internet des stars d'Excel :
+ http://j-walk.com (en anglais)
+ www.excelabo.net
+ http://jacxl.free.fr/
+ http://longre.free.fr
+ http://frederic.sigonneau.free.fr
+ et plein d'autre, donc je m'excuse pour tout ceux que j'oublie,
mais ceux la sont dans mes favoris...
- l'enregistreur de macro d'Excel
- et enfin, dans VBE, le Object Browser.

Bonne soirée.

N.
Avatar
Chris & Henk
Merci, 4 dri langue ça devrait aller

"Norvi" a écrit dans le message de news:

Merci ;)

Pour apprendre, c'est pas difficile (même si je me contente de trucs
assez simple), tu as 4 moyens :
- Ce newsgroup
- les sites Internet des stars d'Excel :
+ http://j-walk.com (en anglais)
+ www.excelabo.net
+ http://jacxl.free.fr/
+ http://longre.free.fr
+ http://frederic.sigonneau.free.fr
+ et plein d'autre, donc je m'excuse pour tout ceux que j'oublie,
mais ceux la sont dans mes favoris...
- l'enregistreur de macro d'Excel
- et enfin, dans VBE, le Object Browser.

Bonne soirée.

N.
Avatar
Chris & Henk
Merci Jacky c'est super !

"Jacky" a écrit dans le message de news:

Ouppss
copie du lien
http://cjoint.com/?efqn4HtFMU

JJ

"Jacky" a écrit dans le message de
news:%
Bonjour,

Si c'est pour le tableau de multiplication, as-tu regardé ma proposition
dans le fil précédent ??

JJ

"Chris & Henk" a écrit dans le message de
news:44352f13$0$6681$
re-re-bonjour, bonsoir,

J'ai ceci pour écrire une valeur dans une cellule mais comment avoir le
choix noir ou rouge ?

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value >> > Range("N4").Value * Range("P4").Value

Avec BackStyle ?












Avatar
Chris & Henk
excuser moi Jacky mais je trouve ou le rouge,mauvaise réponse et le vert,
bonne réponse, dans le programme ?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [c2:l11]) Is Nothing Then Exit Sub
If Cells(Target.Row, Target.Column) <> Cells(Target.Row, 2) * Cells(1,
Target.Column) Then
MsgBox "Ce n'est pas juste. " & Chr(10) & Chr(10) & " Recommence."
Target.Select
End If
End Sub



"Jacky" a écrit dans le message de news:

Ouppss
copie du lien
http://cjoint.com/?efqn4HtFMU

JJ

"Jacky" a écrit dans le message de
news:%
Bonjour,

Si c'est pour le tableau de multiplication, as-tu regardé ma proposition
dans le fil précédent ??

JJ

"Chris & Henk" a écrit dans le message de
news:44352f13$0$6681$
re-re-bonjour, bonsoir,

J'ai ceci pour écrire une valeur dans une cellule mais comment avoir le
choix noir ou rouge ?

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value >> > Range("N4").Value * Range("P4").Value

Avec BackStyle ?












Avatar
Jacky
Re..
Si tu veux aussi un message pour les bonnes réponses échange le code par
celui-ci.
'---------
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [c2:l11]) Is Nothing Then Exit Sub
If Cells(Target.Row, Target.Column) <> Cells(Target.Row, 2) * Cells(1,
Target.Column) Then
MsgBox "Ce n'est pas juste. " & Chr(10) & Chr(10) & " Recommence."
Target.Select
Else
MsgBox "Bonne réponse " & Chr(10) & Chr(10) & " Bravo."
End If
End Sub
'----------
Le changement de couleur est effectué par la mise en forme conditionnelle.
Le vert etant la couleur par défaut (en cours)

Sélection de toutes les plages de calcul (ici: C1:L11)
Dans le menu: Format/mise en forme conditionnelle.
Condition 1:
La formule est:
=ET(C2<>"";(LIGNE(C2)-1)*(COLONNE(C2)-2)<>C2)
Format==> onglet motifs...etc

Ps: la feuille est protéger "Sans mot de passe" pour éviter le changement
des autres cellules par erreur de sélection.

Bon courage
JJ


"Chris & Henk" a écrit dans le message de
news:44360dea$0$19693$
excuser moi Jacky mais je trouve ou le rouge,mauvaise réponse et le vert,
bonne réponse, dans le programme ?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, [c2:l11]) Is Nothing Then Exit Sub
If Cells(Target.Row, Target.Column) <> Cells(Target.Row, 2) * Cells(1,
Target.Column) Then
MsgBox "Ce n'est pas juste. " & Chr(10) & Chr(10) & " Recommence."
Target.Select
End If
End Sub



"Jacky" a écrit dans le message de news:

Ouppss
copie du lien
http://cjoint.com/?efqn4HtFMU

JJ

"Jacky" a écrit dans le message de
news:%
Bonjour,

Si c'est pour le tableau de multiplication, as-tu regardé ma
proposition



dans le fil précédent ??

JJ

"Chris & Henk" a écrit dans le message de
news:44352f13$0$6681$
re-re-bonjour, bonsoir,

J'ai ceci pour écrire une valeur dans une cellule mais comment avoir
le




choix noir ou rouge ?

Cells(Range("N4").Value + 1, Range("P4").Value + 1).Value > >> > Range("N4").Value * Range("P4").Value

Avec BackStyle ?
















1 2