Bonjour le forum,
Je bloque devant mon code, qui ne semble à priori pas contenir d'erreur, mais qui ne fonctionne pas...
J'ai des données dans ma feuille "bon commande" que je souhaite coller dans ma feuille "commande en cours"...
Donc j'ai nommé ma plage de cellule B11:B33 de ma feuille "bon commande" article.
Pour chaque cellule pleine de ma plage article, certaines données viennent se coller dans ma feuille "commande en cours"; certaines données restent fixes (date, fournisseur, n° commande...) et d'autres sont variables (dépendent de la cellule de la plage article)...
Voici mon code: (Il est vrai que je l'ai monté en m'inspirant de ce qui avait déjà été fait sur ce forum...)
Comme je n'ai pas de message d'erreur, je ne sais pas où elle est!
Merci de m'éclairer!!!
Salutations
Pnlop
Je bloque devant mon code, qui ne semble à priori pas contenir d'erreur, mais qui ne fonctionne pas...
J'ai des données dans ma feuille "bon commande" que je souhaite coller dans ma feuille "commande en cours"...
Donc j'ai nommé ma plage de cellule B11:B33 de ma feuille "bon commande" article.
Pour chaque cellule pleine de ma plage article, certaines données viennent se coller dans ma feuille "commande en cours"; certaines données restent fixes (date, fournisseur, n° commande...) et d'autres sont variables (dépendent de la cellule de la plage article)...
Voici mon code: (Il est vrai que je l'ai monté en m'inspirant de ce qui avait déjà été fait sur ce forum...)
Code:
Dim c As Range
For Each c In Sheets("bon commande").Range("article")
If Value > 0 Then
Worksheets("commande en cours").Range("A65536").End(xlUp).Offset(1, 0) = Worksheets("bon commande").Range("B5").Value
Worksheets("commande en cours").Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = Worksheets("bon commande").Range("A8").Value
Worksheets("commande en cours").Range("A" & Rows.Count).End(xlUp).Offset(0, 2) = Worksheets("bon commande").Range("B8").Value
Worksheets("commande en cours").Range("A" & Rows.Count).End(xlUp).Offset(0, 3) = Worksheets("bon commande").Range("C5").Value
Worksheets("commande en cours").Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Worksheets("bon commande").c.Value
Worksheets("commande en cours").Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Worksheets("bon commande").c.Offset(0, -1).Value
Worksheets("commande en cours").Range("A" & Rows.Count).End(xlUp).Offset(0, 4) = Worksheets("bon commande").c.Offset(0, 2).Value
End If
Next
Comme je n'ai pas de message d'erreur, je ne sais pas où elle est!
Merci de m'éclairer!!!
Salutations
Pnlop