Discussion :

[Guillaumus]

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 :

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

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.

[Bear the french]

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 :

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

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

[Guillaumus]

Merci beaucoup c'est nickel !