Discussion :

[guillaumepops]

Bonjour

je suis débutant dans le VBA et j'ai des difficultés à debugger mon programme

But:
mon fichier s'appelle Bcourbe.xls
J'ai 400 valeurs dans une feuille GrapheB en colonne et je veux faire une boule pour prendre la valeur dans une cellule x (x variant de 6 à 406) de la colonne H
La copié dans une autre feuille Donnée dans la cellule (AL2) puis récupéré une valeur correspondante à la cellule (AL5) et la copié dans la feuille GrapheB dans la colonne I à la ligne x


j'ai fait ce programme avec une boucle mais il me marque une erreur 9 l'indice n'appartient pas à la sélection.(ligne 6)
je ne comprends pas comment résoudre ce problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub prog()
Dim x As Integer
Dim NI As Variant
Dim e As Variant
For x = 0 To 400
NI = Workbooks("Bcourbe").Sheet("GrapheB").Cells(x + 6, H).Value
Donnee.Cells(2, AL) = "NI"
e = Workbooks("Bcourbe").Sheet("Donnee").Range("AL5").Value
GrapheB.Cells(x + 6, i) = "effort" & x
Next x
End Sub

je vous en remercie guillaume

[fring]

Bonjour,

La colonne dans Cells(Ligne, Colonne) peut être définie soit par son index (A = 1, B = 2, C = 3, etc...) soit par sa lettre mais dans ce cas elle doit être mise entre guillemets

Code :

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

Cells(x + 6, "H")

A corriger également pour les colonnes AL et I

D'autre part je crains que ça va coincer sur cette ligne aussi

Code :

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

Donnee.Cells(..., ...)

Que représente Donnee ?

[guillaumepops]

l'erreur est toujours la sur les la ligne NI et e

merci pour la correction précédente

[fring]

Je n'avais pas vu ton "Sheet", il doit s'écrire avec un "s" à la fin --> Sheets

[guillaumepops]

les deux lignes ci-dessous me marque toujours la même erreur "l'indice n appartient pas à la sélection"
Quand je rajoute le s à la fin ça change rien

Code :

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

NI = Workbooks("Bcourbe").Sheets("GrapheB").Cells(x + 6, "H").Value

Code :

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

e = Workbooks("Bcourbe").Sheets("Donnee").Range("AL5").Value

[fring]

Tu es certain de l'orthographe des noms de classeur et de feuilles ?
Le classeur "Bcourbe" est bien ouvert ?

[guillaumepops]

normalement oui j'ai ouvert VBA à partir de mon fichier excel Bcourbe.xls qui comporte plusieurs feuille GrapheB et Donnee
c'est pour ça je ne comprends pas

j'avais oublié le .xls et ça fonctionne même si dans e il me met des valeurs incohérente je dois peut être mettre une temporisation je sais pas
car je dois avoir des valeurs de la centaine et j'ai du mille milliard impossible

[fring]

j'avais oublié le .xls

j'aurais du le voir aussi...je dois être fatigué

Si ton code fait référence au classeur qui le contient, tu n'es pas obligé de le préciser, tu peux directement faire référence aux feuilles

Code :

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

NI = Sheets("GrapheB").Cells(x + 6, "H").Value

On va reprendre depuis le début...

J'ai 400 valeurs dans une feuille GrapheB en colonne et je veux faire une boule pour prendre la valeur dans une cellule x (x variant de 6 à 406) de la colonne H
La copié dans une autre feuille Donnée dans la cellule (AL2) puis récupéré une valeur correspondante à la cellule (AL5) et la copié dans la feuille GrapheB dans la colonne I à la ligne x

Essaie comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Sub prog()
Dim x As Integer
 
For x = 6 To 406
    Sheets("Donnee").Range("AL2") = Sheets("GrapheB").Range("H" & x)
    Sheets("GrapheB").Range("I" & x) = Sheets("Donnee").Range("AL5")
Next
 
End Sub

[guillaumepops]

en faite tout fonctionne correctement
mais quand j'enregistre ma donnée NI qui peut etre avec une virgule du style 1,23 ETC
Quand je la renvois sous excel il me marque un chiffre comme 123 ou 1230 etc