Sujet Précédent Sujet Suivant

Copier des cellules en gardant la couleur

Résolu/Fermé
jack2125 Messages postés 366 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 15 octobre 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

2 réponses

Réponse 1 / 2
Le Pingou Messages postés 12199 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 21 novembre 2024 1 450
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
1
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 779
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.
1
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 779
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
0