Problème incrémentation ligne

Question

Bon je vais essayer d'être clair car je ne peux pas vous transférer le fichier. Voila mon code que l'on appellera Code 1 : &#91;datedujour&#93; = Format(Now, "dd/mm/yyyy") Dernligne = Sheets("Recap.").Range("D" & Rows.Count).End(xlUp).Row + 1 For m = 4 To Dernligne Step 1 If datedujour = Sheets("Recap.").Cells(m, 3).Value And OFEnCours.Cells(4, 8) = Sheets("Recap.").Cells(m, 5) Then Sheets("Recap.").Cells(m, 6) = Sheets("Recap.").Cells(m, 6) + quantite Exit For Else Sheets("Recap.").Cells(Dernligne, 5).Value = Sheets("OF en cours").Range("H4").Value Sheets("Recap.").Cells(Dernligne, 4).Value = Sheets("OF en cours").Range("H6").Value Sheets("Recap.").Cells(Dernligne, 6).Value = quantite Sheets("Recap.").Cells(Dernligne, 3).Value = datedujour Exit For End If Next m C'est dans celui ci que le problème est, mais il est simplement précédé du même paragraphe que voici qu'on appelera Code 2 : Sheets("Recap.").Cells(Dernligne, 5).Value = Sheets("OF en cours").Range("H4").Value Sheets("Recap.").Cells(Dernligne, 4).Value = Sheets("OF en cours").Range("H6").Value Sheets("Recap.").Cells(Dernligne, 6).Value = quantite Sheets("Recap.").Cells(Dernligne, 3).Value = datedujour Donc pour la petite histoire : Le code 2 va s'éxécuter une 1ère fois et transferera les données sur la 1ère ligne. A la prochaine éxécution du code ce sera le Code 2 qui sera éxécuté. Il vérifiera si la référence et la date sont identiques aux nouvelles données. Si tout est identiques, il rajoute la quantité sur la ligne précédente, et si la date n'est pas la même, il créer une nouvelle ligne. Seulement, cela marche pour la 1ère ligne et ensuite malgré les données identiques, il me créer des nouvelles lignes (image dispo). Avez-vous une solution ? Merci d'avance ! Peuto peut tout...

Steelson · Answer

Bjr, Comment veux-tu qu'on puisse lire ceci : je pense qu'il s'agit d'un 8 ! Reposte le message en utilisant la balise code, et donne un fichier exemple en pièce jointe......