Je fait un test pour réaliser de longs calculs sans bloquer l'interface.
Mon Code:
Sub ProcessCall(ByVal TopLoc)
Dim Work As New Process
Set cellule = cells("b1)
Work.TopLoc = TopLoc
Randomize
Work.Id = Int(Rnd * 100000)
cellule.Resize(bcl).ClearContents
Call...
Bonjour,
pour but d'automatiser un planning, je souhaite intégrer la notion du cycle de fabrication de pièces. Ci-joint un model simplifier.
les résultats sont extraient de la feuil Base de données et ils serons afficher sur les feuil J1 J2 j3 et J4 par une procédure événementiel une fois le N...