Problème de boucle [resolu]

Problème de boucle [resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 29-04-2010 à 20:44:13    

Bonjour
 
Ayant un paquet de données à traiter par excel (près de 17000 !) je me suis intéressée aux macros et à VBA pour me simplifier la vie. Mais je rencontre un problème dans un code, j'arrive pas à voir ce qui ne va pas...
 
Dans une colonne (colonne C), j'ai des lettres qui correspondent à un code qualité. Je veux, en fonction de cette lettre, dire si la donnée correspondante est valide ou pas. Voilà le code que j'ai pour le moment :
 

Code :
  1. Dim i As Double, j As Double, compteur As Double
  3. 'Popup pour demander i et j
  4. i = InputBox("Premiere ligne " )
  5. j = InputBox("Derniere ligne " )
  7.     'Boucle type For...To ... Next
  8. For compteur = i To j
  10.     Dim Sortie As String
  12. 'Décision fonction du contenu de la cellule
  13.     Select Case Cells(i, 3)
  14.         Case "A", "P", "O", "R":
  15.             Sortie = "Valide"
  16.         Case "C", "Z", "M", "D", "N", "I", "B":
  17.             Sortie = "Invalide"
  18.         Case Else
  19.             Sortie = "Invalide"
  20.     End
  21.     End Select
  23. 'On envoie le résultat où il faut
  24. Feuil1.Cells(i, 5) = Sortie
  26. Next compteur


 
Ca marche... Mais uniquement pour ma première cellule.... Ce qui me laisse penser que ma boucle a un problème, mais quoi  ^^"
Si vous pouviez m'aider... Je désespère ^^"


Message édité par Bluesoram le 30-04-2010 à 09:02:59
Reply

Marsh Posté le 29-04-2010 à 20:44:13   

Reply

Marsh Posté le 30-04-2010 à 07:07:23    

Bonjour,
remplace les  
Cells(i, 3)   par Cells(compteur, 3)
 
Cells(i, 5)   par Cells(compteur, 5)
 
dans ta boucle.
Cordialement

Reply

Marsh Posté le 30-04-2010 à 09:00:55    

Merci beaucoup, ça fonctionne parfaitement à présent !

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed