Discussion :

[antoine2933]

Bonjour tout le monde,

j'ai une petite question concernant un copier/coller de valeur et de contenu.
je voudrais pouvoir copier le contenu d'une cellule et la couleur qui y est présente d'une feuille à une autre "A".

Je clic sur un bouton qui me permet de transférer les informations dans une autre feuille permettant ainsi de cacher les calcul et autre formule.

"A" comprend 5 boutons permettant d'afficher les résultats de 5 tableaux différents

lorsque que je clic sur le premier bouton j'aimerais avoir le contenu + couleur de la feuille "B"
Sur le deuxième bouton le tableau précédant s'éfface pour laisser la place aux informations contenu sous la deuxiéme "C".


j'arrive a copier coller le contenu mais pas la couleur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub CommandButton1_Click()
'transformation des . en ,
For Each cel In Sheets("PSD").Range("PSD")
With cel
    .NumberFormat = "0.00"
    .Value = Replace(cel.Value, ".", ",")
    .Range("PSD").Interior.Color = .Interior.Color
 End With
couleur = ActiveCell.Interior.Color
Selection.Interior.Color = couleur
If IsNumeric(cel.Value) And cel.Value <> "" Then
    cel.Value = CDbl(cel.Value)
 End If
Next cel
 
'changement format
If Sheets("PSD").Range("PSD").NumberFormat <> "0.00%" Then
Sheets("PSD").Range("PSD").NumberFormat = "0.00%"
    Else: Sheets("PSD").Range("PSD").NumberFormat = "0.00%"
End If
'données
Sheets("Feuil1").Range("d6:i1000").Delete
Worksheets("PSD").Range("PSD").Copy _
Destination:=Worksheets("Feuil1").Range("d6")
Columns("e:e").EntireColumn.AutoFit
End Sub

mais j'ai vraiment du mal a trouver la solution si vous pouviez me donner un conseil

[LouiMz]

Bonsoir,

A essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
couleur = ActiveCell.Interior.ColorIndex
Selection.Interior.ColorIndex = couleur