Enregistrement suivant sans utiliser userform

Version imprimable

07/04/2017, 12h00
beonde

1 pièce(s) jointe(s)

Enregistrement suivant sans utiliser userform

Bonjour,
Sans utiliser Userform, j'ai créé une grille de saisie (onglet Nouveau) et j'aimerais alimenter directement l'onglet Données. Mais à chaque fois que je clique sur "Valider" toutes les lignes de données se mettent à jour. Je ne sais pas comment figer chaque ligne.

Merci pour votre aide!

1 pièce(s) jointe(s)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton2_Clic()Range("f4") = Range("f4") - 1
If Range("f4") < 1 Then Range("f4") = 1
[H6] = Range("Feuil2!A" & Range("f4"))
[H9] = Range("Feuil2!B" & Range("f4"))
[H12] = Range("Feuil2!C" & Range("f4"))
End Sub
Sub Bouton3_Clic()
Range("f4") = Range("f4") + 1
 
 
[H6] = Range("Feuil2!A" & Range("f4"))
[H9] = Range("Feuil2!B" & Range("f4"))
[H12] = Range("Feuil2!C" & Range("f4"))
End Sub

Bonjour,
Après avoir ouvert votre fichier, je vous ai commencé votre code, à finir.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NouveauP()
 
Dim derligne As Integer
derligne = Worksheets("Données").Range("A65536").End(xlUp).Row
 
Worksheets("Données").Range("A" & derligne + 1).Value = Worksheets("Nouveau").Range("D5").Value
Worksheets("Données").Range("B" & derligne + 1).Value = Worksheets("Nouveau").Range("D8").Value
Worksheets("Données").Range("C" & derligne + 1).Value = Worksheets("Nouveau").Range("D9").Value
Worksheets("Données").Range("D" & derligne + 1).Value = Worksheets("Nouveau").Range("D10").Value
Worksheets("Données").Range("E" & derligne + 1).Value = Worksheets("Nouveau").Range("D11").Value
Worksheets("Données").Range("F" & derligne + 1).Value = Worksheets("Nouveau").Range("D12").Value
Worksheets("Données").Range("G" & derligne + 1).Value = Worksheets("Nouveau").Range("D13").Value
Worksheets("Données").Range("H" & derligne + 1).Value = Worksheets("Nouveau").Range("D14").Value
 
End Sub

Bonne continuation