Problème condition d'entrée dans une boucle

Bonjour à tous,

Voila cela fait 2h que je me prends la tête sur ce petit problème et je n'arrive pas à trouver mon erreur.

J'ai programmé la boucle suivante qui transforme des heures au format hexadécimal puis les copies dans une feuille Excel.

Lorsque j'execute mon programme, la condition d'entrée n'est pa vérifiée et j'ai le message:
"Heure_début_arret(j) = <Indice hors de la plage>"

Quelle est mon erreur?

Merci d'avance pour votre aide


Module:
Public Heure_début_arret() As Integer
Public Heure_fin_arret() As Integer

Fonction:
Dim j, i As Integer

Do While Heure_début_arret(j) <> 0
   
        h1 = Hex(Heure_début_arret(j) / 256) & ":" & Hex(Heure_début_arret(j) Mod 256)
        feuilleExcel2.Cells(i, 4) = h1
            
        h2 = Hex(Heure_fin_arret(j) / 256) & ":" & Hex(Heure_fin_arret(j) Mod 256)
        feuilleExcel2.Cells(i, 5) = h2
       
             i = i + 1
             j = j + 1
 
       Loop

Salut,
j est égale à quoi ?
Peut être devrais tu initialiser tes variables afin de rentrer dans la boucle

  Cliquer "Réponse Acceptée "
Partageons Notre Savoir & Nos Acquis - JML

Excusez moi, j'ai fait tellement d'essais que j'ai oublié de remettre l'initialisation de 'j' qui est égal à 0.

La variable heure_début _arret est tirée d'un tableau de mots venant d'un automate (%MW1000:200) par exemple si vous connaissez.

Je viens juste copier ce tableau dans le tableau VB que je vais ensuite copier ensuite dans un feuille Excel, mais je n'y arrive pas.

Pour info h1 et h2 sont des variant et les valeurs reçues de l'automate sont des entiers.

Merci