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 : Sélectionner tout - Visualiser dans une fenêtre à part
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