Copier coller en valeur sous VBA

Bonjour,

Je n'arrive pas à enregistrer une ligne sur un onglet autre.

Enfin tout fonctionne sauf dans trois possibilités (à chaque fois des calculs interviennent et la formule est copiée).

J'ai essaye de modifier ma macro avec .value mais je ne m'en sors pas.

Macro :

 Sub test()

 Sheets("Enregistrement").Activate
 Range("A4:S4").Select

 If ActiveCell = "" Then

 Sheets("Enregistrement").Range("A4:S4").Value = Sheets("Calcul_TVA").Range("A11:Q11").Value
 Sheets("Calcul_TVA").Select
 MsgBox ("La note de frais a correctement été enregistrée")

 Else

 Sheets("Calcul_TVA").Range("A11:Q11").Copy

 Do Until ActiveCell = ""

 ActiveCell.Offset(1, 0).Select
 Loop

 ActiveSheet.PasteSpecial
 Sheets("Calcul_TVA").Select
 MsgBox ("La note de frais a correctement été enregistrée")

 End If

 End Sub

Toute aide est la bienvenue

Bonjour et bienvenu(e)

Sans fichier test , modifie la macro

Sub test()

  Sheets("Enregistrement").Activate
  Range("A4:S4").Select

  If ActiveCell = "" Then

    Sheets("Enregistrement").Range("A4:S4").Value = Sheets("Calcul_TVA").Range("A11:Q11").Value
    Sheets("Calcul_TVA").Select
    MsgBox ("La note de frais a correctement été enregistrée")

  Else

    Sheets("Calcul_TVA").Range("A11:Q11").Copy

    Do Until ActiveCell = ""

      ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    'ActiveSheet.PasteSpecial             ' Ligne à supprimer
    Sheets("Calcul_TVA").Select
    MsgBox ("La note de frais a correctement été enregistrée")

  End If

End Sub

Merci pour ton retour,

Malheureusement ca ne fonctionne pas dès la seconde ligne.

"La méthode PasteSpecial de la classe Range a échoué."

Si tu as une idée de comment régler le problème je suis preneur.

Merci par avance ++

J'ai trouvé la solution !

Merci quand même

Bonjour

polux2306 a écrit :

J'ai trouvé la solution !

Tu ne devrais pas la dire cela risque d'aider d'autres personnes