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