Discussion :

[Mathiis]

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

[Franc]

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.

[Mathiis]

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.

[Mathiis]

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.

[Franc]

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 ?

[Mathiis]

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" ?