J'ai besoin de votre aide pour mon code VBA outil de simulation

Fermé
Barahaoua Messages postés 88 Date d'inscription jeudi 19 mai 2016 Statut Membre Dernière intervention 17 août 2016 - 23 mai 2016 à 16:38
Bonjour mes amis , j'ai encore besoin de votre aide SVP pour une nouvelle parti de mon projet

1ére chose a faire il faut pointer sur le 1er cadencement placer dans la premiére cellule de la colonne C du tableau( placer dans la 2éme feuille du classeur )


en suite partir la chercher aléatoirement dans un autre tableau (placer la 1ére feuille du classeur) dans la colonne H .
en suite prendre la valeur du tonnage dans la colonne B qui correspond a la valeur quand vient de trouver et on soustrait de ce tonnage la valeur placer dans la cellule B1 placer dans la 2éme feuille (valeur de la cellule B1 = 53 )



on met le résultat du calcul dans la colonne K( placer dans la 1ére feuille du classeur ) .le résultat doit être dans la cellule qui correspond exactement a la valeur sur la quel on a pointer au début.
et en va pointer sur la 2eme cellule du tableau de cadencement de la colonne C du tableau( placer dans la 2éme feuille du classeur )

on vérifie pour chaque cadencement (colonne C placer dans la 2éme feuille du classeur )
si le tonnage calculer > 53 on fait encore tourner la boucle
si le tonnage calculer < 53 on passe au cadencement suivant
fin si

voila le code actuel que j'ai et qui gère la première parti du projet

<code>Dim Arret As Boolean
Dim Nb_Boucle As Integer

Sub Plaque5_Cliquer()
'Boucle simulation

Dim i As Integer, Nbre_Total_Boucl As Integer, Rng As Range
'code pour le lancement des passe dans le tunel
    Arret = False: Nb_Boucle = 0
    If Range("B1").Value <> "" Then 'vérifie que B1 n'est pas vide
        Nbre_Total_Boucl = Columns(3).Find("*", , , , , xlPrevious).Row - 12
        Do While Arret = False
            DoEvents
            'Range("B7:T7").Value = "" 'réinitialise ton "tableau"
            i = 2 'valEUr de Ma première colonne du tableau
            Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
            Do Until Range("T7") <> "" Or Arret = True 'conditionne la boucle jusqu'à la dernière colonne de ton tableau
                If i > 2 Then Cells(7, i - 1).Value = Range("B1") 'mettre la valeur de B1 dans les cellule precedente
                Cells(7, i).Value = Range("B1").Value 'mets ta valeurs dans la cellule de ton tableau
                i = i + 1 'prochaine colonne
                Application.Wait Time + TimeSerial(0, 0, 2) 'attends 10 sec
                DoEvents
            Loop
            Range("B3") = Range("B3") + Range("T7")
            Set Rng = Columns(24).Cells.Find(Range("C13").Offset(Nb_Boucle, 0).Value)
            If Rng Is Nothing Then
                MsgBox Range("C13").Offset(Nb_Boucle, 0).Value & " non trouvé en colonne X"
            Else
                Rng.Offset(1, 0).Value = Rng.Offset(1, 0).Value + Range("T7").Value
            End If
            Nb_Boucle = Nb_Boucle + 1
            If Nb_Boucle = Nbre_Total_Boucl Then Exit Do
            'Range("Y3") = Range("B3") - Range("X3")
            'Range("Y5") = Range("B3") - Range("X5")
            'Range("Y7") = Range("B3") - Range("X7")
            'Range("Y9") = Range("B3") - Range("X9")
            'Range("Y11") = Range("B3") - Range("X11")
            'Range("Y13") = Range("B3") - Range("X13")
        Loop
    Else
        MsgBox "B1 est vide !"
    End If
End Sub