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.