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

Récupérer chaque couleur de police placée dans des cellules d'une autre feuille

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
W

Webperegrino

XLDnaute Accro
Supporter XLD
Bonsoir Le Forum,
J'ai ci-dessous une macro qui fonctionne bien.
Elle me reproduit correctement dans une feuille "Destination" les couleurs des cellules d'un tableau de l'autre "feuille disponibilité".
Toutefois je n'arrive pas à reproduire la couleur de la police des cellules du tableau Source dans les cellules du tableau destination.

J'ai bien essayé avec
Selection.Interior.Bold = 2
ou encore avec Selection.Interior.Bold = True
comme ci-après, mais rien n'y fait. J'ai un message d'erreur.

Avez-vous une possibilité à me proposer ?
Merci
Webperegrino


Sub Indiv()
Range("C2:G13").Select
Selection.Interior.ColorIndex = 2
Selection.Interior.ColorIndex = 2

' C'EST ICI QUE ÇA COINCE !
'Selection.Interior.Bold = True
'Selection.Interior.Bold = True Range("C2").Select

'Pour la suite ça fonctionne
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-1]C[-2],'Feuille disponibilité'!R[3]C[-2]:R[20]C[-1],2)"
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C[-2],'Feuille disponibilité'!R[2]C[-2]:R[19]C,3)"
End Sub
 
Trier par date Trier par votes
Re : Récupérer chaque couleur de police placée dans des cellules d'une autre feuille

Salut Webperegrino et le forum
Utilise les balises de code (icone # en mode avancé).
Code: 
Range("C2:G13").Font.ColorIndex = 2
met en rouge la police de C2:G13
A+
 
Vote positif 0 Vote négatif
Re : Récupérer chaque couleur de police placée dans des cellules d'une autre feuille

Bonsoir,

La propriété Bold s'applique au texte pas à une plage (range)
Alors :

Code: 
Sub Indiv()
Range("C2:G13").Interior.ColorIndex = 2     'Couleur de fond de la cellule
Range("C2:G13").Font.Bold = True        'Texte en gras
Range("C2:G13").Font.ColorIndex = 4     'Couleur de texte

'...

End Sub

(Note : en évitant les .Select c'est plus rapide aussi)
A+
 
Vote positif 0 Vote négatif
Re : Récupérer chaque couleur de police placée dans des cellules d'une autre feuille

Bonjour Le Forum,
Merci à vous Gorfael et Grand Chaman Excel,
J'adopte vos solutions : ça fonctionne PARFAITEMENT.
Merci,
Cordialement
Webperegrino
 
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

K
  • Question Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
322
vgendron
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
1 K
Webperegrino
W
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
362
crocrocro
C
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
P
  • Question Question
XL 2019 Copier des cellules d'une feuille sur une autre
Réponses
2
Affichages
676
phoceenjo
P
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
768
salma_hayek
S
  • Résolu(e)
XL 2021 Récupérer des données de fichiers dons les noms sont renseignés dans des cellules
Réponses
2
Affichages
666
Darkopsix
W
  • Question Question
XL 2016 Bien rapatrier des saisies sur cinq colonnes par jour en feuille voisine
Réponses
9
Affichages
726
Webperegrino
W
H
  • Question Question
XL 2016 Mettre des titres avec une mise en forme spécifique
Réponses
1
Affichages
475
vgendron
W
  • Question Question
XL 2016 Comptabilisation de prénoms rangés en groupes dans des cellules, avec retours à la ligne
Réponses
14
Affichages
1 K
Webperegrino
W
F
  • Question Question
Microsoft 365 Copier un dossier et son contenu puis y enregistrer un classeur. Renommer chaque élément selon des valeurs de cellules
Réponses
1
Affichages
768
Zon
Z
D
  • Question Question
XL 2016 Button copier coller cellules indépendantes VBA autre feuille
Réponses
7
Affichages
1 K
vgendron
D
  • Question Question
Microsoft 365 Mettre à jour les couleurs des cellules sur une page selon des cellules dans une autre page
Réponses
4
Affichages
830
DomGagner
D
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
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
1 K
sum01
S
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
P
  • Question Question
XL 2016 Macro, Copier coller des cellules fusionnées en fonction d'un texte
Réponses
1
Affichages
831
Deadpool_CC
F
  • Question Question
Microsoft 365 copie de données colonne dans des nouveaux onglets
Réponses
5
Affichages
1 K
FCMLE44
F
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…