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