J'ai besoin de votre aide pour mon code VBA outil de simulation
Fermé
Barahaoua
Messages postés88Date d'inscriptionjeudi 19 mai 2016StatutMembreDernière intervention17 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
A voir également:
J'ai besoin de votre aide pour mon code VBA outil de simulation