[VBA-E] while et do while

Bonjour,

Je travaille actuellement à extraire des données d'une feuille en compilant les informations importantes dans une autre feuille.

Pour cela, je dois "scanner" les lignes de ma feuille (dont le nombre est indéterminé). Je me suis donc orienté vers l'utilisation d'un "Do while".

Pourtant son utilisation reste obscure à mes yeux en VBa (je l'utilise en C et en java). Aide incluse est muette sur l'utilisation de celui-ci et je n'ai trouvé aucune référence à celui-ci si ce n'est une partie de la faq ou l'on voit apparaitre un "Do while not... Loop".

J'ai donc réutilisé cette syntaxe :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Do While Range("A" & numcase).Value = "" Sheets("Batch SIN " & annee).Select Range("F" & numcase).Select DatEnt = ActiveCell.Value If Mid(DatEnt, 7, 4) = annee Then NumSem = NoSem(DatEnt) Sheets(nomfeuille).Select Range("C" & (7 + NumSem)).Select ActiveCell.Value = ActiveCell.Value + 1 End If numcase = numcase + 1 Loop
Je commence à scanner mes lignes à la ligne 11 et je devrait théoriquement m'aréter à la ligne 54. Cependant le traitement se finit en s'étant arêter à la ligne 31, ce que je ne comprends pas... (Le champ en A31 est renseigner de la même façon que les lignes précédentes et suivantes...)

Le reste du traitement situer dans ma boucle s'effectue correctement (jusqu'à la ligne 31).

Merci de votre aide,

Aethis

Salut :D
Peut-être tu devrais mettre le

Code:

Sheets("Batch SIN " & annee).Select

en fin de boucle (avant le "Loop"). Je crois que dans le cas où tu remplis ta condition "If", tu changes de feuille, mais tu n'as pas d'instruction pour revenir à ta feuille initiale avant la fin de la boucle

Donc, je viens d'essayer avec le Trim("") et le résultat est le même.
edit : suite au message de ousk qui l'a supprimé

La ligne suivante ne contient pas d'espace (je viens de vérifier).

Quand au fait de changer le feuille avant la fin de la boucle, je ne vois pas l'intérêt vu que je le fais en début de boucle et que je ne fais pas de traitement en fin de boucle sur cette feuille. (mais je vais tester au cas où ;) )

Edit 2 :

avec ça je passe même pas à la ligne 12... Bref, j'ai pas tout compris ^^'
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Do While Range("A" & numcase).Value = "" Sheets("Batch SIN " & annee).Select Range("F" & numcase).Select DatEnt = ActiveCell.Value If Mid(DatEnt, 7, 4) = annee Then NumSem = NoSem(DatEnt) Sheets(nomfeuille).Select Range("C" & (7 + NumSem)).Select ActiveCell.Value = ActiveCell.Value + 1 End If Sheets("Batch SIN " & annee).Select numcase = numcase + 1 Loop

J'ai effacé mon message car j'avais lu (et je ne pense pas me tromper)

Citation:

