griser quand clic

[gotlapal]

Bonjours à tous.
En interrogeant le forum, j'ai obtenu cette macro qui permets de griser les cases de la colonne D dans lesquelles il y a un "X" en cliquant sur un bouton.

Dim Cellule As Range
Sub Formeautomatique1_QuandClic()

For Each Cellule In Range("D35000")
If Cellule.Value = "X" And Cellule.Offset(0, -2) <> "" Then
Cellule.Interior.ColorIndex = 15
Else
Cellule.Interior.ColorIndex = xlNone
End If
Next Cellule
End Sub



Maintenant je cherche à griser toute la ligne, de la colonne "A" à la "G" si il y a un "X" dans la colonne D et je ne sais pas adapter cette macro.

Merci d'avance

 

[Cousinhub]

Re : griser quand clic

Bonsoir, pourquoi une macro?
une Mise en Forme Conditionnelle suffirait
regarde le fichier joint, et dans une cellule quelconque, regarde dans Format/Mise en forme conditionnelle
PS : format mis de A1 à G20

 

[ccpapy]

Re : griser quand clic

bonsoir,
par macro tu remplaces la ligne

Cellule.Interior.ColorIndex = 15

par

Range(Cells(Cellule.Row, 1), Cellule.Offset(0, 3)).Interior.ColorIndex = 15

et ça devrait le faire
à+

 

[Natasha86]

Re : griser quand clic

j'ai le mm probleme mais la formule que vous donnez, elle marche pas sur mon tablo.
merci de m'aidez s'il vous plait.

 

[jmd2]

Re : griser quand clic

Bonjour
relis le post de bhbh
et regarde bien sa mise en forme conditionnelle, inutile de macroter
Simple et efficace !

 

[Natasha86]

Re : griser quand clic

non je peu t joindre mon fichier si tu ve

 

[jmd2]

Re : griser quand clic

Re bonjour

Oui, joins le fichier

et pas de langage SMS s'il te plaît

à tout de suite

 

[Natasha86]

Re : griser quand clic

je peux te le joindre par email. si tu veux car mon fichier est trop gros en fait il rentre pas. donne moi ton adresse email.

 

[jmd2]

Re : griser quand clic

Ce n'est pas une bonne idée. Car le but ets bien que tous les forumeurs profitent des discussions.

A toi de nettoyer ton fichier et de le zipper.

Courage

 

[Natasha86]

Re : griser quand clic

c bon tiens j'ai mis qu'une partie

 

[jmd2]

Re : griser quand clic

re

Regarde le format conditionnel
Pour le copier sur toute la feuille, tu cliques dans A2, et tu copies
Tu sélectionnes ce que tu veux (la feuille si tu veux) et collage spécial/format.

 

[Natasha86]

Re : griser quand clic

Merci ca marche
ca me soulage ca fait 2 semaines que je cherche.

a+

 

[gotlapal]

Re : griser quand clic

Merci ça marche très bien.