Différence de résultat en exécution ou en mode débogage

Bonjour, je vais tenter d'être concis.

J'ai créé une macro qui fonctionne très bien lorsque j'utilise le mode débogage. Néanmoins, impossible d'avoir le bon résultat lors d'une exécution normale.
J'ai d'abord pensé à un problème de "timing" que j'ai essayé de résoudre en imposant des attentes, ce ne fut pas fructueux... Je suis à court d'idée. Merci d'avance !

Je ne peux malheureusement pas vous joindre mon fichier.

Private Sub CommandButton1_Click()

Dim nAc As Integer
nAc = Range("PlgMaintenance").Rows.Count

Dim a, b, c, d, check, e

With Sheets("Maintenance logbook")

For i = 2 To nAc
If Range("A" & i).Value = AcRegistration Then
b = Range("B" & i).Value
d = Range("C" & i).Value
e = DateDiff("m", Range("C" & i), Date)
Else
End If
Next i

If b = 50 Then
check = 100
Else
check = 400
End If

.Range("A" & nAc + 1) = AcRegistration
.Range("B" & nAc + 1) = check
.Range("C" & nAc + 1) = Date
.Range("D" & nAc + 1) = Engineer
.Range("E" & nAc + 1) = "Started"
.Range("A1:E" & nAc + 1).Name = "PlgMaintenance"
End With

Unload MaintenanceTask
MaintenanceTask.Hide

MsgBox ("This aircraft is on check " & check)

LifeLimit.Show

End Sub

Bonjour, à priori je ne vois pas d'erreur dans le code, et juste en disant que tu n'as pas le bon résultat je ne vois pas comment aider.
Insère des debug.print dans ton code pour vérifier le contenu des variables en mode pas à pas et si à un moment ta variable n'a pas le contenu voulu c'est là qu'il faut creuser.

Effectivement, désolé pour ce manque de précision. Le programme me renvoie toujours check=400 quoiqu'il arrive en mode d'exécution normal.

Je vais essayer cela pour voir ce qu'il se passe.

En vérifiant les variables en mode débogage, les valeurs sont correctes, et donc le résultat final correct.

En exécution "normale", à la suite de ma première boucle FOR, b ne contient aucune valeur, la variable est vide pour une raison qui m'échappe.

Quelque chose m'échappe dans la logique du code. A la sortie de ta boucle for i = 2 to nAc, b aura toujours la valeur de la dernière ligne testée et qui est affectée ensuite à check dans le test if qui suit la boucle. Pourquoi faire une boucle pour tester toutes les lignes alors ?

Parce que je veux la dernière valeur, la ligne de la dernière entrée. Il peut y avoir une première ligne avec 50 et une deuxième plus récente avec 100.

Je pourrais peut être envisager un compteur qui commence la recherche "par le bas" ?

Autant tester uniquement la dernière ligne alors, pas besoin de boucle et de tests inutiles.
Au passage, ta ligne Dim a, b, c, d, check, e déclare toutes tes variables du type Variant, donc elles peuvent accepter n'importe quelle valeur sans erreur, ce n'est pas l'idéal pour débugger.

Non parce que je vais avoir plusieurs registrations différentes

Que tu fasses ta boucle dans un sens ou dans l'autre, en sortie de boucle tu n'auras les valeurs que de la dernière ligne testée.

Je suis bien d'accord, c'est bien pour ça que je ne suis pas persuadé que ce soit la solution ...

Citation:

---

Envoyé par Mathiis

Je suis bien d'accord, c'est bien pour ça que je ne suis pas persuadé que ce soit la solution ...

---

Peut-être une structure Select Case sur registration serait plus adaptée alors.

Je ne connais pas cette fonction, je vais me renseigner.

Merci !!

Bonjour,

Une piste pour le dysfonctionnement constaté :

Code:

---

1 2 3 4 5 6

With Sheets("Maintenance logbook")   For i = 2 To nAc If Range("A" & i).Value = AcRegistration Then b = Range("B" & i).Value d = Range("C" & i).Value

---

pas de "." devant les premiers Range : il sont donc relatifs à la feuille courante, par au with...
Je suppose qu'en debug, par chance, la feuille courante est Maintenance logbook, et en mode normal celle qui contient le bouton...