![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
guillaumepops
j'avais oublié le .xls
j'aurais du le voir aussi...je dois être fatigué ![:roll:](https://www.developpez.net/forums/images/smilies/icon_rolleyes.gif)
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
NI = Sheets("GrapheB").Cells(x + 6, "H").Value
On va reprendre depuis le début...
![Citation](https://forum.developpez.be/images/misc/quote_icon.png)
Envoyé par
guillaumepops
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 :
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 |
Partager