Coller Tout Sauf les formules

Bonjour,

J'ai une mise en forme dans les colonnes de A à K.

Existe t'il un code qui peut tout me copier sans prendre les formules ?? (tout: mise en forme, quadrillages, valeurs, cellules fusionnées etc etc SANS les formules)

Merci d'avance.

'On ouvre les 3 documents et on active leur macros associé avec application.run : extraction de donnée clipper premiere partie,extraction de donnée clipper deuxième partie et Base de donnée pour traitement'
Application.Run "Ouvrirclip1partie"
'Application.Run "'extraction de donnée clipper premiere partie.xlsm'!exctrationdonnéeclipper1"
Application.Run "'extraction de donnée clipper premiere partie.xlsm'!exctrationdonnéeclipper1"

Application.Run "Ouvrirclip2partie"
'Application.Run "'extraction de donnée clipper deuxième partie.xlsm'!extractiondonneedeuxiemepartie"
Application.Run "'extraction de donnée clipper deuxième partie.xlsm'!extractiondonneedeuxiemepartie"

Application.Run "ouvrirbasetraitdonné"
Application.Run "'Base de donnée pour traitement.xlsm'!copiercollerspe"

Application.Run "ouvriranalyseV3"

    'On ouvre la fenètre deja ouverte de Base de donnée pour traitement'
    Windows("Base de donnée pour traitement.xlsm").Activate
    'On va sur la feuil5'
    Sheets("Feuil5").Select
    'on selectionne les colonnes de A à D et on les copies'
    Columns("A:D").Copy
    'On ouvre la fenètre deja ouverte de Export analyse délais V3'
    Windows("Export analyse délais V3.xlsm").Activate
    'On fait un collage spécial uniquement des valeurs sur la colonne A'
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows( _
        "Base de donnée pour traitement.xlsm" _
        ).Activate
    Application.CutCopyMode = False

    'Demarrage macro (filtrer2) du fichier Export analyse délais V3'
    Application.Run "'Export analyse délais V3.xlsm'!filtrer2"

    'copy la selection en cours'
    Selection.Copy
    'Colle dans calcul des OTD>Seropclient et en A1 en collage spécial uniquement les valeurs'
    Windows("Calcul des OTD.xlsm").Activate
    Sheets("Serop client").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

    Application.Run "fermeranalyseV3"
    Application.Run "ouvriranalyseV3"

Bonjour

Il faut un collage spécial valeurs et un collage spécial format.

Ce cas n'étant pas encore prévu par MS (sauf éventuelle MAJ récente de 365...)

bonjour,

Effectivement je viens d'y réfléchir si je copie colle d'abord les valeurs+format des nombres et que je recolle pas dessus le format sa passe !

    Columns("A:K").Select
    Selection.Copy
    Sheets("Tram enregistré").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Bonjour Lasgalen,

pour ton code VBA :

Columns("A:K").Select et Selection.Copy peuvent être réunis : Columns("A:K").Copy

ça évite la sélection, et ton code sera plus rapide.

Range("A1").Select et Selection.PasteSpecial à réunir : Range("A1").PasteSpecial

même avantage : c'est plus rapide sans sélection.

je te propose cette adaptation de ton code VBA :

Sub Essai()
  Application.ScreenUpdating = False
  [A:K].Copy: Worksheets("Tram enregistré").Select
  [A1].PasteSpecial -4163 ' valeurs seulement
  [A1].PasteSpecial -4122 ' formats (dont les formats numériques)
End Sub

pour "Tram", si c'est ton abréviation pour "Trame", je veux bien ; ça serait plutôt : "Trame enregistrée"

car sinon : un tram, c'est un tramway ! tu t'es recyclé dans les transports de voyageurs ?

oui, ça peut être lucratif, aussi ! p't'être que tu connais ça :

"cliquer ici"

j'ai supposé que tu voulais aller sur la feuille "Tram enregistré" ; sinon, même la sélection de la feuille peut être évitée ; plus rapide aussi, et tu restes sur la feuille de départ (celle des colonnes A:K copiées)

Sub Essai()
  Application.ScreenUpdating = 0: [A:K].Copy
  With ['Tram enregistré'!A1]
    .PasteSpecial -4163 ' valeurs seulement
    .PasteSpecial -4122 ' formats (dont les formats numériques)
  End With
End Sub

j'espère que cette petite analyse t'aura plu.

(t'as d'la chance : l'audit est gratuit !)

dhany

Bonjour,

Merci pour ces explications! je vais essayer.

Je peux pas changer "tram" en "trame" trop de choses à modifier mdr

alors bonne chance pour tes essais !

dhany