Discussion :

[Maneke]

Bonjour,
J'ai fait un petit script VBA sous Excel, il fonctionnait très bien jusqu'a ce que j'enregistre le fichier. Depuis j'ai une "erreur 9 Indice en dehors des limites du tableau"
N'ayant pas de tableau je ne comprends pas bien ce que ça veut dire, de plus que ça fonctionnait avant d'enregistrer.
Le script s'arrete à la ligne 10.

QQun pourrait m'éclairer svp ?

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
 
Sub Macro7()
'
' Macro7 Macro
'
For i = 1 To 10
    j = i + 1
    k = i * 2
 
        Worksheets("Données").Range("A" & j).Copy Worksheets("KMZ").Range("A" & k) 'folder
        Worksheets("Données").Range("L" & j).Copy Worksheets("KMZ").Range("B" & k) ' name
        Worksheets("Données").Range("M" & j).Copy Worksheets("KMZ").Range("C" & k) 'latitude
        Worksheets("Données").Range("N" & j).Copy Worksheets("KMZ").Range("D" & k) 'longitude
        Worksheets("Données").Range("O" & j).Copy Worksheets("KMZ").Range("E" & k) 'altitude point
        Worksheets("Données").Range("P" & j).Copy Worksheets("KMZ").Range("K" & k) 'azimuth point
        If Worksheets("Données").Cells(j, 5) = "OUI" Then Worksheets("KMZ").Cells(k, 11) = "0" 'headind 0 pour les ballons
        Worksheets("KMZ").Cells(k, 6) = "Azimuth visee = " & Worksheets("KMZ").Cells(k, 11) & "°" 'azimuth visee
        Worksheets("KMZ").Cells(k, 7) = "red" 'couleur visee
        If Worksheets("Données").Cells(j, 5) = "OUI" Then Worksheets("KMZ").Cells(k, 8) = 175 Else Worksheets("KMZ").Cells(k, 8) = 196 'icone
        Worksheets("KMZ").Cells(k, 9) = "AGL" 'mode d'altitude
        Worksheets("KMZ").Cells(k, 10) = "green" 'couleur ligne d'icone en altitude
 
Next i
 
End Sub

[Pierre Fauconnier]

Salut.

Tu as probablement une de tes deux feuilles qui n'est pas nommée comme dans ton code. As-tu plusieurs classeurs ouverts? Ton code par du principe que tu travailles avec le classeur actif. A toi de vérifier que c'est le bon classeur lorsque tu démarres ta macro.

[Maneke]

Salut,
tu as raison, en fermant les autres feuilles ça fonctionne de nouveau.
Y at-il un moyen de s'assurer que ma macro ne fonctionne que sur ce classeur ?

[Pierre Fauconnier]

Rattache tes feuilles au classeur en utilisant des variables.

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
Sub Macro7()
'
' Macro7 Macro
'
 
Dim Source As Worksheet, target As Worksheet
 
Set Source = ThisWorkbook.Worksheets("Données")
Set target = ThisWorkbook.Worksheets("KMZ")
For i = 1 To 10
    j = i + 1
    k = i * 2
 
        Source.Range("A" & j).Copy target.Range("A" & k) 'folder
        Source.Range("L" & j).Copy target.Range("B" & k) ' name

Perso, il me semble que je travaillerais avec des tableaux structurés (au moins pour l'onglet Données). Ca simplifierait le code. Si tu souhaites qu'on améliore ton code, poste une copie d'écran des deux feuilles que l'on puisse de faire une idée de la conception à mettre en place. Il semble que ton code transfère des données d'une feuille à l'autre et selon la conception de tes feuilles, on pourrait probablement améliorer et réduire le code.

[Maneke]

voici les copies écran des feuilles.





Mon problème est revenu. J'exporte la feuille KMZ en csv pour ensuite la traiter dans Google Earth mais à chaque fois que je le fais je me retrouve avec une erreur 9

[Pierre Fauconnier]

Dans ton code tu parles de la feuille KMZ, mais l'illustration montre que la feuille s'appelle Traitement_KMZ...

[Maneke]

Bien vu
En fait quand j'exporte la feuille KMZ sous le Nom TraitementKMZ, il renomme la feuille.
Je vais peut être mettre l'export directement dans ma macro, ça m'évitera des soucis.
Merci