Bonjour à tous,

Je débute dans excel et je dois créer un fichier client.

Dans ce projet, il est demandé d'avoir une page où encoder les données et une page avec la liste de tous les clients.
J'ai donc créer une macro qui une fois les données encodées sont enregistrées dans la liste. Mais à chaque nouveau client, à la place de passer à la ligne, l'enregistrement se fait sur une seule ligne. Pourriez vous m'aider à résoudre ce problème?
Voici le code de ma macro :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Sub Sauver_client()
 
' Vérification ligne vide
 
    Sheets("Liste clients").Select
    For i = 2 To 2000
    If Cells("A", i) = "" Then
    Cells("A", i) = Cells("A", i + 1)
    End If
    Next
 
' Enregistrement des clients
 
    Sheets("Encodage clients").Select
    Range("D2").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("D4").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("D6").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("D8").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("D2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("F11").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("D12").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("F2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("D14").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("F14").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("H2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("H14").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("J14").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("J2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("D16").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("K2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("F16").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("L2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("H16").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("M2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
    Range("J16").Select
    Selection.Copy
    Sheets("Liste clients").Select
    Range("N2").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Sheets("Encodage clients").Select
 
'Effacement données encodage clients
 
    Range("D4,D6,D8,D10,D12,D14,D16,F14,F16,H14,H16,J14,J16").Select
    Selection.ClearContents
    Ligne = ActiveCell.Row
    Cells(Ligne + 1, 1).Activate
 
End Sub
A mon avis le problème se trouve dans la vérification des lignes vides.

Merci beaucoup

Maxime