XL 2016 EXCEL TOUT COLLER SAUF VALEURS

[Spi25Rit]

Bonjour le Forum,
J´ai une question générale d´EXCEL, Je sais que nous avons pleins de collages spéciaux mais peut-on coller aussi bien:

• les formules
• les conditions
• les validations de valeurs
• les couleurs
• les bordures

tout en évitant les valeurs?
Je vous remercie

 

[Compte Supprimé 979]

Bonjour Spi25Rit

Pour commencer merci d'éviter les titres en MAJUSCULE SVP

Ensuite tout ça pour moi est un collage spécial formule ou format
et eventuellement on peut effacer la valeur après un copier/coller simple

@+

 

[Phil69970]

Bonjour @Spi25Rit

*Edit Bonjour Bruno qui a proposé la même idée

Je te propose cet exemple à adapter

Sub CopieSansValeur()
With Range("F4")                            '<== cellule de destination à adapter
    Range("B4:C7").Copy                     '<== cellule à copier à adapter
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteComments
    .PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    .ClearContents
    Range("H11").Select
End With
End Sub

*Merci de ton retour

@Phil69970

 

[Phil69970]

Re

Et pour compléter le post précédent et si tu as des formules pour ne pas les supprimer

Sub CopieSansValeur()
With Range("F4:G7")                         '<== cellule de destination à adapter
    Range("B4:C7").Copy                     '<== cellule à copier à adapter
    .PasteSpecial Paste:=xlPasteFormats
    .PasteSpecial Paste:=xlPasteComments
    .PasteSpecial Paste:=xlPasteFormulas
    Application.CutCopyMode = False
    .SpecialCells(xlCellTypeConstants, 23).ClearContents
    Range("H1").Select
End With
End Sub

*Merci de ton retour

@Phil69970

 

[chris]

Bonjour à tous

La copie de formules copie aussi les valeurs des cellules sans formule...

 

[job75]

Bonsoir tous,

Sub CopieSansValeur()
[A1:F10].Copy [H1]
On Error Resume Next 'si aucune SpecialCell
[H1:M10].SpecialCells(xlCellTypeConstants).ClearContents
End Sub

Bonne nuit.

 

[job75]

Bonjour à tous,

S'il y a des données qu'on ne veut pas effacer :

Sub Copier()
Dim r As Range, dest As Range, decal1&, decal2%
Set r = [A1:F10] 'à adapter
Set dest = [H1] 'à adapter
decal1 = dest.Row - r.Row: decal2 = dest.Column - r.Column
Application.ScreenUpdating = False
r.Copy
dest.PasteSpecial xlPasteFormats 'copie les formats
Application.CutCopyMode = 0
On Error Resume Next 'si aucune SpecialCell
For Each r In r.SpecialCells(xlCellTypeFormulas)
    r.Copy r(1 + decal1, 1 + decal2) 'pour copier les formules
Next
End Sub

A+