Aide sur liens de formules dans tableau

Bonjour,

je vous recontacte une nouvelle fois car malgrès toutes les aides que j'ai pu avoir ici, il me reste un dernier petit soucis.

Je vous ai joint une partie de mon fichier avec 2macros test. Les 2 ne conviennent pas, il faudrait peut être faire un mixe des 2, voire changer de méthodes, mais la j'avoue je bloque... j'ai essayé d'être le plus clair possible. En lançant les macros, normalement c plus facile de voir ce que je souhaite obtenir.

https://www.excel-pratique.com/~files/doc/hVFletestmacros.xls

Si toutefois vous avez des soucis de compréhension faite moi signe.

Je vous remerci par avance.

Guillaume

Bonjour à tous,

pour le 1er bouton tu ajoute :

Set col = Range(Cells(25, dercol), Cells(39, dercol))
    With col
        .Copy Cells(25, dercol + 3)
        Range(col.Offset(0, 1), col.Offset(0, 2)).Delete Shift:=xlToLeft
        .Copy
        .PasteSpecial Paste:=xlValues
        Application.CutCopyMode = False
    End With
Set col = Nothing

le 2ème bouton à annuler

amicalement

Claude.

tout simplement ENORME!!!

je n'ai plus qu'a mediter sur ta devise...

en tout un grand merci à toi Claude.

Sincère salutation à toi!!

Guillaume

j'ai parlé un chouillat trop vite....

en fait juste une petite précision, dans ta macros, ta ligne :

Range(col.Offset(0, 1), col.Offset(0, 2)).Delete Shift:=xlToLeft

me supprime une colonne de mon tableau, or j'ai des recaps annuels sur la colonne AD.... si je fais tourner ta macro 1 fois, ca marche super bien... mais au bout du 2eme coup, ben etant donné que ca m'a decaler d'une colonne mon tableau vers la gauche, ben ca me lance la macro sur la colonne recaps de l'année...

N'y a t-il pas une autre facon de faire (en remplacant le 'Delete Shift:=xlToLeft) pour ne plus couper mon taleau??

Vraiment desole...

bon en fait c'est bon, je me suis alarmé trop vite tout seul, j'ai juste rajouté l'insertion de 2colonnes dans la macros, ca marche du tonnere!

thanx for everything!!!!

Guillaume