colorier cellule active

[skalex]

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

 

[skalex]

Re : colorier cellule active

d'accord. si j'ai besoin des deux, il y a une solution?
j'a regardé et l'autre macro est celle qui me permet de cliqué sur une case et d'ëtre renvoyé sur la mëme case en page 2
https://www.excel-downloads.com/threads/envoie-automatique-sur-page-2.132195/
c'est celle qu'on m'a donné ce matin

 

[skalex]

Re : colorier cellule active

ok. ca devient compliqué!
voila l'exemple de tout à l'heure
je te remercie
alex

 

[skalex]

Re : colorier cellule active

pour le double click c'est bon!

 

[skalex]

Re : colorier cellule active

bon ben j'ai beau essayer, quand je touche a la macro après il n'y a plus rien qui va!

 

[skalex]

Re : colorier cellule active

c'est bon j'ai trouvé! il suffit de perseverer!

 

[skalex]

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

 

[Papou-net]

Re : colorier cellule active

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.

 

[skalex]

Re : colorier cellule active

impec merci papou-net