Probleme de sous procedure

Bonjour a tous,

Dans une procedure, a un moment j'ai une boucle: i=66 to 70
Je souhaites que dans le code a l'interieur de cette boucle utiliser une sous procedure pour que mon 66 devienne 1, mon 67 -> 22, 68 -> 25, 69 -> 29 et 70 devienne 41.

J'ai donc cree une sous procedure toute simple qui est la suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sub conversion(ByRef x as Integer) Select Case x Case is = 66 x = 1 Case is = 67 x = 22 Case is = 68 x = 25 Case is = 69 x = 29 Case is = 70 x = 41 Case Else End Select   end sub

---

puis je teste en faisant:

Code:

---

1 2 3 4 5 6 7 8 9 10

sub testconversion() Dim i as Integer   For i = 66 to 70 conversion i Debug.Print Cells(i,1).value 'car le but est de recuperer des valeurs de cellule Next i   End Sub

---

J'ai l'erreur 1004 Application-defined or object-defined qui apparait a ma ligne ou il y a debug.print (j'ai essaye avec MsgBox et idem ca ne marche pas)

Mais si je fais:

Code:

---

1 2 3 4 5 6 7 8 9 10

sub testconversion() Dim i as Integer   i = 66 'puis ensuite je change manuellement jusqu'a 70 conversion i Debug.Print Cells(i,1).value     End Sub

---

Bah la ca marche! Pourquoi? Je ne comprends pas pourquoi le fait d'utiliser une boucle m'empeche de convertir correctement. Comment puis-je trouver une methode/astuce pour obtenir ce que je veux?

Merci de votre aide

vanhoa

Bonjour,


Déjà tu utilise Cells sans le préfixer par le couple classeur/feuille et donc tu travaille sur la feuille active ...: est tu sur d'avoir une feuille de calcul active au moment de l'exécution de ton code ...?



tu peu aussi regarder la valeur de ton i après convertion.. précède la ligne :

Code:

---

Debug.Print Cells(i,1).value 'car le but est de recuperer des valeurs de cellule

---

d'un

Code:

---

Debug.Print i

---

par exemple.


Cdt.

Bonjour,

Oui, dans mon code, j'utilise le nom interne de la feuille, je voulais juste simplifier pour mon exemple.
J'avais deja essaye avec seulement i, et ca me lancait une boucle qui ne se terminait pas, donc oblige de faire ctrl+break

vanhoa

Citation:

---

Envoyé par vanhoa

Bonjour,

Oui, dans mon code, j'utilise le nom interne de la feuille, je voulais juste simplifier pour mon exemple.
J'avais deja essaye avec seulement i, et ca me lancait une boucle qui ne se terminait pas, donc oblige de faire ctrl+break

vanhoa

---

à oui j'avais pas vu tu modifie le "i" d'une boucle for dans cette boucle.... il ne faut pas ... utilise une variable supplémentaire ou transforme ta sub convertion en fonction


var supplémentaire

Code:

---

1 2 3 4 5 6 7 8

Dim i as Integer Dim x As integer For i = 66 to 70 x = i ' affecte à x la valeur de i pour ensuite utiliser x et ainsi préserver i.. conversion x Debug.Print Cells(x,1).value 'car le but est de recuperer des valeurs de cellule Next i

---

ou bien en transformant conversion en fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

function conversion( x as Integer) as integer   Select Case x Case is = 66 conversion = 1 Case is = 67 conversion = 22 Case is = 68 conversion = 25 Case is = 69 conversion = 29 Case is = 70 conversion = 41 Case Else conversion = x End Select   end sub

---

et ensuite dans ta procédure

Code:

---

Debug.Print Cells(conversion(i),1).value

---

Super, merci beaucoup!
Je ne savais pas qu'on ne pouvait pas modifier la valeur de i, en terme de logique je me suis dit que tout collait et je ne voyais pas la ou ca clochait.
Un detail qui ne m'echappera plus desormais :-)

Merci

vanhoa

en fait c'est pas qu'on peu pas y toucher mais c'est qu'il vaut mieux éviter pour ne pas provoquer de problèmes dans ce genre..


ici tu as une boucle For qui fait varier i de 66 à 70 en l'incrémentant de 1 à chaque tour de cycle sauf que pendant ta fonction conversion transforme ton 66 en 1 , et à l'incrémentation suivante (au Next) i passe à 2 ...

i s'incrémente alors à chaque tours de boucle de 1..à 66 puis une fois à 66 la fonction conversion le repasse à 1 .. et l'on "repart pour un tour"...


;)

Ok! je comprends maintenant pourquoi sur mon debug.print j'avais une serie de 0, la boucle tourne jusqu'a rencontrer a nouveau le 66 puis recommence a 1...

Du coup j'ai une preference pour la solution passage par la fonction, je trouve ca plus elegant et ce sera plus propre dans mon code ou j'utilise cette conversion.

Merci encore!

vanhoa