Discussion :

[pleskyd]

Bonjour à tous,

Je rencontre un problème assez particulier...

J'ai une boucle qui rempli des cases d'une feuille Excel.

Code :

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

1
2
3
4
5
 For i = 1 To 5
        If Not TabColInfo(i).colonne = 0 Then
            Sheets("Projets").Cells(ligne_vide, TabColInfo(i).colonne).Value = TabColInfo(i).infosaisie
        End If
    Next i

ligne_vide est le numéro de la 1ère ligne vide déterminée dans une autre fonction.
TabColInfo(i).colonne est le numéro de colonne déterminée dans une autre fonction.
TabColInfo(i).infosaisie est la valeur à mettre dans la case et qui vient d'une saisie dans un Userform.

Mon problème est que pour i = 1, 3, 4 et 5 tout se passe bien mais pas pour i = 2 !!!!
Encore plus surprenant, quand je fait une ligne dédiée pour i = 2, ca fonctionne très bien !

Code :

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

1
2
'i = 2
'Sheets("Projets").Cells(ligne_vide, TabColInfo(i).colonne).Value = TabColInfo(i).infosaisie

Précision : ca fonctionnait très bien au début et plus du tout du jour au lendemain...

Je ne suis pas un pro de VB, il y a peut être une particularité qui m'échappe, en tout cas ma logique reste perplexe...

Quelqu'un a-t-il une idée d'où pourrait venir le problème ?
Merci d'avance pour votre aide.

[mercatog]

Refais ce petit test

Code :

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

1
2
3
For i = 1 To 5
    Debug.Print i & "  " & TabColInfo(i).colonne
    If TabColInfo(i).colonne > 0 Then

[pleskyd]

Merci pour la réponse, mais j'avais déjà fait le test et toutes mes variables contiennent bien la bonne valeur au moment de ma boucle.

Par contre je viens de faire une modif de la valeur max de ma variable i. Pour l'exemple j'avais mis 5 mais en fait dans mon code c'est une valeur x qui vaut 103.

Code :

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

1
2
3
4
5
6
 const x = 103
For i = 1 To x
        If Not TabColInfo(i).colonne = 0 Then
            Sheets("Projets").Cells(ligne_vide, TabColInfo(i).colonne).Value = TabColInfo(i).infosaisie
        End If
    Next i

Quand je remplace x par une petite valeur (5 ou 10), le cas i = 2 fonctionne. Quand x est une grande valeur (103), le cas i = 2 ne fonctionne pas, pourtant les autres cas i =1 , 3, ..., 103 fonctionnent bien.

Il y a une raison logique ? Ca va me rendre fou ce truc...

[mercatog]

Qu'est ce que tu as comme valeur de TabColInfo(i).colonne quand i=0?

[pleskyd]

TabColInfo(0).colonne = 33

J'utilise la colonne 33 pour mettre la date du jour donc i = 0 n'est pas dans ma boucle.

[mercatog]

Excuses, je voulais dire quand i=2