Bonjour à tous,

j'ai un comportement bizarre avec un bout de code, si vous voulez vous y pencher quelques secondes...

Voilà ce que je veux faire : soit la première ligne de ma feuille active. Ses N premières colonnes sont remplies de chaînes de caractères. Etant donnée une colonne i, Je veux découper la chaîne avec la fonction split (et le délimiteur " ") puis coller les m sous-chaînes récupérées dans le tableau que renvoie split sur les m premières lignes de la colonne.

Voilà mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Worksheets("Feuil2").Activate
For i = 1 To N
s = ActiveSheet.Cells(1, i)
    If s <> "" Then
    t = Split(s, " ")
    j = 0
    For j = 0 To UBound(t)
        ActiveSheet.Cells(j + 1, i) = t(j)
    Next j
    End If
Next i
Voilà le problème :
Pour la colonne 1, tout se passe bien. A partir de la colonne 2, les deux premières lignes sont vides, autrement dit, au lieu de remplir les lignes 1 à m, la procédure remplit les lignes 3 à m+2.

Quelqu'un aurait une idée ?
Merci beaucoup,