Copie de la valeur et sa couleur en VBA

[Soleil11]

​

Bonjour le forum,

J'aimerais copier depuis une cellule x à y seulement sa valeur et la couleur j'ai essayé le code ci-dessous mais cela ne fonctionne.

Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

Pourriez-vous m'aider pour trouve le bon code. J'ai essayé aussi avec les possibilité ci-dessous mais cela ne fonctionne pas non plus.

xlPasteAll -Everything will be pasted.
xlPasteAllExceptBorders - Everything except borders will be pasted.
xlPasteAllUsingSourceTheme -Everything will be pasted using the source theme.
xlPasteColumnWidths -Copied column width is pasted.
xlPasteComments -Comments are pasted.
xlPasteFormats -Copied source format is pasted.
xlPasteFormulas -Formulas are pasted.
xlPasteFormulasAndNumberFormats - Formulas and Number formats are pasted.
xlPasteValidation -Validations are pasted.
xlPasteValues -Values are pasted.
xlPasteValuesAndNumberFormats - Values and Number formats are pasted

Merci pour votre aide.

Soleil11😕

 

[pierrejean]

Re : Copie de la valeur et sa couleur en VBA

Bonjour Soleil1

A tester

Range("A1").copy destination:=Range("A2")

 

[ROGER2327]

Re : Copie de la valeur et sa couleur en VBA

Bonjour Soleil11, pierrejean

Je verrais bien

Sub tata()
  [A2].Value = [A1].Value
  [A2].Font.Color = [A1].Font.Color
End Sub

ROGER2327
#4895

Lundi 23 Décervelage 138 (Saint Tank, animal, SQ)
1er Pluviôse An CCXIX
2011-W03-4T13:42:22Z

 

[Soleil11]

Re : Copie de la valeur et sa couleur en VBA

Rebonjour,

Cela marche presque, j'aimerais qu'il copie que la valeur et sa couleur et pas la formule. Merci pour votre aide encore.

Soleil11

 

[Soleil11]

Re : Copie de la valeur et sa couleur en VBA

Rebonjour le forum,

Je vais être plus précis, je veux copier une plage de cellules de la feuille "page1" à la "page2" et seulement leurs valeurs et leurs couleurs et non les formules.

    Sheets("Page1").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Page2").Select
    Range("A2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Activate
    'ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'aimerais changer la dernière ligne de ce code afin qu'il copie que les valeurs et les couleurs.

Merci de votre aide encore.

Soleil11

 

[tototiti2008]

Re : Copie de la valeur et sa couleur en VBA

Bonjour à tous,

peut-être, sur la base de la proposition de PierreJean :

Range("A1").copy destination:=Range("A2")
Range("A2").value = Range("A2").value

 

[ROGER2327]

Re : Copie de la valeur et sa couleur en VBA

Bonjour tototiti2008

Ça va copier aussi la couleur de fond, le cadre et tutti quanti... (et même, avec pas de chance, ne pas copier la valeur...)​

ROGER2327
#4896

Lundi 23 Décervelage 138 (Saint Tank, animal, SQ)
1er Pluviôse An CCXIX
2011-W03-4T14:00:15Z

 

[Soleil11]

Re : Copie de la valeur et sa couleur en VBA

Cela marche que lorsque je sélectionne qu'une seule cellule , mais je suis obligé d'utilisé la métode "Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select" car je séléctionne chaque jour des plages différentes, comment puis-je modifié la dernière ligne de mon code afin qu'il ne copie que la valeur et sa couleur.

Soleil11

 

[tototiti2008]

Re : Copie de la valeur et sa couleur en VBA

Re,
Bonjour Roger,

Ça va copier aussi la couleur de fond, le cadre et tutti quanti...

Euh oui, mais Soleil11 parle de couleur (de fond ? des caractères ?...) alors comme je ne sais pas je copie toute la mise en forme

et même, avec pas de chance, ne pas copier la valeur...

Ok, un moment d'inattention, sans doute 😉😀

peut-être en remplaçant "Range("A2").value = Range("A2").value" par "Range("A2").value = Range("A1").value"

 

[pierrejean]

Re : Copie de la valeur et sa couleur en VBA

Re

A tester

Sub test()   
    Sheets("Page1").Select
    Range("A2").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("Page2").Select
    Range("A2").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Activate
    'ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   End Sub

 

[ROGER2327]

Re : Copie de la valeur et sa couleur en VBA

Re..., bonjour tototiti2008

Il est vrai que la demande est imprécise... ...et fluctuante car il est clair qu'au départ il s'agit de copier une cellule. Le

Range("A1").Select
    Selection.PasteSpecial

en est la preuve.
Il s'agit maintenant d'une plage de cellules, ce qui est tout autre chose !
Pourquoi pas ceci :

'...
  Set x = plage 'Plage à copier
  With cellule 'Premiére cellule de la destination
    For i = 0 To x.Rows.Count - 1
      For j = 0 To x.Columns.Count - 1
        .Offset(i, j).Value = x(1).Offset(i, j).Value
        .Offset(i, j).Font.Color = x(1).Offset(i, j).Font.Color
      Next
    Next
  End With
'...

C'est lourdingue, mais, si on ne veut copier que la valeur et la couleur d'écriture, ça fonctionne...

Quant à l'étourderie, c'est la loi du genre. En étant moi-même un fervent pratiquant, je prends un malin plaisir à taquiner les autre adeptes !​

ROGER2327
#4898

Lundi 23 Décervelage 138 (Saint Tank, animal, SQ)
1er Pluviôse An CCXIX
2011-W03-4T14:55:32Z

 

[Soleil11]

Re : Copie de la valeur et sa couleur en VBA

Merci beaucop à tout le forum dans les deux cas cela fonctionne parfaitement.

Soleil11