Discussion :

[Aethis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cwain]

Salut
Peut-être tu devrais mettre le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Aethis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

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

au lieu de

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et dis-nous
A+

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

[Aethis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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à ^^.

[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

[cwain]

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

[Aethis]

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

Merci de votre aide.

[ouskel'n'or]

Alors tu avais deux erreurs

[illight]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

EDIT : crotte grillé par le Dodo