XL 2016 EXCEL TOUT COLLER SAUF VALEURS

Spi25Rit

XLDnaute Nouveau
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
 
C

Compte Supprimé 979

Guest
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

XLDnaute Barbatruc
Bonjour @Spi25Rit

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

Je te propose cet exemple à adapter

VB:
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

XLDnaute Barbatruc
Re

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

VB:
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
 

job75

XLDnaute Barbatruc
Bonjour à tous,

S'il y a des données qu'on ne veut pas effacer :
VB:
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+
 

Pièces jointes

  • Copier(1).xlsm
    18.2 KB · Affichages: 1

Discussions similaires

Réponses
7
Affichages
485

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs