Discussion :

[o_ousmane]

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

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

[clementmarcotte]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Offset(1,0)

Même colonne, mais une ligne plus bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Offset(-1,0)

Même colonne, mais une ligne plus haut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Offset(1,-1)

Une colonne à gauche et une ligne plus bas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Offset(-1,-1)

Une colonne à gauche et une ligne plus haut

etc...

[BENNASR]

bonjour
et Aussi

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

[Marc-L]

Bonjour, bonjour !

Déjà directement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Ton code en plus propre :

Code vba :

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