Discussion :

[JMCoder]

Bonjour,

Mon code VBA boucle sur les lignes d'une feuille, intégre les informations de cette feuille dans des pseudo "objets" Modules de Classe, ensuite il redistribu les infos contenu dans les objets dans un planning.

Il se trouve que en production cette execution fonctionne correctement, mis à part quelques oubli,
c'est à dire certaines lignes de la première feuille d'ou vienne les informations sont oubliés : les informations ne se retrouvent pas dans le planning...

Mais cette execution ne produit aucune exception, de plus en repassant les lignes dites "oubliés" seules apres cet oubli les informations s'insèrent correctement.

Ce qui me gène le plus est le fait que lorsque je place un point d'arret pour savoir d'ou vient le problème : je ne reproduis plus cet oubli et les informations des lignes en question s'insèrent parfaitement dans le planning !

Avez vous des pistes sur à me proposer sur ce sujet s'il vous plait ?
Peut être est-ce un bug du langage VB, j'ai déjà entendu parler de dysfonctionnement de vb...

Merci

[illight]

Il doit y avoir un souci dans ton code.

J'avais rencontré le même souci à une époque, et malheureusement, la seule solution que j'avais trouvé n'était pas de faire un point d'arrêt, mais de faire du pas à pas détaillé, avec des msgbox et des debug print un peu partout pour voir quelles valeurs avaient mes variables. Vu que je bouclais sur près de 1000 lignes, ça m'a pris à peu près 1 h, mais au final il y avait bien un souci dans mon code problème de variable

Bon courage

Pour ton problème essaye peut-être de mettre un point d'arrêt dans ta boucle For sur la ligne sur laquelle il y a un oubli, pour vérifier les valeurs, etc...

Après, sans ton code, ou un fichier exemple ou le problème se reproduit, on pourra pas t'aider plus

[Invité]

il arrive parfois que le code soit gourmand en ressources et ne rende plus la mains à WINDOWS pour faire le ménage dans ses page mémoires!

1) vérifies que les allocations mémoires affectées par tes soins sont également libérées par tes soins!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
set ws=ActiveSheet
'Traitement
set ws=nothing

2) n’hésites à redonner la main à WINDOWS. mais attention Microsoft préconise 1 fois pas sub:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoEvents

3) il est également possible que ton traitement soit assujetti à l'exécution d'un programme externe via la commande Shell.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Tempo(T, F)
    Dim d
    d = Now
 
    While DateDiff(F, d, Now) < T
       DoEvents
    Wend
End Sub
sub test
Tempo 3, "s"
end sub

4) la réflexion de illight n'est pas à écarter; il m'est arriver, il m'arrive et il m'arrivera ce genre de problème.
la solution du msgbox permet de repérer à quel niveau dans la boucle:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 dim Msg as integer
msg=smg +1
msgbox   msg

quand tu à repéré le N° de MSG qui bug:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if msg=10 then
msgbox msg 'tu place un point d’arrêt [F9]
end if