Fonction Split et For

Bonjour j'aimerai étendre mon code afin que cela sélectionne la ligne suivante une fois que cela est fait.
Malheureusement cela ne fonctionne pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub dab()   Dim Tab1() As String Dim Tab2(1,43) As String Dim i As Integer   i = 4 For j = 3 To 47   Tab1 = Split(Cells(i,j).Value, " - ") Tab2(0 ,j-3) = Tab1(0) Tab2(1, j-3) = Tab1(1)   Next j   End Sub

---

Si j'ai bien compris c'est du à la dimension du tableau (dynamique pour le split et de taille fixe pour le for) ?

Mais comment faire ?

Merci d'avance.

Bonjour Guillaumus,

Il y a une erreur dans ton code, une erreur de conception : de la colonne 3 à la colonne 47 --> cela donne 44 d'indice et non 43.

Pour ta problématique : Tu peux ajouter une dimension à ton tableau pour indiquer ton numéro de ligne. Quand tu redimensionnes un tableau VBA multidimensionnel, seul le dernier indice peut être utilisé avec le "Redim preserve".

Je t'ai écrit ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub dab() Dim Tab1() As String Dim Tab2() As String Dim i, j As Integer   'De la ligne 4 à la ligne 100 pour l'exemple For i = 4 To 100 'Je redimensionne à chaque nouvelle ligne ReDim Preserve Tab2(2, 44, i - 3) 'De la colonne 3 à la colonne 47 For j = 3 To 47 'Je teste le contenu pour savoir si le séparateur est présent If InStr(Cells(i, j).Value, " - ") > 0 Then Tab1 = Split(Cells(i, j).Value, " - ") Tab2(0, j - 3, i - 3) = Tab1(0) Tab2(1, j - 3, i - 3) = Tab1(1) Else Tab2(0, j - 3, i - 3) = "" Tab2(1, j - 3, i - 3) = "" End If Next j Next i   End Sub

---

Bertrand

Merci beaucoup c'est nickel !