Discussion :

[flo1411]

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.

[Guiiand]

Bonjour,

Comment as-tu défini ton tableau ?

car la je ne vois aucune déclaration

essaye de faire un

Code :

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

Dim tableau(LaLongueurSouhaitePourLeTableau)

[Daniel.C]

Bonjour,

L'indice de la première partiie est 0. Tableau(2) est donc la troisième partie. Par exemple :

Code :

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

Tableau = Split("aaa-bbb-ccc", "-")

Tableau(2) correspondra à ccc. S'il n'y a pas deux tirets dans la chaine, tu auras cette erreur.

Pour récupérer la dernière partie :

Code :

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

MsgBox Tableau(UBound(Tableau))

[flo1411]

Rebonjour,

J'avais déjà esssayé d'écrire :

Code :

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

Dim Tableau(3)

Mais j'ai l'erreur suivante : "Impossible d'affecter à un tableau" au niveau de la ligne :

Code :

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

Tableau = Split(Pointage.Cells(x, y), "-")

Ma cellule contient au départ ce genre de texte : "20005 - COGOLIN - 713501.EV - routage". Et je veux récupérer "713501.EV" donc Tableau(2).
Donc je ne vois toujours pas...

[Invité]

Bonjour,
Il peut être intéressant de s’assurer de la conformité des données :

Code :

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

1
2
3
4
5
6
7
8
Sub TestSplit()
Const txt = "aaa-bbb-ccc"
CI = ""
If InStr(1, txt, "-") <> 0 Then
    Tableau = Split(txt & "--", "-")
        If Trim("" & Tableau(2)) <> "" Then CI = Tableau(2)
End If
End Sub

en plus CI est un string et Tableau(2) non:

Code :

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

CI = Trim("" & Tableau(2))

[flo1411]

J'ai essayé ce test mais ça ne fonctionne toujours pas... N'avez-vous pas une autre idée à me soumettre ?

[issoram]

Bonjour,

Quelle est la valeur de la cellule "Pointage.Cells(x, y)" qui fait planter l'instruction

Code :

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

Cells(x, y).Value = CI

?

[BenjGe]

Rebonjour,

J'avais déjà esssayé d'écrire :

Code :

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

Dim Tableau(3)

Mais j'ai l'erreur suivante : "Impossible d'affecter à un tableau" au niveau de la ligne :

Code :

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

Tableau = Split(Pointage.Cells(x, y), "-")

Ma cellule contient au départ ce genre de texte : "20005 - COGOLIN - 713501.EV - routage". Et je veux récupérer "713501.EV" donc Tableau(2).
Donc je ne vois toujours pas...

Au sujet de cette erreur regardez ceci:

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
Sub test()
' test de split avec un tableau de type variant
Dim tableau()
Debug.Print VBA.Information.TypeName(tableau)
 
On Error Resume Next
tableau = Split("test-de-tableau", "-")
Select Case Err.Number
    Case 0
        Debug.Print "La procédure s'est déroulé normalement et tableau(2) vaut " & tableau(2)
    Case Else
        Debug.Print "Erreur d'affectation du résultat de split (tableau de texte)"
End Select
On Error GoTo 0
 
 
'test d'affectation avec un tableau de type texte
Dim tableau2() As String
Debug.Print VBA.Information.TypeName(tableau2)
On Error Resume Next
tableau2 = Split("test-de-tableau", "-")
Select Case Err.Number
    Case 0
        Debug.Print "La procédure s'est déroulé normalement et tableau(2) vaut " & tableau2(2)
    Case Else
        Debug.Print "Erreur d'affectation du résultat de split (tableau de texte)"
End Select
On Error GoTo 0
 
End Sub

il aurait donc fallu déclarer:

Code :

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

dim tableau() as string

[Invité]

Bonsoir Benjîle,
J'ai extrait ça de son code le problème ne vient pas du split!

Code :

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

1
2
3
4
5
6
7
8
For x = 8 To 9 Step 1
        For y = 4 To 8 Step 1
            If  Pointage.Cells(x, y).Value) <> "" Or Pintage.Cells(x, y).Value <> "Férié" Or Pointage.Cells(x, y).Value <> "Congé" Then
                Tabl = Split(Pointage.Cells(x, y).Value, "/")
                Pointage.Cells(x, y).Value = Tabl(2)
            End If      
  Next
    Next

[BenjGe]

j'ai vu j'ai vu mais il a eu un problème sur split, et c'est un problème que j'ai mis un bout de temps à comprendre, donc je voulais partager

désolé pour le hors sujet