colorer une ligne

Le
Pascal
bonjour,
Est-il possible sur le clic d'une cellule (A, B ou C) que toute la ligne se
colore
histoire d'être plus rapide dans la lecture de mes données
merci de m'aider
Pascal
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #16113321
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

Est-il possible sur le clic d'une cellule (A, B ou C) que toute la
ligne se colore
histoire d'être plus rapide dans la lecture de mes données
merci de m'aider



s'inspirer du code là :
http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur
(notament autre version)


--
--
@+
;o)))
Pascal
Le #16113311
Re bonjour
ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
il n'y aurait pas moyen de faire autrement?

private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub



"Pascal" ,com> a écrit dans le message de groupe de
discussion : epBox6$
bonjour,
Est-il possible sur le clic d'une cellule (A, B ou C) que toute la ligne
se colore
histoire d'être plus rapide dans la lecture de mes données
merci de m'aider
Pascal







Modeste
Le #16113291
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

Re bonjour
ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
il n'y aurait pas moyen de faire autrement?

private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub



le pire c'est que ça tue les couleurs pré-existantes :-(

--
--
@+
;o)))
JB
Le #16114361
Bonjour ,

Restitue l'ancienne couleur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Range([mémoAdresse]).Interior.ColorIndex = [mémoCouleur]
If Not Intersect([A1:D20], Target) Is Nothing And Target.Count = 1
Then
ActiveWorkbook.Names.Add Name:="mémoAdresse", RefersToR1C1:="= " &
Chr(34) & Target.Address & Chr(34)
ActiveWorkbook.Names.Add Name:="mémoCouleur", RefersToR1C1:="= " &
Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB


On 12 juil, 11:56, "Modeste"
Bonsour® Pascal  avec ferveur  ;o))) vous nous disiez :

> Re bonjour
> ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
> il n'y aurait pas moyen de faire autrement?

> private Sub Worksheet_SelectionChange(ByVal Target As Range)
>    Application.EnableEvents = False
>    Cells.Interior.ColorIndex = xlNone
>    Target.EntireRow.Interior.ColorIndex = 35
>    Application.EnableEvents = True
> End Sub

le pire c'est que ça tue les couleurs pré-existantes  :-(

--
--
@+
;o)))


Jacquouille
Le #16121751
Et, sans tuer personne.
Si la volonté du demandeur ne porte que sur les cel A, B ou C, autant aller
un rien à gauche et sélectionner toute la ligne en cliquant sur le Num de
ligne.....

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Modeste"
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

Re bonjour
ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
il n'y aurait pas moyen de faire autrement?

private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub



le pire c'est que ça tue les couleurs pré-existantes :-(

--
--
@+
;o)))
JB
Le #16129171
http://cjoint.com/?hmpRCS7wfT

JB

On 12 juil, 12:11, JB
Bonjour ,

Restitue l'ancienne couleur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   On Error Resume Next
   Range([mémoAdresse]).Interior.ColorIndex = [mémoCouleur]
   If Not Intersect([A1:D20], Target) Is Nothing And Target.Count = 1
Then
     ActiveWorkbook.Names.Add Name:="mémoAdresse", RefersToR1C1 :="=" &
Chr(34) & Target.Address & Chr(34)
     ActiveWorkbook.Names.Add Name:="mémoCouleur", RefersToR1C1 :="=" &
Target.Interior.ColorIndex
     Target.Interior.ColorIndex = 6
   End If
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

On 12 juil, 11:56, "Modeste"


> Bonsour® Pascal  avec ferveur  ;o))) vous nous disiez :

> > Re bonjour
> > ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
> > il n'y aurait pas moyen de faire autrement?

> > private Sub Worksheet_SelectionChange(ByVal Target As Range)
> >    Application.EnableEvents = False
> >    Cells.Interior.ColorIndex = xlNone
> >    Target.EntireRow.Interior.ColorIndex = 35
> >    Application.EnableEvents = True
> > End Sub

> le pire c'est que ça tue les couleurs pré-existantes  :-(

> --
> --
> @+
> ;o)))- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Pascal
Le #16200131
hello jacquouille,
non la volonté du demandeur porte sur A1:W200
merci à toi


"Jacquouille" groupe de discussion :
Et, sans tuer personne.
Si la volonté du demandeur ne porte que sur les cel A, B ou C, autant
aller un rien à gauche et sélectionner toute la ligne en cliquant sur le
Num de ligne.....

--
Bien amicalmement,
"Le vin est au repas ce que le parfum est à la femme."

Jacquouille.

"Modeste"
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

Re bonjour
ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
il n'y aurait pas moyen de faire autrement?

private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub



le pire c'est que ça tue les couleurs pré-existantes :-(

--
--
@+
;o)))




Pascal
Le #16219471
> le pire c'est que ça tue les couleurs pré-existantes :-(



c'est clair! mais n'ai rien trouvé de mieux
merci à toi



"Modeste" discussion :
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

Re bonjour
ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
il n'y aurait pas moyen de faire autrement?

private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub



le pire c'est que ça tue les couleurs pré-existantes :-(

--
--
@+
;o)))



Pascal
Le #16219461
merci pour cette solution


"JB" discussion :

http://cjoint.com/?hmpRCS7wfT

JB

On 12 juil, 12:11, JB
Bonjour ,

Restitue l'ancienne couleur:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Range([mémoAdresse]).Interior.ColorIndex = [mémoCouleur]
If Not Intersect([A1:D20], Target) Is Nothing And Target.Count = 1
Then
ActiveWorkbook.Names.Add Name:="mémoAdresse", RefersToR1C1:="=" &
Chr(34) & Target.Address & Chr(34)
ActiveWorkbook.Names.Add Name:="mémoCouleur", RefersToR1C1:="=" &
Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

On 12 juil, 11:56, "Modeste"


> Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

> > Re bonjour
> > ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
> > il n'y aurait pas moyen de faire autrement?

> > private Sub Worksheet_SelectionChange(ByVal Target As Range)
> > Application.EnableEvents = False
> > Cells.Interior.ColorIndex = xlNone
> > Target.EntireRow.Interior.ColorIndex = 35
> > Application.EnableEvents = True
> > End Sub

> le pire c'est que ça tue les couleurs pré-existantes :-(

> --
> --
> @+
> ;o)))- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -





rthompson
Le #16321461
Bonjour

Et je réponds très tard
Si tu es toujours à la recherche d'une solution je te propose le site de
Gaetan Mourmant []

www.Polykromy.com

Il m'a envoyer un truc qui fait exactement ce que tu veux

Comme c'est un cadeau suite à une commande, je ne peux pas le partager dans
ce groupe

Ce qu'il fait est, au choix, sousligné, encadrer la ligne et/ou la colonne

Rapide et efficace

A bientôt

Rex


"Pascal" ,com> a écrit dans le message de news:

le pire c'est que ça tue les couleurs pré-existantes :-(



c'est clair! mais n'ai rien trouvé de mieux
merci à toi



"Modeste" discussion :
Bonsour® Pascal avec ferveur ;o))) vous nous disiez :

Re bonjour
ai trouvé ceci mais..........d'une lenteur monumentale !!!!!
il n'y aurait pas moyen de faire autrement?

private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
Cells.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 35
Application.EnableEvents = True
End Sub



le pire c'est que ça tue les couleurs pré-existantes :-(

--
--
@+
;o)))






Publicité
Poster une réponse
Anonyme