Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

colorier cellule active

  • Initiateur de la discussion Initiateur de la discussion skalex
  • Date de début Date de début

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 !

S

skalex

Guest
rebonjour
Je recherche une macro qui colorie la cellule active et la remet à sa couleur d'origine une fois qu'elle n'est lus séléctionée, tout ca sans changer la couleur des autres cellules.

J'avais trouvé ce lien https://www.excel-downloads.com/threads/cellule-en-couleur-si-selectionnee.34886/ mais la seul macro qui allait était à télécharger est elle n'est plus dispo.

Les autres posts parlant de ca, quand je copie la macro il me dit lorsque je l'active:
nom ambigu detecté: Worksheet_SelectionChange
sur cette ligne:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range
si quelqu'un à une idée?
merci
alex
 
Re : colorier cellule active

ben c'était pour les 2 à la base, mais la première page ca pose problème et ce n'est pas si grave donc je ne l'ai fait que pour la 2eme
j'ai trouvé une macro pour colorer la ligne complète, c'est encore plus visible:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A1:M2000]
col1 = champ.Column
col2 = champ.Column + champ.Columns.Count - 1
On Error Resume Next
If [mémoAdresse1] <> "" Then
For i = col1 To col2
x = "mémoAdresse" & i
a = Evaluate([x])
x = "mémoCouleur" & i
b = Evaluate([x])
Range(a).Interior.ColorIndex = b
Next i
End If
ActiveWorkbook.Names.Add Name:="mémoAdresse1", RefersToR1C1:=""
If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
ActiveWorkbook.Names.Add Name:="mémoLigne", RefersToR1C1:="=" & Chr(34) & Target.Row & Chr(34)
For i = col1 To col2
ActiveWorkbook.Names.Add Name:="mémoAdresse" & i, RefersToR1C1:= _
"=" & Chr(34) & Cells(Target.Row, i).Address & Chr(34)
ActiveWorkbook.Names.Add Name:="mémoCouleur" & i, RefersToR1C1:= _
"=" & Cells(Target.Row, i).Interior.ColorIndex
Cells(Target.Row, i).Interior.ColorIndex = 6
Next i
End If
End Sub
 
Re : colorier cellule active

Code:
Re : envoie automatique sur page 2
Citation:
Envoyé par skalex Voir le message

j'ai une toute dernière question: peut on mette en option double clique plutôt que simple click?
merci

Bien sûr, et tu peux aussi le faire avec un doubleclick.

Sur le fichier ci-joint, tu as les deux possibilités.

Bonsoir skalex,

Tu as créé un nouveau fil pour ton sujet, mais je voudrais apporter une rectification sur ma réponse de ce matin. Je voulais dire :

"Bien sûr, et tu peux aussi le faire avec un click droit."

Quant au problème soulevé dans ce fil, si tu peux te contenter de ne changer que la couleur de texte de tes cellules, je t'envoie le fichier modifié qui le fait : il colore en rouge le texte de la ligne active de la feuille STOCK et COMMANDES, et les remet en noir lorsque tu quittes la feuille (pour changer la couleur de fond des cellules, c'est plus compliqué car il y a des couleurs différentes).

Bonne soirée.

Cordialement.
 

Pièces jointes

Dernière édition:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

S
Réponses
7
Affichages
2 K
syriak
S
M
Réponses
4
Affichages
1 K
mychoufleur
M
Réponses
5
Affichages
1 K
W
Réponses
2
Affichages
1 K
whyaremacroscomplex
W
C
Réponses
0
Affichages
20 K
Clem34
C
K
Réponses
6
Affichages
2 K
kevinL2
K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…