Bonjour à tous,

Tout d'abord, voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Dim x, y As Integer
Dim CI As String
For x = 8 To 9 Step 1
    For y = 4 To 8 Step 1
        If Cells(x, y).Value <> "" Then
            Tableau = Split(Pointage.Cells(x, y), "-")
            CI = Tableau(2)
            Cells(x, y).Value = CI
        End If
    Next
Next
En gros, je parcours les cellules d'un tableau et dès que l'une d'elles n'est pas vide, je fais un split afin de récupérer une partie de son contenu, le stocke dans la variable CI, et remplace l'ancien contenu de la cellule par la variable. Mais j'ai une erreur "L'indice n'appartient pas à la sélection" au niveau de la ligne CI = Tableau(2).

Pouvez-vous me dire ce qui ne va pas svp ?
Merci beaucoup.