> Tous les forums > Forum Bureautique
 colorier colonneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
jemiyo
  Posté le 17/05/2019 @ 17:35 
Aller en bas de la page 
Petit astucien

Bonjour.
Je voudrais colorier une colonne entière si ma cellule est active.

Bonne soirée

[Configuration automatique à compléter]
Windows 8.1
Firefox 66.0

Publicité
vieuxmonsieur
 Posté le 17/05/2019 à 21:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

jemiyo
 Posté le 17/05/2019 à 23:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir "Vieuxmonsieur"

Merci, mais j'avais trouvé ce lien ainsi que des solutions sur "boisgontier".

Par contre cela donne la ligne et la colonne ou dans certaines solutions la ligne.

Moi je recherche une solution pour colorier "que la colonne" de la cellule active.

Bonne nuit.

jpr73
 Posté le 18/05/2019 à 10:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Une solution avec une mise en forme conditionnelle

- Sélectionner la cellule A1

- Sélectionner toutes les cellules de la feuille : carré en haut à gauche à l'intersection des lignes et des colonnes

- Créer une mise en forme conditionnelle en utilisant une formule

- Formule =CELLULE("colonne")=CELLULE("colonne";A1)

- Appliquer le format désiré

Quand on sélectionne une autre cellule il y a un problème de rafraîchissement qui disparaît lorsque on se déplace dans la feuille

Source : http://www.tushar-mehta.com/publish_train/xl_vba_cases/0121%20highlight%20row%20and%20col%20of%20selected%20cell.shtml

Cordialement

jemiyo
 Posté le 18/05/2019 à 14:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour.

J'ai bien trouvé cette formule :

Private Sub Worksheet_SelectionChange(ByVal Target _

As Excel.Range)

Cells.Interior.ColorIndex = xlNone

With ActiveCell

.EntireRow.Interior.ColorIndex = 35

.EntireColumn.Interior.ColorIndex = 35

End With

End Sub

Par contre, cela colorie bien la colonne (comme je le souhaite), mais également la ligne (ce que je ne veux pas).

A JPR73, je ne suis pas arrivé avec ta solution.

Cordialement.

jemiyo
 Posté le 18/05/2019 à 15:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Rebonjour.

J'ai mis pour l'instant cette solution qui me mets la ligne en blanc.

Mais si on peux me donner une solution sans la ligne, je suis preneur.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

Application.ScreenUpdating = False

' Clear the color of all the cells

Cells.Interior.ColorIndex = 0

With Target

' Highlight the entire row and column that contain the active cell

.EntireRow.Interior.ColorIndex = 2

.EntireColumn.Interior.ColorIndex = 8

End With

Application.ScreenUpdating = True

End Sub

jemiyo
 Posté le 18/05/2019 à 16:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Re

Solution trouvé avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Effacer la couleur de toutes les cellules
Cells.Interior.ColorIndex = 0
With Target
' Mettez en surbrillance toute la ligne et la colonne contenant la cellule active
.EntireColumn.Interior.ColorIndex = 24
End With
Application.ScreenUpdating = True
End Sub

vieuxmonsieur
 Posté le 18/05/2019 à 19:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour jemiyo

Merci pour cette info et ton retour

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique