Collage d'une grille sur une autre grille

Bonjour,

Je souhaiterai remplacer mon ancienne grille de tarification par la nouvelle, avec un collage par dessus.

Pour des questions pratique et gain de temps car j'ai plusieurs grilles à remplacer, j'aurai voulu savoir si il était possible d'écraser un tableau par un autre tableau en ne modifiant pas certaines cellules choisi.

Je vous met en pièce jointe mes deux tableaux avec les explications.

Cordialement.

41test.xlsm (19.69 Ko)

Bonjour,

Une piste à tester et à adapter selon le cas sur une copie du classeur :

Sub Transfert()

    Dim I As Long
    Dim J As Long
    Dim K As Long

    K = 8

    For I = 4 To 28

        For J = K To 32

            Cells(J, I).Value = Cells(J + 31, I).Value

        Next J

        K = K + 1

    Next I

End Sub

Bonjour Theze,

Merci d'avoir répondu, néanmoins je comprend pas trop la formule utilisée, c'est du chinois pour moi ^^.

Cordialement.

Bonjour,

Ce n'est pas une formule, c'est une procédure et elle doit être mise dans un module standard donc, Alt+F11 puis menu "Insersion"--->"Module", dans la partie d'édition du code qui vient de s'afficher, tu colles le code ci-dessous (j'ai rajouté deux lignes pour qu'il s'exécute un peu plus vite), tu reviens dans Excel, combinaison de touches Alt+F8 là, "Transfert" sera surligné dans la boite "Macro" cliques sur "Exécuter".

Sub Transfert()

    Dim I As Long
    Dim J As Long
    Dim K As Long

    K = 8

    Application.Calculation = xlCalculationManual

    For I = 4 To 28

        For J = K To 32

            Cells(J, I).Value = Cells(J + 31, I).Value

        Next J

        K = K + 1

    Next I

    Application.Calculation = xlCalculationAutomatic

End Sub

Bonjour,

Merci beaucoup Theze.

Cordialement.

Rechercher des sujets similaires à "collage grille"