Problème avec une boucle do while

Résolu/Fermé

Orelyi - 21 janv. 2012 à 14:59
Orelyi - 25 janv. 2012 à 21:11

Bonjour,

Je suis débutante en VBA et je viens de me lancer dans une des premières macros et je ne comprends pas pourquoi ma boucle do loop while ne fonctionne pas.

Do

Sheets("sheet2").Select
POcomplet = Cells(k, 1)
Sheets("ListePO").Select

For Each cell1 In Range("B2:B200")

Sheets("ListePO").Select

If cell1 = POcomplet Then
cell1 = "complet"
End If
Sheets("sheet2").Select

Next
k = k + 1
Loop While Cells(k, 1) <> ""
J'ai 2 listes: une dans sheet2 et l'autre dans liste PO et je souhaite comparer les 2, si une des valeurs dans liste PO et également présente dans sheet 2 je remplace alors la valeur par "complet"
Je voulais faire cela avec deux boucles do while imbriquées mais cela ne fonctionne pas, j'ai alors choisi l'alternative avec des boucles for each et là cela fonctionne. Cependant c'est très long et je pense qu'avec un do while cela serait plus efficace.

Est ce que qqn aurait une idée du problème?

Merci d'avance

A voir également:

1 réponse

Réponse 1 / 1

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
21 janv. 2012 à 17:41

bonjour

1. quelques simplifications dans ton code (les Select ne sont pas terribles)
au point de vue rapidité ça ne devrait pas être très significatif avec deux boucles do ... loop while
j'ai ajouté un exit for qui permet de quitter la boucle for each dès que POComplet est trouvé dans la feuille ListePO

Do
  k = 1
  POcomplet = Sheets("sheet2").Cells(k, 1)
   For Each cell1 In Sheets("ListePO").Range("B2:B200")
     If cell1 = POcomplet Then
       cell1 = "complet"
       exit for
     End If
   Next
  suite:
  k = k + 1
Loop While Sheets("sheet2").Cells(k, 1) <> ""

2. un code un peu plus explicite avec deux boucles for ... next

Dim liPO As Long, lifinPO As Long
Dim lish2 As Long, lifinsh2 As Long
Dim POcomplet
' desactive le rafraichissement ecran
Application.ScreenUpdating = False
' recuperation de la dernière ligne non vide feuille ListePO colonne 1
lifinPO = Sheets("ListePO").Cells(Rows.Count, 1).End(xlUp).Row
' recuperation de la dernière ligne non vide feuille sheet2 colonne 2
lifinsh2 = Sheets("sheet2").Cells(Rows.Count, 2).End(xlUp).Row
' on decrit la liste de la feuille sheet2
For lish2 = 2 To lifinsh2
  POcomplet = Sheets("sheet2").Cells(lish2, 2).Value
  ' pour cette valeur de v on décrit la feuille ListePO
  For liPO = 1 To lifinPO
    If Sheets("ListePO").Cells(liPO, 1).Value = POcomplet Then
      ' on met complet dans la cellule a droite (pour ne pas effacer)
      Sheets("ListePO").Cells(liPO, 2).Value = "complet"
      ' on quitte la boucle si POComplet dans sheet2 ne figure
      ' qu'une fois dans ListePO
      ' sinon supprimer Exit for
      Exit For
    End If
  Next liPO
Next lish2
Application.ScreenUpdating = True

bonne suite

Orelyi
25 janv. 2012 à 21:11

merci beaucoup! La deuxième boucle que tu m'as proposé fonctionne trés bien et vraiment rapidement, je pense que l'exit for y est pour beaucoup!

Discussions similaires

[BASH] Existe t-il un boucle do while?

Mon pc s'allume et s'éteint en boucle

Factorielle en langage C (avec boucle)

Besoin d'aide sur FoF, problème de songs !

Redémarrage en boucle Xiamo mi note 10

Discussions similaires

Newsletters