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

Copier un format de cellule

  • Initiateur de la discussion Initiateur de la discussion Chris
  • 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 !

C

Chris

Guest
Salut à tous,

J'ai un tableau avec un très grand nombre de valeurs texte dans une colonne.

Je souhaite mettre en évidence certaines de ces cellules en disant par exemple (avec une macro) :

si cellule contient le mot "xxx", alors mettre cette cellule dans le même format que la cellule E1 (couleur de remplissage, de police, en gras ou non...)

si cellule contient le mot "yyy", alors mettre cette cellule dans le même format que la cellule F1

etc etc

C'est une sorte de format conditionnel, mais avec bien plus de 3 possibilitées, qui effectue un genre de copier - format uniquement...
 

Pièces jointes

Salut Chris et Minick,
Très intéressante ta solution Minick, cependant on peut se passer d'une opération de copie/collage spécial en jouant sur les propriétés des cellules.

Par exemple :
'Format de police
Range("B2").Font.Name = Range("A1").Font.Name
Range("B2").Font.Color = Range("A1").Font.Color
Range("B2").Font.Size = Range("A1").Font.Size
'Bordures
Range("B2").Borders.LineStyle = Range("A1").Borders.LineStyle
Range("B2").Borders.Color = Range("A1").Borders.Color
Range("B2").Borders.Weight = Range("A1").Borders.Weight
'Motif
Range("B2").Interior.Color = Range("A1").Interior.Color
'Alignement
Range("B2").HorizontalAlignment = Range("A1").HorizontalAlignment

En revanche, je n'ai pas trouvé le moyen de passer le format complet d'une cellule à une autre en une seule ligne...

A+
LN
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Format de cellule
Réponses
3
Affichages
468
Réponses
11
Affichages
812
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…