Sujet Précédent Sujet Suivant

VBA - erreur d'exécution 9

nobilis Messages postés 32 Date d'inscription vendredi 11 février 2005 Statut Membre Dernière intervention 21 mars 2005 - 17 mars 2005 à 15:25
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 - 18 mars 2005 à 17:23
Bonjour,

J'ai créé une macro excel qui me permettait de reprendre les informations (nom du sujet, journaliste et technicien) d'un tableau principal pour les placer dans deux tableaux (JT et JT+). Donc, le nom du sujet (reportage) était associé à un journaliste et à un technicien.

J'ai testé la macro plusieurs fois et tout semblait très bien fonctionner. Mais maintenant, j'ai l'erreur suivante qui apparaît : "erreur d'exécution '9' l'indice n'appartient pas à la sélection.

Pq est-ce que ça ne fonctionne plus alors que tout fonctionait très bien ?

Merci

'Si Calendrier JT/JT+ associée à un "JT", remplir
'les champs de JT dans tableau des Sujets JT


Dim tabCol(50), x, y As Integer


'Réinitialisation du tableau
For x = 0 To 50
tabCol(x) = 0
Next


y = 0 'Première cellule du tableau
j = 650 'Première ligne du tableau JT
For i = 8 To 474 Step 8

'Remplissage du tabCol avec les n° de colonnes remplies
For x = 3 To 26 If Cells(i + 1, x) <> "" Or Cells(i + 2, x) <> "" Then tabCol(y) x: y y + 1
Next x



If Cells(i + 7, 3).Value "JT" Or Cells(i + 7, 4).Value "JT" Or Cells(i + 7, 5).Value = "JT" Or Cells(i + 7, 6).Value = "JT" Or Cells(i + 7, 7).Value = "JT" Or Cells(i + 7, 8).Value = "JT" Or Cells(i + 7, 9).Value = "JT" Or Cells(i + 7, 10).Value = "JT" Or Cells(i + 7, 11).Value = "JT" Or Cells(i + 7, 12).Value = "JT" Or Cells(i + 7, 13).Value = "JT" Or Cells(i + 7, 14).Value = "JT" Or Cells(i + 7, 15).Value = "JT" Or Cells(i + 7, 16).Value = "JT" Or Cells(i + 7, 17).Value = "JT" Or Cells(i + 7, 18).Value = "JT" Or Cells(i + 7, 19).Value = "JT" Or Cells(i + 7, 20).Value = "JT" Or Cells(i + 7, 21).Value = "JT" Or Cells(i + 7, 22).Value = "JT" Or Cells(i + 7, 23).Value = "JT" Or Cells(i + 7, 24).Value = "JT" Or Cells(i + 7, 25).Value = "JT" Or Cells(i + 7, 26).Value = "JT" Then
Cells(j, 1).Value = "Sujet " & j - 649
Cells(j, 3).Value = Cells(i + 1, 1).Value & " - Journaliste : " & Cells(i + 1, tabCol((i - 8) / 8)).Value & " , Technicien : " & Cells(i + 2, tabCol((i - 8) / 8)).Value
Else: j = j - 1
End If
j = j + 1 'Passer à la ligne suivante du tableau JT

Next



Nobilis

5 réponses

Réponse 1 / 5
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
17 mars 2005 à 20:16
Salut,

C'est normal, tu dimensionnes ton tableau tabCol à 50 et ta boucle va de 8 à 474.
Plus loin il y tabCol((i - 8) / 8).
Pour une valeur de i = 474 ça donne par ex : tabCol(58.25).
Déjà, ça dépasse 50 et surtout, l'indice ne peut accepter des décimales.

Loup Gris
0
Réponse 2 / 5
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
17 mars 2005 à 20:22
Une solution serait d'abord que tu dimensionnes le tableau à + de 50.

Ensuite, tu crées une variable, mettons
dim lig as integer
lig = -1 'initialisation pour démarrer à 0

Puis :
For i = 8 To 474 Step 8
lig=lig+1
...
...
'et à la place de tabCol((i - 8) / 8) :
tabCol(lig).

Loup Gris
0
Réponse 3 / 5
nobilis Messages postés 32 Date d'inscription vendredi 11 février 2005 Statut Membre Dernière intervention 21 mars 2005 1
18 mars 2005 à 09:32
Grand merci Loup Gris

1) J'ai modifié ma ligne "For i = 8 to 474 Step 8" en "For i=8 to 400 Step 8" (c'est déjà mieux ;-) )

2) Pour la variable lig que tu me proposes d'intégrer, ma variable y, ne joue-t-elle pas le même rôle ? (voir ci-dessous)

3) Le problème survient déjà à la ligne :"If Cells(i + 1, x) <> "" Or Cells(i + 2, x) <> "" Then tabCol(y) x: y y + 1"

et précisément à "tabCol(y) = x"

-------------------------
Dim tabCol(50), x, y As Integer


'Réinitialisation du tableau
For x = 0 To 50
tabCol(x) = 0
Next


y = 0 'Première cellule du tableau
j = 650 'Première ligne du tableau JT

For i = 8 To 400 Step 8

'Remplissage du tabCol avec les n° de colonnes remplies
For x = 3 To 26 If Cells(i + 1, x) <> "" Or Cells(i + 2, x) <> "" Then tabCol(y) x: y y + 1
Next x



If Cells(i + 7, 3).Value "JT" Or Cells(i + 7, 4).Value "JT" Or Cells(i + 7, 5).Value = "JT" Or Cells(i + 7, 6).Value = "JT" Or Cells(i + 7, 7).Value = "JT" Or Cells(i + 7, 8).Value = "JT" Or Cells(i + 7, 9).Value = "JT" Or Cells(i + 7, 10).Value = "JT" Or Cells(i + 7, 11).Value = "JT" Or Cells(i + 7, 12).Value = "JT" Or Cells(i + 7, 13).Value = "JT" Or Cells(i + 7, 14).Value = "JT" Or Cells(i + 7, 15).Value = "JT" Or Cells(i + 7, 16).Value = "JT" Or Cells(i + 7, 17).Value = "JT" Or Cells(i + 7, 18).Value = "JT" Or Cells(i + 7, 19).Value = "JT" Or Cells(i + 7, 20).Value = "JT" Or Cells(i + 7, 21).Value = "JT" Or Cells(i + 7, 22).Value = "JT" Or Cells(i + 7, 23).Value = "JT" Or Cells(i + 7, 24).Value = "JT" Or Cells(i + 7, 25).Value = "JT" Or Cells(i + 7, 26).Value = "JT" Then
Cells(j, 1).Value = "Sujet " & j - 649
Cells(j, 3).Value = Cells(i + 1, 1).Value & " - Journaliste : " & Cells(i + 1, tabCol((i - 8) / 8)).Value & " , Technicien : " & Cells(i + 2, tabCol((i - 8) / 8)).Value
Else: j = j - 1
End If
j = j + 1 'Passer à la ligne suivante du tableau JT

Next

Nobilis
0
Réponse 4 / 5
nobilis Messages postés 32 Date d'inscription vendredi 11 février 2005 Statut Membre Dernière intervention 21 mars 2005 1
18 mars 2005 à 14:20
Personne pour m'aider ?

Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
18 mars 2005 à 17:23
Tu l'initialises y = 0 au début puis dans :

For x = 3 To 26 If Cells(i + 1, x) <> "" Or Cells(i + 2, x) <> "" Then tabCol(y) x: y y + 1
Next x

tu l'incrémentes 22 fois. Donc tu ne remplis ton tabCol(y) que de 0 à 22. Les valeurs de tabCol(23) à tabCol(50) sont donc à 0.

Loup Gris
0

Discussions similaires

erreur d'execution 9
cs_getrare -
getrare -

7 réponses
Erreur d'exécution '9' : l'indice n'appartient pas à la sélection
ptitemeuh -
ptitemeuh -

4 réponses
Erreur d’exécution 424 : objet requis
luciol8 -
Marion8316 -

7 réponses
Erreur 424 Objet requis Macro Excel
Gagou_c -
chouchouk8917 -

4 réponses
Erreur 424 "Objet requis"
cs_wow59 -
wow59 -

2 réponses
Rejoignez-nous