Discussion :

[sebeni]

Bonjour,

Je souhaite découper une chaine de caractères et mettre chaque parti dans un tableau afin de pouvoir les retravailler par la suite.
J'ai un message d'erreur l'indice n'appartien pas à la sélection

Code :

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

var(a) = trig

Merci de votre aide.

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
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Dim var() As String  'Tableau récupérant les trigrammes
 
Sub NB_Postes()
 
Worksheets("Localisation_DT").Activate
Call Decoupe(Range("A24").Value)
Range("D2").Value = var(0)
Range("D3").Value = var(1)
 
End Sub
 
Function Decoupe(chaine As String)
 
Dim trig As String
Dim i As Integer, a As Integer
Dim car As String
 
a = 0
 
For i = 1 To Len(chaine) Step 1
    car = Mid(chaine, i, 1)
    If car <> " " And car <> "-" Then
        trig = trig + car
   Else
    var(a) = trig
    a = a + 1
    trig = ""
    car = ""
    End If
Next
 
'tableau = Split(chaine, "-")
 
End Function

[aalex_38]

Bonjour,

dans ta boucle il faut ajouter avant de valoriser :

Code :

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

ReDim Preserve var(a)

[sebeni]

Merci