Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

griser quand clic

G

gotlapal

XLDnaute Junior
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
 
Trier par date Trier par votes

Cousinhub

XLDnaute Barbatruc
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
 

Pièces jointes

  • gotlapal.zip
    1.6 KB · Affichages: 40
Vote positif 0 Vote négatif
C

ccpapy

XLDnaute Impliqué
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
à+
 
Vote positif 0 Vote négatif
J

jmd2

XLDnaute Accro
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.
 

Pièces jointes

  • Copie de base.xls
    27.5 KB · Affichages: 147
  • Copie de base.xls
    27.5 KB · Affichages: 146
  • Copie de base.xls
    27.5 KB · Affichages: 146
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
XL 2016 Un chronomètre qui affiche TOUTES les secondes pendant la durée d'un traitement
Réponses
14
Affichages
430
crocrocro
C
D
  • Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
233
fanch55
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
154
eric72
E
T
  • Résolu(e)
Microsoft 365 optimisation d'un programme en utilisant la fonction Array
Réponses
5
Affichages
234
Thomas_1
T
  • Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
466
patricktoulon
R
  • Résolu(e)
XL 2019 Plusieurs Worksheet_Change sur la même feuille
Réponses
9
Affichages
326
Rabeto
R
C
  • Résolu(e)
XL 2021 Alimenter Listbox si colonne 3 contient un mot précis
Réponses
5
Affichages
244
Claudinedu13
C
A
  • Résolu(e)
Microsoft 365 Vider des listes déroulantes en cascade
Réponses
6
Affichages
326
Franc58
F
N
  • Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
155
Nathan027
N
N
  • Résolu(e)
Microsoft 365 Ajouter une condition dans une VBA
Réponses
2
Affichages
211
Nathan027
N
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…