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

imposer une couleur dans une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion mumu
  • 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
M

mumu

XLDnaute Occasionnel
bonjour,

Je bafouille en VBA et je me suis lancée dans une macro (doc joint) toute simple mais je bute sur la fin.
Je voudrais que dans ma colonne B, les "dimanche et samedi" soit grisés ainsi que la cellule de la colonne A. S'il trouve un dimanche en B7, il colore (gris par exemple) A7 et B7
Je sais que ma macro va en faire sourire plus d'un, mais j'aimerais que vous me guidiez à partir de la mienne et non me trouver la solution (plus simple je pense) avec des lignes plus complexes pour mon petit cerveau......

Merci à celle ou celui qui prendra un peu de temps pour si peu.....

Muriel.
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : imposer une couleur dans une cellule

bonjour

le plus simple dans ces cas c'est de passer par une boucle for each, je te donne un exemple appliqué à ton classeur :

Code: 
For Each c In Range("b2:b" & Range("b65536").End(xlUp).Row)
        'pour chaque cellule de la plage B2:Bn (n etant la derniere cellule non
        'vide de la colonne B)
        If c = "dimanche" Or c = "samedi" Then ' si c="dimanche" ou "samedi" alors...
            c.Interior.ColorIndex = 15 'colore la cellule en gris
            c.Offset(0, -1).Interior.ColorIndex = 15 'colore la cellule à gauche en gris
        End If 'fin de condition
    Next c 'prochaine cellule
pense à supprimer ta ligne "'Selection.Find What:="dimanche", Find.Interior.ColorIndex = 15"

salut
 
Vote positif 0 Vote négatif
Re : imposer une couleur dans une cellule

bonjour muriel

pour bien utiliser find (et findnext ) je me reporte toujours a l'aide :
exemple de findnext
un copier/coller et une adaptation du range et de la valeur a trouver et c'est parti !!

seul ajout : lookat:=xlwhole
qui permet de n'avoir que la valeur exacte (pour valeur approchée :lookat:=part)

edit:

comme les carabiniers
Salut Hervé 🙂
Salut banzai 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : imposer une couleur dans une cellule

Merci Hervé, Banzai64 et pierrejean !

J'ai regardé les 3 solutions et franchement j'aurais pas trouvé toute seule. J'avais bien tenté de taper "f1" sur Find mais j'ai un peu de mal à comprendre l'aide, c'est encore un peu trop charabia pour moi.
Mais vos explications sont claires et je vais pouvoir avancer, c'est bien d'avoir plusieurs solutions comme ça !

Merci encore !!!!

@ + Muriel.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
1 K
dysorthographie
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
500
sylvanu
Y
  • Question Question
XL 2019 Mettre en couleur une cellule selon une condition dans une autre colonne
Réponses
1
Affichages
599
TooFatBoy
J
  • Question Question
Autres implementer une donnée provenant d'un importxml; jours après jours dans une cellule différente
Réponses
0
Affichages
408
Julien.D
J
U
  • Question Question
Autres [RÉSOLU] Problème de couleur dans certaines cellules
Réponses
3
Affichages
801
Hasco
S
  • Résolu(e)
Microsoft 365 VBA pour copier/coller une plage de cellule dans un autre onglet en fonction de la date
Réponses
8
Affichages
1 K
Sylvain. B
S
N
  • Résolu(e)
XL 2016 tableau de vente/gestion des stocks boutique : quelles formules ?!
2
Réponses
17
Affichages
3 K
Noëllie
N
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
G
  • Résolu(e)
XL 2016 MFC applicables à la cellule indiqué dans une autre cellule
Réponses
4
Affichages
780
gael60
G
S
  • Résolu(e)
XL 2019 [ VBA ]Ajouter un commentaire dans chaque cellule
Réponses
13
Affichages
1 K
SamSam84
S
M
  • Question Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
S
  • Question Question
XL 2016 Cellule change de couleur si la valeur existe dans une autre cellule d'un autre onglet
Réponses
12
Affichages
2 K
sum01
S
S
  • Question Question
Microsoft 365 Sélectionner la même cellule que la cellule active dans une autre feuille
Réponses
2
Affichages
1 K
ShrekL
S
K
  • Résolu(e)
Microsoft 365 Exclure des valeurs d'une sélection dans une formule
2
Réponses
15
Affichages
2 K
Deadpool_CC
C
  • Résolu(e)
Microsoft 365 SI remplissage cellule (MFC) ALORS transposer la réponse dans une colonne
Réponses
3
Affichages
2 K
Chaine
C
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
5 K
jo77
J
P
  • Question Question
XL 2016 Contrôle de texte contenu dans une cellule
Réponses
1
Affichages
704
pierrof
P
A
  • Question Question
Microsoft 365 Problème, ma macro change la plage de cellule dans une autre feuille
Réponses
6
Affichages
2 K
akira21
A
E
  • Résolu(e)
XL 2013 [VBA] Check contenu d'une cellule dans une autre feuille avec un retour via MsgBox
Réponses
10
Affichages
1 K
Eawyne
E
P
  • Résolu(e)
XL 2019 supprimer la couleur d'une cellule dès que je clique dans une autre cellule
Réponses
2
Affichages
884
pat66
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…