Rook93 a écrit :
Bonjour,
Ci-joint un fichier. Si ça peut aider
Rook93
Bonjour
Je vous remercie encore une fois pour votre réponse qui m'a vraiment aidé
Pour le moment je veux ajouter autre chose sur mon userform; je veux ajouter une autre case pour la quantité du produit
Donc ca devient : ARTICLE PRIX QUANTITE
je vais ajouter quoi sur ce code ?
Range("A1000000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
'On défini les valeurs
A = Article1.Value
AA = Prix1.Value
B = Article2.Value
BB = Prix2.Value
C = Article3.Value
CC = Prix3.Value
D = Article4.Value
DD = Prix4.Value
E = Article5.Value
EE = Prix5.Value
F = Article6.Value
FF = Prix6.Value
G = Article7.Value
GG = Prix7.Value
'On écrit les articles et les prix correspondants
ActiveCell.Value = A
ActiveCell.Offset(0, 1).Value = AA
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = B
ActiveCell.Offset(0, 1).Value = BB
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = C
ActiveCell.Offset(0, 1).Value = CC
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = D
ActiveCell.Offset(0, 1).Value = DD
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = E
ActiveCell.Offset(0, 1).Value = EE
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = F
ActiveCell.Offset(0, 1).Value = FF
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = G
ActiveCell.Offset(0, 1).Value = GG
ActiveCell.Offset(1, 0).Select
Je vous remercie