Bonjour,

J'ai un code VBA qui me permet de copier/coller des cellules d'une feuille à une autre désignée "archives" et globalement ça fonctionne.

Mais dans une cellule je veux copier le résultat d'une formule, ce qui fait que je n'arrive pas à coller que la valeur du résultat.

Ci-dessous le code : la cellule me posant problème est la "K22" qui est une formule simple ("G18/K4"), le reste fonctionne bien car saisie.

Option Explicit

Dim plage1, plage2, lgn, c, col, i

Sub Transfert()

    Set plage1 = Range("G1,G2,I1,K4,K5,K6,K7,K17,K18,K22")

    Set plage2 = Sheets("archives").Range("B1,C1,D1,E1,F1,G1,H1,I1,J1,K1")

    Sheets("archives").Range("A2:K2").Insert shift:=xlDown

    'lgn = Sheets("archives").Range("B" & Rows.Count).End(xlUp)(2).Row

    i = 0

    For Each c In plage1

        i = i + 1

        col = Choose(i, "B", "C", "D", "E", "F", "G", "H", "I", "J", "K")

        Sheets("archives").Range("A2") = Sheets("archives").Range("A3") + 1

        c.Copy Sheets("archives").Cells(2, col)

    Next c

    MsgBox "Archivage réussi!"

    End Sub

Merci par avance de vos connaissances et du temps pris pour me répondre

Amicalement

Robert

Salut,

Il faut utiliser Range.PasteSpecial avec l'argument Paste qui vaut xlPasteValues.

https://docs.microsoft.com/fr-fr/office/vba/api/excel.range.pastespecial

Salut,

Je vais tenter cette solution

Merci

Bonjour,

Je ne suis pas encore doué pour le VBA car je n'arrive pas à bien positionner le code "PasteSpecial". J'ai toujours un message d'erreur.

Auriez-vous la possibilité de tester, s'il vous plaît ?

Merci d'avance

Amicalement

Robert

'Ci-dessous le code. Merci de votre collaboration active

'Amicalement - Robert

Option Explicit

Dim plage1, plage2, lgn, c, col, i

Sub Transfert()

    Set plage1 = Range("G1,G2,I1,K4,K5,K6,K7,K17,K18,K22")

    Set plage2 = Sheets("archives").Range("B1,C1,D1,E1,F1,G1,H1,I1,J1,K1")

    Sheets("archives").Range("A2:K2").Insert shift:=xlDown

    'lgn = Sheets("archives").Range("B" & Rows.Count).End(xlUp)(2).Row

    i = 0

    For Each c In plage1

        i = i + 1

        col = Choose(i, "B", "C", "D", "E", "F", "G", "H", "I", "J", "K")

        Sheets("archives").Range("A2") = Sheets("archives").Range("A3") + 1

        c.Copy Sheets("archives").Cells(2, col)

    Next c

    MsgBox "Archivage réussi!"

    End Sub

Il ne faut pas mettre la destination dans le c.Copy, sinon le copier-coller se fait directement.

Pour copier il faut juste c.Copy puis pour coller avoir sur la ligne d'en dessous Sheets("archives").Cells(2, col).PasteSpecial xlPasteValues


Bonjour et grand MERCI à vous

Bonne journée

Amicalement

Robert