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

XL 2016 Mise en forme sur un rectangle avec un nom variable

Créer une discussion

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
R

Robinho8991

XLDnaute Nouveau
Bonjour à tous,

Je suis en train de paramétrer une mise en forme pour des rectangles qui correspondent à la date du jour dans mon fichier principal.
Comme il y a beaucoup de rectangles, je les ai nommé de la manière suivante : "rectangle1", rectangle2" etc.

Le but est que dans ma procédure identifie la date d'aujourd'hui et la stock dans une variable i.

J'utilise ensuite cette formule pour colorer le rectangle correspondant : ActiveWorkbook.Sheets("Feuil1").Shapes("Rectangle" & i).Fill.ForeColor.RGB = RGB(255, 153, 0)

Le problème est que le rectangle n'est pas reconnu et donc rien ne marche

je joins un fichier simplifié pour illustrer le problème

Merci d'avance pour vos réponses 🙂
 

Pièces jointes

Solution
Bonjour
j'attire ton attention sur l'espace qui suit "rectangle" et avant le nombre 😉
j'attire ton attention aussi sur le fait que le fill visible de tes rectangle est a false il faut donc remettre le fill visible avant de le colorer
VB: 
Option Explicit

Sub test()
    Dim i As Integer
    i = Day(Date)
    With ActiveWorkbook.Sheets("Feuil1").Shapes("Rectangle " & i)
        .Fill.Visible = True
        .Fill.ForeColor.RGB = RGB(255, 153, 0)
    End With
End Sub
Trier par date Trier par votes
Bonjour
j'attire ton attention sur l'espace qui suit "rectangle" et avant le nombre 😉
j'attire ton attention aussi sur le fait que le fill visible de tes rectangle est a false il faut donc remettre le fill visible avant de le colorer
VB: 
Option Explicit

Sub test()
    Dim i As Integer
    i = Day(Date)
    With ActiveWorkbook.Sheets("Feuil1").Shapes("Rectangle " & i)
        .Fill.Visible = True
        .Fill.ForeColor.RGB = RGB(255, 153, 0)
    End With
End Sub
 
Vote positif 0 Vote négatif
Solution
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

A
  • Question Question
XL 2016 MFC avec plusieurs conditions
Réponses
8
Affichages
109
ALVE
A
M
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle: ne pas colorer une cellule non renseignée
Réponses
6
Affichages
611
Mouss3710
M
  • Résolu(e)
XL 2013 Mise en forme conditionelle Problème avec cellule qui contient une formule
Réponses
3
Affichages
373
Gégé-45550
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
445
vgendron
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
596
casualexcel
C
R
  • Question Question
Microsoft 365 Mise en forme conditionnelle avec date
Réponses
4
Affichages
752
Rambo12
R
J
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur un calendrier créé avec la formule séquence
Réponses
4
Affichages
565
José77
J
K
  • Question Question
Microsoft 365 [Résolue]Mise en forme conditionnelle sur un ensemble de donnée
Réponses
5
Affichages
2 K
chris
  • Question Question
XL 2013 VBA Problème d'insertion d'une formule dans une colonne avec mise en forme de tableau
Réponses
9
Affichages
1 K
Flown720
M
  • Question Question
XL 2010 Mise en forme conditionnelle avec formule
Réponses
3
Affichages
2 K
JHA
J
A
  • Question Question
XL 2019 Mise ne forme conditionnelle couleur texte ligne avec mot exact
Réponses
3
Affichages
4 K
anter
A
L
  • Résolu(e)
Microsoft 365 Macro mise en forme feuille excel
Réponses
2
Affichages
762
Laura01
L
L
  • Résolu(e)
XL 2013 Mise en forme avec jours ouvrés, aujourd'hui, cellule vide et calcul
Réponses
5
Affichages
3 K
Lily78
L
L
  • Question Question
XL 2016 Mise en forme conditionnelle multiples
Réponses
1
Affichages
1 K
JHA
J
U
  • Résolu(e)
XL 2016 Mise ne forme des Date sur une plage variable
Réponses
11
Affichages
1 K
Utilisateur_X
U
A
  • Question Question
XL 2016 Mise en forme conditionnelle avec un ET et un OU
Réponses
3
Affichages
991
Aedia20
A
W
  • Question Question
XL 2010 Mise en forme conditionnelle avec plusieurs conditions
Réponses
8
Affichages
1 K
tintin5356
T
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une cellule en fonction d'une recherche dans un tableau structuré.
Réponses
3
Affichages
1 K
Carnould
D
  • Question Question
XL 2019 Mise en forme conditionnelle en fonction d'une date de contact antérieure
Réponses
4
Affichages
2 K
djidji59430
M
  • Question Question
XL 2019 Mise en forme fonction valeur même cellule autre feuille
Réponses
0
Affichages
495
Magg
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…