Do While Range("A" & numcase).Value = """

au lieu de

Citation:

Do While Range("A" & numcase).Value = ""

Ceci dit, Do While voulant dire "Tant que", si tes cellules de la colonne A sont TOUTES renseignées, je suis fort étonné que tu rentres dans la boucle et que tu fasses quoi que ce soit dans tes lignes 11 à 31
Et c'est pareil quelque soit le langage
Essaie donc avec

Code:

Do While Range("A" & numcase).Value <> ""

et dis-nous ;)
A+

Psst ! Tu l'avais pas vue celle-là, cwain !!! :mouarf:

Citation:
Envoyé par Aethis
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Do While Range("A" & numcase).Value = "" Sheets("Batch SIN " & annee).Select Range("F" & numcase).Select DatEnt = ActiveCell.Value If Mid(DatEnt, 7, 4) = annee Then NumSem = NoSem(DatEnt) Sheets(nomfeuille).Select Range("C" & (7 + NumSem)).Select ActiveCell.Value = ActiveCell.Value + 1 End If numcase = numcase + 1 Loop
Personnellement, je n'aurai pas utilisé de boucle While, mais plutot un simple For :)

De cette façon :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sheets("Batch SIN " & annee).Select for i =1 to range("A1").end(xldown).row Range("F" & i).Select DatEnt = ActiveCell.Value If Mid(DatEnt, 7, 4) = annee Then NumSem = NoSem(DatEnt) Sheets(nomfeuille).Select Range("C" & (7 + NumSem)).Select ActiveCell.Value = ActiveCell.Value + 1 End If Sheets("Batch SIN " & annee).Select next i
(en espérant ne pas m'etre trompé dans ma recopie :mrgreen:)

Sinon pour ton code, c'est normal qu'il s'arrete a la ligne 12, vu que dans ta condition du While :

Code:

Do While Range("A" & numcase).Value = ""

TU lui dit ""Fait tant que la cellule est vide, gnagnagna", vu que ta cellule (si j'ai bien compris) est pleine, il ne rentre pas dans la boucle :) faut que ut mette :

Code:

Do While Range("A" & numcase).Value <> ""

EDIT : crotte grillé par le Dodo :mrgreen:

L'intérêt, c'est que la condition (pour que ta boucle tourne) porte sur une cellule d'une feuille. Si tu changes de feuille en cours de boucle et que tu arrives au Loop, VBA va vérifier la condition sur la nouvelle feuille que tu as sélectionnée.

Essaie de mettre des points d'arrêts dans ton code pour voir ce qui ne va pas

Citation:

Ceci dit, Do While voulant dire "Tant que", si tes cellules de la colonne A sont TOUTES renseignées, je suis fort étonné que tu rentres dans la boucle et que tu fasses quoi que ce soit dans tes lignes 11 à 31
Et c'est pareil quelque soit le langage

Je sais bien, c'est pour ça que j'avais commencer par mettre Do whle not..., mais je ne rentrais pas dans la boucle.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 numcase = 11 Do While Range("A" & numcase).Value <> "" Sheets("Batch SIN " & annee).Select Range("F" & numcase).Select DatEnt = ActiveCell.Value If Mid(DatEnt, 7, 4) = annee Then NumSem = NoSem(DatEnt) Sheets(nomfeuille).Select Range("C" & (7 + NumSem)).Select ActiveCell.Value = ActiveCell.Value + 1 End If Sheets("Batch SIN " & annee).Select Range("G" & numcase).Select If ActiveCell.Value <> "" Then DatEnt = ActiveCell.Value If Mid(DatEnt, 7, 4) = annee Then NumSem = NoSem(DatEnt) Sheets(nomfeuille).Select Range("D" & (7 + NumSem)).Select ActiveCell.Value = ActiveCell.Value + 1 End If End If numcase = numcase + 1 Loop
et en changeant le code c'est le même problème, je ne rentre pas dans la boucle (vérifier à coup de F8)...

ps : j'ai rajouté un peu de code dans ma boucle vu que je dois faire un deuxième traitement, mais le problème n'est pas là ^^.

Bon OK, j'avais pas vu le = au lieu du <> !
:ave:

Citation:

Envoyé par cwain

L'intérêt, c'est que la condition (pour que ta boucle tourne) porte sur une cellule d'une feuille. Si tu changes de feuille en cours de boucle et que tu arrives au Loop, VBA va vérifier la condition sur la nouvelle feuille que tu as sélectionnée.

Essaie de mettre des points d'arrêts dans ton code pour voir ce qui ne va pas

c'est bon, j'ai trouvé, grace à ta remarque d'ailleur ;)

Je ne selectionnais pas la bonne feuille avant de commencer le traitement :aie:

Merci de votre aide.

Alors tu avais deux erreurs ;)