Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1204 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de boucle [resolu]

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Problème de boucle [resolu]

n°1988872
Bluesoram
Posté le 29-04-2010 à 20:44:13  profilanswer
 

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
  2. 'Popup pour demander i et j
  3. i = InputBox("Premiere ligne " )
  4. j = InputBox("Derniere ligne " )
  5.     'Boucle type For...To ... Next
  6. For compteur = i To j
  7.     Dim Sortie As String
  8. 'Décision fonction du contenu de la cellule
  9.     Select Case Cells(i, 3)
  10.         Case "A", "P", "O", "R":
  11.             Sortie = "Valide"
  12.         Case "C", "Z", "M", "D", "N", "I", "B":
  13.             Sortie = "Invalide"
  14.         Case Else
  15.             Sortie = "Invalide"
  16.     End
  17.     End Select
  18. 'On envoie le résultat où il faut
  19. Feuil1.Cells(i, 5) = Sortie
  20. 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
mood
Publicité
Posté le 29-04-2010 à 20:44:13  profilanswer
 

n°1988915
seniorpapo​u
Posté le 30-04-2010 à 07:07:23  profilanswer
 

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

n°1988942
Bluesoram
Posté le 30-04-2010 à 09:00:55  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Problème de boucle [resolu]

 

Sujets relatifs
problème boucle while[CS4] Lancement en boucle {résolu}
[Résolu] Problème avec une boucle[Résolu] Probleme boucle coloration
Probléme avec une boucle forprobleme de double boucle et variables... [résolu]
probleme de boucle avec une date résolu[Résolu] Probleme boucle toute simple pourtant
[RESOLU] Problème avec un IF imbriqué dans une boucle FOR[PHP] Problème avec une boucle (RESOLU)
Plus de sujets relatifs à : Problème de boucle [resolu]


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR