Problème avec la fonction Split et un tableau

Bonjour à tous,

Tout d'abord, voici mon code :

Code:

---

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.

Bonjour,

Comment as-tu défini ton tableau ?

car la je ne vois aucune déclaration

essaye de faire un

Code:

---

Dim tableau(LaLongueurSouhaitePourLeTableau)

---

Bonjour,

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

Code:

---

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:

---

MsgBox Tableau(UBound(Tableau))

---

Rebonjour,

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

Code:

---

Dim Tableau(3)

---

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

Code:

---

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... :(

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

Code:

---

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:

---

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

---

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

Bonjour,

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

Code:

---

Cells(x, y).Value = CI

---

?

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

Code:

---

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

---

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

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

Code:

---

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:

---

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...

Bonjour,

Citation:

---

Envoyé par Daniel.C

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

---

+1000

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.

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

Code:

---

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:

---

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

Citation:

---

Envoyé par flo1411

Rebonjour,

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

Code:

---

Dim Tableau(3)

---

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

Code:

---

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:

---

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:

---

dim tableau() as string

---

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

Code:

---

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

---

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

Bonjour

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

Code:

---

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

---

Au plaisir

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