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.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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,
Désole je sais que le sujet à déjà été abordé mais je n'y arrive toujours pas

Bonjour paul2306,

Est-ce ceci que tu souhaites ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Sub test() Dim oRng As Range Dim marange As Range   With Worksheets("Enregistrement") Set marange = .Range("A4", .Cells(Rows.Count, 1)) Set oRng = marange.Find("", After:=marange.Cells(marange.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole)   oRng.Resize(, 17).Value = Worksheets("Calcul_TVA").Range("A11:Q11").Value   MsgBox ("La note de frais a correctement été enregistrée")   End With   End Sub

---

Ici, je cherche la première cellule vide de la colonne A (à partir de A4) et je place les valeurs des cellules A11 à Q11 de la feuille "Calcul_TVA".

N'hésite pas à revenir vers moi. :ccool:

Cordialement,
Kimy

Bonjour,

une idée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub test()   Sheets("Calcul_TVA").Range("A11:Q11").Copy   With Sheets("Enregistrement").Range("A4") If .Value = "" Then .PasteSpecial (xlPasteValues) Else While .Offset(0, i).Value <> "" i = i + 1 Wend .Offset(0, i).PasteSpecial (xlPasteValues) End If End With   MsgBox ("La note de frais a correctement été enregistrée")   End Sub

---