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+