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