Couleur d'une cellule active Excel?
Fermé
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
-
3 mars 2005 à 17:14
Maya_88 Messages postés 1 Date d'inscription samedi 11 mars 2023 Statut Membre Dernière intervention 11 mars 2023 - 11 mars 2023 à 01:40
Maya_88 Messages postés 1 Date d'inscription samedi 11 mars 2023 Statut Membre Dernière intervention 11 mars 2023 - 11 mars 2023 à 01:40
A voir également:
- Changer la couleur de la cellule active excel
- Excel cellule couleur si condition texte - Guide
- Changer dns - Guide
- Piratage facebook changer mot de passe - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
18 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
3 mars 2005 à 23:16
3 mars 2005 à 23:16
bonjour
Pour faire selon ton idée, essaie de copier cette macro dans ton classeur :
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
sel.Interior.ColorIndex = 41
End Sub
cela devrait répondre à ta demande.
Pour faire selon ton idée, essaie de copier cette macro dans ton classeur :
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
sel.Interior.ColorIndex = 41
End Sub
cela devrait répondre à ta demande.
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
13 juin 2005 à 11:41
13 juin 2005 à 11:41
Plus personne ne peut m'aider.... svp.
J'aimerai vraiment arriver a faire ca....
J'aimerai vraiment arriver a faire ca....
tompols
Messages postés
1273
Date d'inscription
jeudi 29 juillet 2004
Statut
Contributeur
Dernière intervention
25 novembre 2013
435
3 mars 2005 à 17:21
3 mars 2005 à 17:21
Salut,
Pour réaliser ce que tu veux, je ne vois pas sans passer par une macro.Ton classeur (ou tous tes classeurs si tu veux que ça s'applique tt le tps) comportera donc une macro.
Est-ce ce que tu veux (si oui, dis-moi si tu as besoin d'un coup de main pour le code) ?
A+
Pour réaliser ce que tu veux, je ne vois pas sans passer par une macro.Ton classeur (ou tous tes classeurs si tu veux que ça s'applique tt le tps) comportera donc une macro.
Est-ce ce que tu veux (si oui, dis-moi si tu as besoin d'un coup de main pour le code) ?
A+
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 10:25
8 mars 2005 à 10:25
Je vais essayer mais je ne m'y connais pas en macro donc je vais surement avoir besoin de votre aide...
Merci a vous pour vos reponses!
Je vais tester!
Désolé pour cette reponse tardive mais la notification par mail n'a pas fonctionné ou j'ai oublié de cocher la case! lol
Merci a vous pour vos reponses!
Je vais tester!
Désolé pour cette reponse tardive mais la notification par mail n'a pas fonctionné ou j'ai oublié de cocher la case! lol
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 10:32
8 mars 2005 à 10:32
Effectivement je ne vois pas comment faire.... oupssss
Si quelqu'un pouvait m'expliquer la procedure ça serait cool!
Merci.
Si quelqu'un pouvait m'expliquer la procedure ça serait cool!
Merci.
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 12:39
8 mars 2005 à 12:39
Il n'y a vraiment personne pour m'aider?????
UsulArrakis
Messages postés
7405
Date d'inscription
vendredi 28 mars 2003
Statut
Contributeur
Dernière intervention
27 janvier 2022
3 182
8 mars 2005 à 12:46
8 mars 2005 à 12:46
salut Franky
menu outils / macro / visual basic editor
double clic sur feuil1 et sur la droite de l'écran une fenetre s'ouvre colle le texte indiqué plus haut et enregistre
quand tu retournes dans ton fichier excel chaque fois que tu sélectionnes une cellule elle se colore en bleu
menu outils / macro / visual basic editor
double clic sur feuil1 et sur la droite de l'écran une fenetre s'ouvre colle le texte indiqué plus haut et enregistre
quand tu retournes dans ton fichier excel chaque fois que tu sélectionnes une cellule elle se colore en bleu
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 13:40
8 mars 2005 à 13:40
Excellent!!!!!
Merci Beaucoup!
Un dernier truc si possible, quel est le code pour avoir la cellule rempli en rouge?
Je vois que 41 est = au bleu mais le rouge????
Merci Beaucoup!
Un dernier truc si possible, quel est le code pour avoir la cellule rempli en rouge?
Je vois que 41 est = au bleu mais le rouge????
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 14:12
8 mars 2005 à 14:12
Aie,
Apres quelques test je remarque ceci:
J'ai des cellules deja colorées, lorsque j'en selectionne une, celle ci change bien de couleur et lorsque je la deselectionne elle reprend bien sa couleur de base (verte par exemple).
Par contre si je fait la meme operation mais cette fois ci en selectionnant une plage de cellules cela m'efface les couleurs de base... et lorsque je deselctionne la plage de cellule devient blanche (enfin fond>couleur automatique)
Si je veux recolorer cette plage de cellules ou meme une cellule seule cela ne marche pas elle prend la couleur mais des que je deselectionne ça revient en "couleur automatique" (soit blanc)
Quelqu'un saurait il rectifier le code pour eviter ces problemes?
Apres quelques test je remarque ceci:
J'ai des cellules deja colorées, lorsque j'en selectionne une, celle ci change bien de couleur et lorsque je la deselectionne elle reprend bien sa couleur de base (verte par exemple).
Par contre si je fait la meme operation mais cette fois ci en selectionnant une plage de cellules cela m'efface les couleurs de base... et lorsque je deselctionne la plage de cellule devient blanche (enfin fond>couleur automatique)
Si je veux recolorer cette plage de cellules ou meme une cellule seule cela ne marche pas elle prend la couleur mais des que je deselectionne ça revient en "couleur automatique" (soit blanc)
Quelqu'un saurait il rectifier le code pour eviter ces problemes?
Armojax
Messages postés
1858
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
22 mars 2024
1 528
8 mars 2005 à 14:39
8 mars 2005 à 14:39
Hello Franky4Doigts,
Fais une petite modification dans le code : dans les 2 dernières lignes avant End Sub, remplace "sel" par "ActiveCell", ce qui donne :
Pour les couleurs :
' 3=rouge 4=vert 5=bleu 6=jaune 7=violet
Fais une petite modification dans le code : dans les 2 dernières lignes avant End Sub, remplace "sel" par "ActiveCell", ce qui donne :
Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 41
End Sub
Pour les couleurs :
' 3=rouge 4=vert 5=bleu 6=jaune 7=violet
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 14:51
8 mars 2005 à 14:51
Voici le code que j'ai mis:
Or les problemes enoncés ci dessus persistent encore.
A savoir:
La selection d'un plage de cellules colorées enleve la couleur de la cellule lors de la deselection.
+
Impossibilité de remettre de la couleur par la suite.
Que faire?
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 41
End Sub
Or les problemes enoncés ci dessus persistent encore.
A savoir:
La selection d'un plage de cellules colorées enleve la couleur de la cellule lors de la deselection.
+
Impossibilité de remettre de la couleur par la suite.
Que faire?
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
8 mars 2005 à 17:32
8 mars 2005 à 17:32
Plus de volontaire pour m'aider?
Armojax
Messages postés
1858
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
22 mars 2024
1 528
8 mars 2005 à 21:31
8 mars 2005 à 21:31
Ok, Franky4Doigts, je commence à voir ton PB. D'après ce que tu disais au départ, il s'agissait d'une cellule.
Si je comprends bien, c'est une plage toute entière (éventuellement bigarrée avec plusieurs couleurs) que tu veux restituer dans son état d'origine en désélectionnant.
Ça change tout !
Donc à+ pour le moment.
Armojax.
Si je comprends bien, c'est une plage toute entière (éventuellement bigarrée avec plusieurs couleurs) que tu veux restituer dans son état d'origine en désélectionnant.
Ça change tout !
Donc à+ pour le moment.
Armojax.
Franky4Doigts
Messages postés
100
Date d'inscription
mardi 30 mars 2004
Statut
Membre
Dernière intervention
28 mars 2009
22
9 mars 2005 à 09:37
9 mars 2005 à 09:37
Salut,
Oui c'est ça, en fait j'ai des cellules comportant plusieurs couleurs.
Les cellules sont liées entre elles (cad quand je clique sur A1 cela me renvoye sur C5 par exemple) or vue qu'elles sont deja colorées lors du renvoye (sur C5 dans mon exemple) il faut chercher la nouvelle cellule selectionnée.
Je souhaite donc changer la couleur de la cellule active pour faire voir clairement et rapidement les cellules et par consequent que tout redevienne comme a l'origine apres dans tout les cas (selection d'une cellule ou d'une plage).
J'espere que je suis pas trop confu dans mes propos
Merci de votre aide!
Oui c'est ça, en fait j'ai des cellules comportant plusieurs couleurs.
Les cellules sont liées entre elles (cad quand je clique sur A1 cela me renvoye sur C5 par exemple) or vue qu'elles sont deja colorées lors du renvoye (sur C5 dans mon exemple) il faut chercher la nouvelle cellule selectionnée.
Je souhaite donc changer la couleur de la cellule active pour faire voir clairement et rapidement les cellules et par consequent que tout redevienne comme a l'origine apres dans tout les cas (selection d'une cellule ou d'une plage).
J'espere que je suis pas trop confu dans mes propos
Merci de votre aide!
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
2 sept. 2007 à 23:03
2 sept. 2007 à 23:03
bonjour
1) comment je peux faire pour que mon tableau m'affiche le total de tva encaissement en vert si il est inferieur au décaissement et en rouge si il est sup
Pour faire cela, le plus simple :
choisir "le total de tva encaissement" puis le menu format puis mise en forme conditionnelle
dans la fenêtre choisir à gauche "la formule est" et à droite on met la formule :
et l'on choisis le vert dans la mise en forme, fond ou couleur de police.
il suffit de faire "ajouter" pour mettre en rouge en remplaçant < par >
2) d'afficher automatiquement si c'est tva a payer ou credit de tva a reporter au mois suivant et qu il le fasse automatiquement)
tu crées une cellule "à payer" avec la formle
puis tu crées une cellule "report" avec la formle
3) une macro ca se creer comment et quelle sont les etapes pour mettre les cellules de couleurs
automatiquement suivant les resultats calculés dans ce meme tableau
Une macro c'est de la programmation et dans ton cas je n'ai pas l'impression que tu en ai la nécessité.
1) comment je peux faire pour que mon tableau m'affiche le total de tva encaissement en vert si il est inferieur au décaissement et en rouge si il est sup
Pour faire cela, le plus simple :
choisir "le total de tva encaissement" puis le menu format puis mise en forme conditionnelle
dans la fenêtre choisir à gauche "la formule est" et à droite on met la formule :
=C1<D1 avec C1 "le total de tva encaissement" et D1 le décaissement
et l'on choisis le vert dans la mise en forme, fond ou couleur de police.
il suffit de faire "ajouter" pour mettre en rouge en remplaçant < par >
2) d'afficher automatiquement si c'est tva a payer ou credit de tva a reporter au mois suivant et qu il le fasse automatiquement)
tu crées une cellule "à payer" avec la formle
=SI(C1>D1;C1-D1;0) avec C1 "le total de tva encaissement" et D1 le décaissement
puis tu crées une cellule "report" avec la formle
=SI(C1<D1;D1-C1;0)
3) une macro ca se creer comment et quelle sont les etapes pour mettre les cellules de couleurs
automatiquement suivant les resultats calculés dans ce meme tableau
Une macro c'est de la programmation et dans ton cas je n'ai pas l'impression que tu en ai la nécessité.
je debute dans la déclaration de tva
je suis a la recherche d'un tableau, quasi identique au votre
Pouvez vous me faire parvenir le modele de tableau?
je suis a la recherche d'un tableau, quasi identique au votre
Pouvez vous me faire parvenir le modele de tableau?
J'ai réussi à colorer mes fenêtres actives mais lorsque j'enregistre mon dossier en fin de journée la cellule active colorée s'enregistre colorée et le lendemain lorsque j'ouvre mon dossier active ou pas cette cellule reste colorée ........à la longue mon tableau sera tout bleu...
merci de m'aider
Jean
merci de m'aider
Jean
Pinlinpinpin
Messages postés
5
Date d'inscription
mercredi 11 septembre 2013
Statut
Membre
Dernière intervention
13 septembre 2013
Modifié par Pinlinpinpin le 12/09/2013 à 00:21
Modifié par Pinlinpinpin le 12/09/2013 à 00:21
Bonsoir,
Le code fonctionne très bien,merci a gbinforme mais des que je verrouille certaine cellules et bien j'ai ce message d'erreur,suis sous 2007
Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet.
Si qqu'un peut m'aider svp.
Le code fonctionne très bien,merci a gbinforme mais des que je verrouille certaine cellules et bien j'ai ce message d'erreur,suis sous 2007
Erreur d'exécution 1004
Erreur définie par l'application ou par l'objet.
Si qqu'un peut m'aider svp.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
12 sept. 2013 à 09:14
12 sept. 2013 à 09:14
Bonjour,
Dès que tu verrouilles, tu ne peux accéder aux cellules même par macro sauf à déverrouiller en début de code puis reverrouiller en fin :
Dès que tu verrouilles, tu ne peux accéder aux cellules même par macro sauf à déverrouiller en début de code puis reverrouiller en fin :
Unprotect "mot_depasse_éventuel"
ton code, puis
Protect "mot_depasse_éventuel"
Pinlinpinpin
Messages postés
5
Date d'inscription
mercredi 11 septembre 2013
Statut
Membre
Dernière intervention
13 septembre 2013
12 sept. 2013 à 13:46
12 sept. 2013 à 13:46
Bonjour,
Je n'ai pas tout compris car suis novices mais ce n'est pas grave,merci quand meme.
Je n'ai pas tout compris car suis novices mais ce n'est pas grave,merci quand meme.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
12 sept. 2013 à 18:39
12 sept. 2013 à 18:39
Si tu as pris le code fourni, cela donne :
Sub Worksheet_SelectionChange(ByVal sel As Range)"mot_depasse_éventuel" sera remplacé par ton mot de passe entre guillemets si tu en as un, sinon tu ne mets rien.
If Not old_sel = "" Then
Unprotect "mot_depasse_éventuel"
Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
sel.Interior.ColorIndex = 41
Protect "mot_depasse_éventuel"
End Sub
Pinlinpinpin
Messages postés
5
Date d'inscription
mercredi 11 septembre 2013
Statut
Membre
Dernière intervention
13 septembre 2013
13 sept. 2013 à 11:44
13 sept. 2013 à 11:44
Alors j'ai essayé avec le premier code du post et cela fonctionne à merveille :
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As Range)
Unprotect "mot_depasse_éventuel"
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
sel.Interior.ColorIndex = 41
Protect "mot_depasse_éventuel"
End Sub
Un grand merci pour ton aide ,par contre quand je fais entrer pour me déplacer de cellule en cellule déverrouiller et bien il ne passe pas sur toutes les cellules ?
Public old_color, old_sel
Option Explicit
Sub Worksheet_SelectionChange(ByVal sel As Range)
Unprotect "mot_depasse_éventuel"
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.Interior.ColorIndex
sel.Interior.ColorIndex = 41
Protect "mot_depasse_éventuel"
End Sub
Un grand merci pour ton aide ,par contre quand je fais entrer pour me déplacer de cellule en cellule déverrouiller et bien il ne passe pas sur toutes les cellules ?
Pinlinpinpin
Messages postés
5
Date d'inscription
mercredi 11 septembre 2013
Statut
Membre
Dernière intervention
13 septembre 2013
13 sept. 2013 à 12:12
13 sept. 2013 à 12:12
Enfin si mais il repasse deux fois sur les memes ?
je vient de faire un tableau récap pour calcul de tva déclaration ca3
tva avril
Encaissements
date client TTC encaissé facture origine HT Montant TTC retenu Base ht
5.5 19.6 5.5 19.6 5.5 19.6
20 portal 400 919.73 0 400 0 334.45
20 Geoffroy 149.64 125.12 0 149.64 0 125.12
20 Meridor 2914.65 1437 0 2914.65 0 2437
30 Julien 3294.6 3420 574 2821.11 / 473.49 2674.04/ 395.89
30 Rideau 297 247.43 0 297 0 248.33
Total 2674.04 3540.79
TVA 147.07 693.99
Total TVA 841
Achat Immobilisations
Date Fournisseur TTC facturé TVA facturée
total TVA Immobilisation 0
Achat de biens et services
Date Fournisseur TTC facturé TVA facturée
12 quincaillerie moderne 239.2 39.2
16 imite ancien 1674.4 274.4
22 comptoir 514.88 84.38
30 ebene 1065.89 174.68 Total tva B/S 572.66
Décaissement fournisseurs
date fournisseur TTC facturé TVA facturée TTC décaissée TVA décaissée
10 SCI des bureaux 1495 245 1495 245
30 Calberson 107.64 17.64 107.64 17.64
Total décaissement 262.64
Total à déduire B et S 835
Crédit tva reporté 1200
tva a payer 0
credit de tva 119
le tableau calcul tous seul si je suis en crédit de tva ou si j ai de la tva a payer maintenant je souhaiterais savoir
1) comment je peux faire pour que mon tableau m'affiche le total de tva encaissement en vert si il est inferieur au décaissement et en rouge si il est sup
2) d'afficher automatiquement si c'est tva a payer ou credit de tva a reporter au mois suivant et qu il le fasse automatiquement)
pour finir 3) une macro ca se creer comment et quelle sont les etapes pour mettre les cellules de couleurs automatiquement suivant les resultats calculés dans ce meme tableau
merci pour votre aide c'est ma premiere macro alors plus je lis plus je comprend plus rien
a++
tva avril
Encaissements
date client TTC encaissé facture origine HT Montant TTC retenu Base ht
5.5 19.6 5.5 19.6 5.5 19.6
20 portal 400 919.73 0 400 0 334.45
20 Geoffroy 149.64 125.12 0 149.64 0 125.12
20 Meridor 2914.65 1437 0 2914.65 0 2437
30 Julien 3294.6 3420 574 2821.11 / 473.49 2674.04/ 395.89
30 Rideau 297 247.43 0 297 0 248.33
Total 2674.04 3540.79
TVA 147.07 693.99
Total TVA 841
Achat Immobilisations
Date Fournisseur TTC facturé TVA facturée
total TVA Immobilisation 0
Achat de biens et services
Date Fournisseur TTC facturé TVA facturée
12 quincaillerie moderne 239.2 39.2
16 imite ancien 1674.4 274.4
22 comptoir 514.88 84.38
30 ebene 1065.89 174.68 Total tva B/S 572.66
Décaissement fournisseurs
date fournisseur TTC facturé TVA facturée TTC décaissée TVA décaissée
10 SCI des bureaux 1495 245 1495 245
30 Calberson 107.64 17.64 107.64 17.64
Total décaissement 262.64
Total à déduire B et S 835
Crédit tva reporté 1200
tva a payer 0
credit de tva 119
le tableau calcul tous seul si je suis en crédit de tva ou si j ai de la tva a payer maintenant je souhaiterais savoir
1) comment je peux faire pour que mon tableau m'affiche le total de tva encaissement en vert si il est inferieur au décaissement et en rouge si il est sup
2) d'afficher automatiquement si c'est tva a payer ou credit de tva a reporter au mois suivant et qu il le fasse automatiquement)
pour finir 3) une macro ca se creer comment et quelle sont les etapes pour mettre les cellules de couleurs automatiquement suivant les resultats calculés dans ce meme tableau
merci pour votre aide c'est ma premiere macro alors plus je lis plus je comprend plus rien
a++
11 avril 2012 à 14:43