Copier des cellules en gardant la couleur

Résolu/Fermé

jack2125 Messages postés 336 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 26 avril 2024 - 29 avril 2020 à 17:45
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 30 avril 2020 à 11:44

bonjour à tous
un bloc de 5 cellules A117:E117 remplie de nombres avec des couleurs différentes (jaune ou bleu) dans la page "jeux"
je veux recopier ces 5 cellules dans la page "résultats" dans les cellules B4:F4 en gardant les valeurs et leur couleur (jaune ou bleu)
je précise que chaque cellule peut avoir une de ces 2 couleur , mais pas forcément toutes identiques

si vous pouvez me donner un coup de main
merci d'avance
jacques

A voir également:

Copier des cellules en gardant la couleur
Excel additionner des cellules - Guide
Excel cellule couleur si condition texte - Guide
Copier une vidéo youtube - Guide
Verrouiller des cellules excel - Guide
Somme si couleur - Guide

2 réponses

Réponse 1 / 2

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
29 avril 2020 à 23:31

Bonjour,
Peut-être une solution dans ce poste:
https://forums.commentcamarche.net/forum/affich-36612952-extraire-des-donnes-par-couleurs#4

Réponse 2 / 2

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
30 avril 2020 à 11:36

Bonjour,

Pour copier les formats et le valeurs, comme ça :

Option Explicit
Sub Test()
Dim r As Range
Dim c As Range
  With ActiveSheet
    Set r = .Range("A117:E117")
    Set c = .Range("B4")
    r.Copy c
    c.Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
  End With
End Sub

Mais si tu ne veux que les couleurs et les valeur, il faut copier la couleur cellule par cellule.

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
30 avril 2020 à 11:44

Comme ça :

Sub Test()
Dim r As Range
Dim c As Range
Dim x As Range
  With ActiveSheet
    Set r = .Range("A117:E117")
    Set c = .Range("B4").Resize(r.Rows.Count, r.Columns.Count)
    For Each x In c.Cells
      x.Interior.Color = r.Cells(x.Row - c.Row + 1, x.Column - c.Column + 1).Interior.Color
    Next x
    c.Value = r.Value
  End With
End Sub

Discussions similaires

Dessiner avec son clavier et avec des lettres

Si couleur, alors...

Discussions similaires

Newsletters