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 colorer une cellule

colorer une cellule

9 réponses
Avatar
alex.v.nNOSPAM
Bonjour à tous,
y a t-il moyen lorsque je clique sur une cellule que celle-ci se colore
automatiquement, puis, si je clique sur une autre, la première
"s'éteind" et c'est la deuxième qui se colore à son tour ?

--
Plongeur fou
Signaler un problème avec ce contenu

9 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
Avatar
alex.v.nNOSPAM
"ru-th" wrote:

essaies
dans le module de la feuille concernée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub



Merci à vous deux, mais sans un pas à pas, je n'y arrive pas, malgré qqs
essais...

--
Plongeur fou

Avatar
ru-th
Salut Alex

essaies
dans le module de la feuille concernée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub

a+
rural thierry

"alex" a écrit dans le message de news:
1g3wa7e.1klol941o7487oN%
Bonjour à tous,
y a t-il moyen lorsque je clique sur une cellule que celle-ci se colore
automatiquement, puis, si je clique sur une autre, la première
"s'éteind" et c'est la deuxième qui se colore à son tour ?

--
Plongeur fou


Avatar
gb
Bonjour

Essaie cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static r As Range
On Error Resume Next
r.Interior.ColorIndex = xlNone
Set r = Target
r.Interior.ColorIndex = 6
End Sub


Bonjour à tous,
y a t-il moyen lorsque je clique sur une cellule que celle-ci se colore
automatiquement, puis, si je clique sur une autre, la première
"s'éteind" et c'est la deuxième qui se colore à son tour ?

--
Plongeur fou


Avatar
alex.v.nNOSPAM
"ru-th" wrote:

re-





et ta feuille est opérationnelle


Merci, vais voir ça de ce pas.
A+

--
Plongeur fou

Avatar
ru-th
re-

alt+f11 pour aller dans l'éditeur VBA
En haut à gauche, la fenêtre vba project, double clic sur ton fichier, et
double clic sur la feuille concernée,
dans la grande fenêtre centrale, tu vois en haut "général" dans une liste
déroulante, dans cette liste tu selectionnes l'autre élément worksheet
l'évenement par défaut s'affiche
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

colles-y les 2 lignes suivants
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
entre le private sub
et le end sub


et ta feuille est opérationnelle

a+
rural thierry

"alex" a écrit dans le message de news:
1g3wcyd.1swaqc8x9ej28N%
"ru-th" wrote:

essaies
dans le module de la feuille concernée
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 5
End Sub



Merci à vous deux, mais sans un pas à pas, je n'y arrive pas, malgré qqs
essais...

--
Plongeur fou



Avatar
alex.v.nNOSPAM
"ru-th" wrote:

alt+f11 pour aller dans l'éditeur VBA
En haut à gauche, la fenêtre vba project, double clic sur ton fichier, et
double clic sur la feuille concernée,
dans la grande fenêtre centrale, tu vois en haut "général" dans une liste
déroulante, dans cette liste tu selectionnes l'autre élément worksheet
l'évenement par défaut s'affiche
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Super, ça marche impec :))
Ca m'amène deux questions, sans vouloir abuser ;)
Comment faire pour que ça fonctionne sur tous mes fichiers excel ?
N'y a t-il pas moyen de sauvegarder les cellules colorées, parce que là,
ça m'enlève toutes les cellules qui avaient une couleur de fond par ex.
?
En tout cas, un grand merci

--
Plongeur fou

Avatar
alex.v.nNOSPAM
"ru-th" wrote:

dans un classeur vierge, enregistrer comme modèle sous le nom de
classeur.xlt ou class.xlt suivant la version d'excel dans le répertoire
xlouvrir ou xlstar.


Un grand merci
Cordialement,

--
Plongeur fou

Avatar
ru-th
re-
N'y a t-il pas moyen de sauvegarder les cellules colorées, parce que là,
ça m'enlève toutes les cellules qui avaient une couleur de fond par ex.
?
prends la macro de gb elle te fera cela


Comment faire pour que ça fonctionne sur tous mes fichiers excel ?
tu peux mettre cette macro dans le module ThisWorbook

dans l'évenement Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target As Range)
dans un classeur vierge, enregistrer comme modèle sous le nom de
classeur.xlt ou class.xlt suivant la version d'excel dans le répertoire
xlouvrir ou xlstar. Ce classeur deviendra ton classeur par défaut. Mais,
cela ne risquet'il pas d'être énervant à la longue ?
a+
rural thierry


"alex" a écrit dans le message de news:
1g3wn9g.xcvayi16w8f1cN%
"ru-th" wrote:

alt+f11 pour aller dans l'éditeur VBA
En haut à gauche, la fenêtre vba project, double clic sur ton fichier,
et


double clic sur la feuille concernée,
dans la grande fenêtre centrale, tu vois en haut "général" dans une
liste


déroulante, dans cette liste tu selectionnes l'autre élément worksheet
l'évenement par défaut s'affiche
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Super, ça marche impec :))
Ca m'amène deux questions, sans vouloir abuser ;)
Comment faire pour que ça fonctionne sur tous mes fichiers excel ?
En tout cas, un grand merci

--
Plongeur fou



Avatar
gb
Bonjour.
Il faudrait modifier cette macro ainsi pour garder en mémoire la couleur
originale de la cellule:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static r As Range
Static intColorIndex
On Error Resume Next
r.Interior.ColorIndex = intColorIndex
Set r = Target
intColorIndex = r.Interior.ColorIndex
r.Interior.ColorIndex = 6

End Sub

"ru-th" wrote in message
news:
re-
N'y a t-il pas moyen de sauvegarder les cellules colorées, parce que là,
ça m'enlève toutes les cellules qui avaient une couleur de fond par ex.
?
prends la macro de gb elle te fera cela


Comment faire pour que ça fonctionne sur tous mes fichiers excel ?
tu peux mettre cette macro dans le module ThisWorbook

dans l'évenement Private Sub Workbook_SheetSelectionChange(ByVal Sh As
Object, ByVal Target As Range)
dans un classeur vierge, enregistrer comme modèle sous le nom de
classeur.xlt ou class.xlt suivant la version d'excel dans le répertoire
xlouvrir ou xlstar. Ce classeur deviendra ton classeur par défaut. Mais,
cela ne risquet'il pas d'être énervant à la longue ?
a+
rural thierry


"alex" a écrit dans le message de news:
1g3wn9g.xcvayi16w8f1cN%
"ru-th" wrote:

alt+f11 pour aller dans l'éditeur VBA
En haut à gauche, la fenêtre vba project, double clic sur ton fichier,
et


double clic sur la feuille concernée,
dans la grande fenêtre centrale, tu vois en haut "général" dans une
liste


déroulante, dans cette liste tu selectionnes l'autre élément worksheet
l'évenement par défaut s'affiche
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Super, ça marche impec :))
Ca m'amène deux questions, sans vouloir abuser ;)
Comment faire pour que ça fonctionne sur tous mes fichiers excel ?
En tout cas, un grand merci

--
Plongeur fou