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

6 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
Chris & Henk
Punaise !!!!!!!!!!!!!!!!!!!!!!!!!
Pourquoi ça marche pas chez moi ??
vrai ou faux c'est toujours en rouge !
1*15 rouge mais 1*1=1 aussi
je peux t'envoyer par mail mon bidouille ???

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

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 ?




















Avatar
Jacky
Mets le sur:
Au risque de transgresser la règle 1 ;-))
http://cjoint.com/

JJ

"Chris & Henk" a écrit dans le message de
news:44362fa7$0$20183$
Punaise !!!!!!!!!!!!!!!!!!!!!!!!!
Pourquoi ça marche pas chez moi ??
vrai ou faux c'est toujours en rouge !
1*15 rouge mais 1*1=1 aussi
je peux t'envoyer par mail mon bidouille ???

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

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 ?
























Avatar
Chris & Henk
C'est bon eeuuurrreekkkaaa !

Comme je suis en B2 j'avais :

=ET(B2<>"";(LIGNE(B2)-1)*(COLONNE(B2)-2)<>B2)

erreur !

=ET(B2<>"";(LIGNE(B2)-1)*(COLONNE(B2)-1)<>B2)

c'est mieux, merci Jacky

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

Mets le sur:
Au risque de transgresser la règle 1 ;-))
http://cjoint.com/

JJ

"Chris & Henk" a écrit dans le message de
news:44362fa7$0$20183$
Punaise !!!!!!!!!!!!!!!!!!!!!!!!!
Pourquoi ça marche pas chez moi ??
vrai ou faux c'est toujours en rouge !
1*15 rouge mais 1*1=1 aussi
je peux t'envoyer par mail mon bidouille ???

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

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 ?




























Avatar
Jacky
Re...
Attention,
si le tableau est déplacé avec démarrage en b2, il faudra modifier ces deux
lignes
'--------
If Intersect(Target, [b2:k11]) Is Nothing Then Exit Sub
If Cells(Target.Row, Target.Column) <> Cells(Target.Row, 1) * Cells(1,
Target.Column) Then
'----------
JJ

"Chris & Henk" a écrit dans le message de
news:4436342a$0$21263$
C'est bon eeuuurrreekkkaaa !

Comme je suis en B2 j'avais :

=ET(B2<>"";(LIGNE(B2)-1)*(COLONNE(B2)-2)<>B2)

erreur !

=ET(B2<>"";(LIGNE(B2)-1)*(COLONNE(B2)-1)<>B2)

c'est mieux, merci Jacky

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

Mets le sur:
Au risque de transgresser la règle 1 ;-))
http://cjoint.com/

JJ

"Chris & Henk" a écrit dans le message de
news:44362fa7$0$20183$
Punaise !!!!!!!!!!!!!!!!!!!!!!!!!
Pourquoi ça marche pas chez moi ??
vrai ou faux c'est toujours en rouge !
1*15 rouge mais 1*1=1 aussi
je peux t'envoyer par mail mon bidouille ???

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

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 ?
































Avatar
Chris & Henk
Bien sur c'est fait :)

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

Re...
Attention,
si le tableau est déplacé avec démarrage en b2, il faudra modifier ces
deux
lignes
'--------
If Intersect(Target, [b2:k11]) Is Nothing Then Exit Sub
If Cells(Target.Row, Target.Column) <> Cells(Target.Row, 1) * Cells(1,
Target.Column) Then
'----------
JJ

"Chris & Henk" a écrit dans le message de
news:4436342a$0$21263$
C'est bon eeuuurrreekkkaaa !

Comme je suis en B2 j'avais :

=ET(B2<>"";(LIGNE(B2)-1)*(COLONNE(B2)-2)<>B2)

erreur !

=ET(B2<>"";(LIGNE(B2)-1)*(COLONNE(B2)-1)<>B2)

c'est mieux, merci Jacky

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

Mets le sur:
Au risque de transgresser la règle 1 ;-))
http://cjoint.com/

JJ

"Chris & Henk" a écrit dans le message de
news:44362fa7$0$20183$
Punaise !!!!!!!!!!!!!!!!!!!!!!!!!
Pourquoi ça marche pas chez moi ??
vrai ou faux c'est toujours en rouge !
1*15 rouge mais 1*1=1 aussi
je peux t'envoyer par mail mon bidouille ???

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

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 ?




































Avatar
Chris & Henk
http://cjoint.com/?ehoKJZH4XG

voili voila, suis super content du résultat et mon fiston aussi.
Un grand merci à Gérard aussi.

@12C4

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

Mets le sur:
Au risque de transgresser la règle 1 ;-))
http://cjoint.com/

JJ

"Chris & Henk" a écrit dans le message de
news:44362fa7$0$20183$
Punaise !!!!!!!!!!!!!!!!!!!!!!!!!
Pourquoi ça marche pas chez moi ??
vrai ou faux c'est toujours en rouge !
1*15 rouge mais 1*1=1 aussi
je peux t'envoyer par mail mon bidouille ???

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

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