Mise en forme de la ligne en selectionnant une celulle

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion gourdin
  • 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'inscrire
gourdin

gourdin

XLDnaute Impliqué
Je souhaite en cliquant sur une cellule que l’ensemble de la Ligne concernée d’un tableau se mette en forme d’une façon particulière.

Exemple :
En cliquant sur une cellule de la première colonne d’un tableau l’ensemble de la ligne du tableau se met en gras, en fond rouge avec police blanche.

Merci
 
Trier par date Trier par votes
Re : Mise en forme de la ligne en selectionnant une celulle

Bonjour gourdin,

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A1:A26")) Is Nothing Then
With Range(ActiveCell, ActiveCell.Offset(0, 6))
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
.Font.Bold = True
End With
End If
End Sub
Il faut adapter la plage A1:A26 à ton cas, puis ActiveCell.Offset également.
Ecrit tel quel la macro s'applique de A à G


Edit: Au fait la macro fonctionne avec double click.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Mise en forme de la ligne en selectionnant une celulle

alex67800 à dit:
Bonjour gourdin,

Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("A1:A26")) Is Nothing Then
With Range(ActiveCell, ActiveCell.Offset(0, 6))
.Interior.ColorIndex = 3
.Font.ColorIndex = 2
.Font.Bold = True
End With
End If
End Sub
Il faut adapter la plage A1:A26 à ton cas, puis ActiveCell.Offset également.
Ecrit tel quel la macro s'applique de A à G


Edit: Au fait la macro fonctionne avec double click.
Cliquez pour agrandir...

Merci beaucoup,

Mais je n'ai pas été assez précis dans ma demande.

En fait il s'agit de modifier la mise en forme de la ligne du tableau mais celle ci redevient comme précédemment quand on change de cellule dans une autre ligne.

Bref la ligne change uniquement quand une cellule de cette ligne est sélectionnée.
 
Vote positif 0 Vote négatif
Re : Mise en forme de la ligne en selectionnant une celulle

Bonsoir gourdin,

En cliquant sur une cellule de la première colonne d’un tableau l’ensemble de la ligne du tableau se met en gras, en fond rouge avec police blanche.
Cliquez pour agrandir...
Le code répond bien à ce que tu demandais!
En fait il s'agit de modifier la mise en forme de la ligne du tableau mais celle ci redevient comme précédemment quand on change de cellule dans une autre ligne.

Bref la ligne change uniquement quand une cellule de cette ligne est sélectionnée.
Cliquez pour agrandir...
😕😕😕😕

Sinon à rajouter après le code que je t'ai proposé:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range
Set plage = Range("A1:G26")

With plage
.Interior.ColorIndex = 0
.Font.ColorIndex = 2
.Font.Bold = False
End With

End Sub
Dès que tu change de cellule la ligne reprend sa forme initiale.
En fait j'inverse la mise en forme précédente.

Un fichier avec ce que tu voudrais serait bien.

A te lire!😉
 
Vote positif 0 Vote négatif
Re : Mise en forme de la ligne en selectionnant une celulle

Re,
Sinon il existe ceci, mais qui fonctionne que pour la cellule active:

Code: 
Public old_color, old_sel
Option Explicit
Private 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

La source vient d'ici:
Couleur d'une cellule active Excel?

Quelqu'un saura peut-être l'adapter!
 
Vote positif 0 Vote négatif
Re : Mise en forme de la ligne en selectionnant une celulle

BOISGONTIER à dit:
Bonjour,

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

JB
Cliquez pour agrandir...

Merci à tous,
La macro fournie (cf ci-après) par BOISGONTIER est parfaite car elle modifie bien, quand on selectionne une seule cellule, la ligne en rouge mais je souhaite également que la police devienne blanche et en gras.
J'ai bien essayé de "bricoler" la macro mais elle est trop compliquée pour mon niveau
Je n'y suis pas arrivé
Merci encore de votre aide

Macro de BOISGONTIER :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [A1😀20]
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 = 3
Next i
End If
End Sub
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

C
  • Question Question
XL 2019 Clic cellule
Réponses
5
Affichages
198
Caller
C
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
L
  • Question Question
XL 2021 RechercheX et Mise en forme conditionnelle
2
Réponses
17
Affichages
413
Lucie85
L
L
  • Question Question
Autres Mise en forme de 10 données
Réponses
4
Affichages
256
lepiouf
L
P
  • Question Question
Microsoft 365 mise en forme professionnelle tableau excel
Réponses
5
Affichages
235
sylvanu
sylvanu
Tony44
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
812
Cousinhub
Cousinhub
frederio
  • Question Question
XL 2019 Mise en forme conditionnelle la couleur
Réponses
1
Affichages
231
TooFatBoy
TooFatBoy
P
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle
Réponses
2
Affichages
403
Payne
P
E
  • Question Question
XL 2016 Mise en forme conditionnelle conservée après actualisation d'un TCD
Réponses
1
Affichages
331
chris
chris
L
  • Question Question
XL 2021 Mise en forme conditionnelle à partir d'autre colonne
Réponses
7
Affichages
356
CHRIS1945
C
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
367
Piment
P
A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
316
TooFatBoy
TooFatBoy
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
648
TooFatBoy
TooFatBoy
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
635
mimednejma
M
R
  • Question Question
Microsoft 365 Ecrire un texte dans une cellule sous condition et changer couleur ligne
Réponses
4
Affichages
213
Rikko14
R
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
302
chrislecycliste
C
C
  • Question Question
Microsoft 365 Difficulté avec la concatenation en conservant la mise à forme
Réponses
5
Affichages
590
laurent950
laurent950
G
  • Question Question
XL 2016 Calcul en boucle de valeurs cibles
Réponses
6
Affichages
408
job75
job75
W
  • Question Question
Autres Inserer automatiquement une ligne avec même mise en forme après avoir valider mes données
Réponses
11
Affichages
506
walki
W
L
  • Résolu(e)
XL 2019 mise en forme conditionnelle
Réponses
6
Affichages
300
litchoutsou
L
Retour