Discussion :

[paul2306]

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

[Kimy_Ire]

Bonjour paul2306,

Est-ce ceci que tu souhaites ?

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
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.

Cordialement,
Kimy

[joe.levrai]

Bonjour,

une idée

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
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