Demande d'aide sur vba Excel

Bonjour à tous

Je me nommé Ouédraogo Ousmane; je suis le responsable logistique de l'entreprise ! j'ai un projet de gestion de stock en cours sur Excel.
J'ai pu crée un formulaire de saisie personnalisé, mais je rencontre un problème dans l'enregistrement des donnes sur la feuille!
Dés que je lancé l'enregistre les donnes s'enregistre sur le dernier enregistre du tableau au lieu d'une nouvelle ligne
voici les lignes de code en vba que j'ai utilisés pour l'enregistrement :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub cbmtsave_Click() Sheets("Data-Sortie").Activate Range("A10").Select Selection.End(xlDown).Select Selection.Offset(1, 0).Select ActiveCell = txtdate1.Value ActiveCell.Offset(0, 1).Value = cboref ActiveCell.Offset(0, 2).Value = cbopieces ActiveCell.Offset(0, 3).Value = cbomp ActiveCell.Offset(0, 4).Value = txtqte ActiveCell.Offset(0, 5).Value = cboImm ActiveCell.Offset(0, 6).Value = cbogenre ActiveCell.Offset(0, 7).Value = cbomarq ActiveCell.Offset(0, 8).Value = cbomodel ActiveCell.Offset(0, 9).Value = cbotechn ActiveCell.Offset(0, 10).Value = cbopost   End Sub

---

Merci d'avance de m'aide a voir mes erreurs sur les codes!
Très Cordialement

Bonjour,

Les deux paramètres de Offset sont la ligne et la colonne. Ton zéro signifie que tu restes sur la même ligne.

D0nc avec

Code:

---

Offset(1,0)

---

Même colonne, mais une ligne plus bas

Code:

---

Offset(-1,0)

---

Même colonne, mais une ligne plus haut

Code:

---

Offset(1,-1)

---

Une colonne à gauche et une ligne plus bas

Code:

---

Offset(-1,-1)

---

Une colonne à gauche et une ligne plus haut

etc...

Ton code en plus propre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub cbmtsave_Click() Dim Ligne As Long Sheets("Data-Sortie").Activate Ligne = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) Cells(Ligne, 1).Value = txtdate1.Value Cells(Ligne, 2).Value = cboref Cells(Ligne, 3).Value = cbopieces Cells(Ligne, 4).Value = cbomp Cells(Ligne, 5).Value = txtqte Cells(Ligne, 6).Value = cboImm Cells(Ligne, 7).Value = cbogenre Cells(Ligne, 8).Value = cbomarq Cells(Ligne, 9).Value = cbomodel Cells(Ligne, 10).Value = cbotechn Cells(Ligne, 11).Value = cbopost   End Sub

---

Cela dit, es-tu vraiment sûr que ce UserForm serve à quelque chose ?
Ne serait-il pas plus simple de saisir les informations directement dans les lignes ?

bonjour
et Aussi :aie:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Bouton1_Cliquer() Dim j As Long With Sheets("Data-Sortie") j = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("A" & j) = txtdate1.Value .Range("B" & j) = cboref .Range("C" & j) = cbopieces .Range("D" & j) = cbomp .Range("E" & j) = cboImm .Range("F" & j) = cbogenre .Range("G" & j) = cbomarq .Range("H" & j) = cbomodel .Range("I" & j) = cbotechn .Range("J" & j) = cbopost End Sub

---

Bonjour, bonjour !

Déjà directement :

Code:

---

1 2 3 4

Private Sub cbmtsave_Click() Range("Data-Sortie!A10").End(xlDown).Offset(1).Resize(, 11).Value = Array(txtdate1.Value, _ cboref, cbopieces, cbomp, txtqte, cboImm, cbogenre, cbomarq, cbomodel, cbotechn, cbopost) End Sub

---

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …