Discussion :

[flo1411]

Bonjour à tous,
Voilà mon problème : j'ai une cellule qui contient une chaine de caractères du type 20005 - 713501.AM - SWAP. Ce que je veux, c'est extraire ce qu'il y a entre les "-" et y mettre dans cette même cellule.
Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    Dim x, y As Integer
    Dim CI As String
    For x = 8 To 11 Step 3
        For y = 4 To 8
            Dim Tableau() As String
            Tableau = Split(Pointage.Cells(x, y), "-")
            CI = Tableau(1)
            Cells(x, y).Value = CI
        Next
    Next

Le problème vient du "Tableau(1)". Quand j'exécute ma macro, la cellule contient bien ce que je veux mais j'ai un message erreur disant : L'indice n'appartient pas à la sélection. Pouvez-vous m'aider svp ?

[pc75]

Bonjour,

De mémoire, l'indice d'un tableau commence à zéro.

[flo1411]

Oui c'est exact. Dans l'exemple,
Tableau(0) = 20005
Tableau(1) = 713501.AM
Tableau(2) = SWAP
donc Tableau(1) est bien la valeur que je veux mais j'ai ce message d'erreur que je ne comprends pas...

[pc75]

Et si tu enlèves cette ligne ?

Code :

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

1
2
 
Dim Tableau() As String

[flo1411]

Même problème...

[pc75]

Re,

C'est pas plutôt cette ligne là qui met le bronx ?

Code :

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

1
2
 
For x = 8 To 11 Step 3

Après le premier passage, x vaut 10. Donc, au deuxième, Tableau(1) ne peut pas être initialisé non ?