Transfert de données entre feuille.

[momo5151]

Bonjour,

J'ai besoin d'aide pour ce fichier, à partir de l'userForm que j'ai crée j'aimerai que les quantités soient entrer dans la feuille expédition et qu'elles entrent dans la colonne correspondant à la référence que j'ai choisi.

 

[sousou]

Re : Transfert de données entre feuille.

Bonjour momo5151

Je te propose ce code de remplacement,
Il va additionner les quantités avec l"évolution des commandes,
Private Sub cmdValider_Click()
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("Archive_cde!B6").Value = TextBox5.Value
Range("Archive_cde!D6").Value = ComboBox1.Value
Range("Archive_cde!C6").Value = DTPicker1.Value
Range("Archive_cde!G6").Value = ComboBox2.Value
Range("Archive_cde!H6").Value = TextBox6.Value

Range("Archive_cde!F6").Value = TextBox7.Value

[E6] = Join(mondico.items, Chr(10))


'Ma proposition-----------------------------
assosc = Me.ComboBox1
ref = Me.RésultatListBox1.List(0)
coderef = Left(ref, InStr(ref, " ") - 1)
q = Me.TextBox7
With Sheets("Expédition")
col = .Rows(4).Find(assosc).Column
lg = .Columns(1).Rows.Find(coderef).Row
.Cells(lg, col) = .Cells(lg, col) + q
End With
'---------------------------------------
Me.RésultatListBox1.Clear
TextBox7 = ""

End Sub