Macro récupération date dans un TCD

Bonjour,

Dans le fichier ci-joint j'ai un problème avec la macro du bouton "2-recherche dates" qui doit renvoyer les dates de la ligne 3 de la feuille "3-tcd" dans la colonne J de la feuille "5-resultat final" .

Pour certaine ligne ça marche, exemple J2 de la feuille "5-resultat final", mais pour J3 par exemple ça me donne des dates en juin alors que ce devrait être novembre

je met le code ci-dessous, mais si quelqu'un veux regarder le fichier le code pour accéder aux macro c'est metalica

Si quelqu'un a une idée svp.

Sub recuperation_date_de_besoin()

Sheets("5-resultat final").Select

nbrligne5 = Application.WorksheetFunction.CountA(Range("A:A"))

For i = 2 To nbrligne5
    Sheets("5-resultat final").Select
    couleur5 = Cells(i, 1)
    qte_a_commander5 = Cells(i, 9)

    Sheets("3-tcd").Select
    nbrligne3 = Application.WorksheetFunction.CountA(Range("A:A")) + 1
    nbrcolonne3 = Application.WorksheetFunction.CountA(Range("4:4"))

    For w = 5 To nbrligne3
        If Cells(w, 1) = couleur5 Then
            total3 = 0
            valeur_chercher = Cells(w, nbrcolonne3) - qte_a_commander5
            'faire l'addition
            For j = 3 To nbrcolonne3
                valeur3 = Cells(w, j)
                total3 = total3 + valeur3
                date_commande = Cells(4, j)
                If total3 >= valeur_chercher Then GoTo line100
            Next j
        End If
    Next w

line100:
Debug.Print date_commande

Sheets("5-resultat final").Select
jour = Mid(date_commande, 7, 2)
mois = Mid(date_commande, 5, 2)
annee = Mid(date_commande, 1, 4)
Cells(i, 10) = mois & "/" & jour & "/" & annee

Next i

End Sub

Bonjour Sonata Arctica le forum

bon alors c'est super tu passes un fichier protégé, et tu donnes un mot de passe qui n'est pas le bon metalica

alors je suppose que tu n'as besoin de rien

bonne journée

a+

Papou

Re Sonata arctica le forum

mon dieu la macro !!!!!!!!!

tu dis pas normal en J3 la date du 21/06/2019 ???? mais si mais si mon cher

si tu expliquais ce que ta macro doit faire on pourrait corriger utilement!!!

Pour le moment

tu veux

valeur_chercher = Cells(w, nbrcolonne3) - qte_a_commander5
Cells(w, nbrcolonne3)= 3,66    qte_a_commander5=7
donc valeur_chercher= -3,34

ensuite tu commences à faire la somme mais dans la première boucle tu as une condition

total3 >= valeur_chercher Then GoTo line100
total3=0   et valeur à chercher = -3,34 !!!!!

donc c'est le cas car 0 c'est supérieur à -3,34 donc on file en line 100

En clair ta macro avec tes select partout est une plaisanterie, il n'y a pas besoin des select en vba ou que très rarement.

Explique ce que tu attends comme résultat et on va te modifier cela proprement

Je suppose que tu veux récupérer la date à laquelle la valeur à chercher est atteinte mais à me confirmer

a+

Papou

Re Sonata Arctica le forum

bon alors pas de retour!!!!

Voilà ta macro modifiée merci de cliquer recherche de dates et me dire si les dates maintenant sont les bonnes ou pas

a+

Papou

Bonjour paritec,

j'étais sur d'autre sujet mais oui ça fonctionne très bien,

merci beaucoup !

a+