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 ?