Problème avec la fonction Split et un tableau

**flo1411** · 04/04/2013, 10h48

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** · 04/04/2013, 10h56

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** · 04/04/2013, 11h00

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** · 04/04/2013, 12h24

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é · 04/04/2013, 12h48

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** · 04/04/2013, 13h36

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

**issoram** · 04/04/2013, 14h32

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

?

**Daniel.C** · 04/04/2013, 15h03

Si tu es sûr de tes données, tu peux écrire directement :

Code :

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

MsgBox Split(Pointage.Cells(x, y), " - ")(2)

Si tu es à court d'idées, mets un classeur exemple - sans données confidentielles - en PJ.

**flo1411** · 04/04/2013, 15h15

J'ai légèrement changé mon code qui ressemble maintenant à ça :

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 Tabl() As String
For x = 8 To 9 Step 1
    For y = 4 To 8 Step 1
        If Pointage.Cells(x, y).Value <> "" Or Pointage.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

Ce qui plante c'est :

Code :

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

Pointage.Cells(x, y).Value = Tabl(2)

L'erreur est la suivante : "L'indice n'appartient pas à la sélection".
J'y comprends rien... C'est le "Tabl(2)" qui foire mais je sais pas pourquoi...

**pc75** · 04/04/2013, 16h11

Bonjour,

Envoyé par Daniel.C

Si tu es à court d'idées, mets un classeur exemple - sans données confidentielles - en PJ.

+1000

**flo1411** · 12/04/2013, 16h56

Voici mon fichier en pièce jointe.
Le code est dans le module 1, méthode "Public Sub BT_OK_2_Clic()". C'est sans doute pas optimisé mais faites y pas attention...
J'attends vos remarques pour m'aider.
Merci d'avance.

Invité · 12/04/2013, 19h11

bonjour,
je n'ai pas tous regardé, mais j'ais trouvé une erreur:

Code :

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

If  Pointage.Cells(x, y).Value <> "" Or Pointage.Cells(x, y).Value <> "Férié" Or Pointage.Cells(x, y).Value <> "Congé" Then

"" c'est bien différent "Congé" ["" or Pointage.Cells(x, y).Value <> "Congé" ]

Code :

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

If Trim("" & Pointage.Cells(x, y).Value) <> "" and  Pointage.Cells(x, y).Value <> "Férié" andPointage.Cells(x, y).Value <> "Congé" Then

petite astuce:
Et (AND)-> 0 X 1= 0
OU (OR)-> 0 + 1= 1
si tu enchaine des OR il suffit qu'une condition soit vrai pour que toute la formule soit vrai:
"" + "Férié" + "Congé" = vrai
"" X "Férié" X "Congé" = faux

**BenjGe** · 12/04/2013, 20h27

Envoyé par 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...

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é · 12/04/2013, 20h44

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** · 12/04/2013, 21h09

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

**patricktoulon** · 14/04/2013, 18h30

Bonjour

tu pourrais tester le nombre de ligne dans ton tablo splité

Code :

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

if ubound(split(quelquechose,"-"))> X then

Au plaisir

**flo1411** · 15/04/2013, 09h56

Merci

Apparemment ça venait des OR que j'ai remplacé par des AND. Merci pour votre aide !

Problème avec la fonction Split et un tableau [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager