Posez votre question Signaler

[VBA Excel] Boucle imbriquée - pb d'exécution [Résolu]

saian-sugus 34Messages postés 24 juillet 2008Date d'inscription 20 avril 2010Dernière intervention - Dernière réponse le 24 sept. 2008 à 08:28
Bonjour,
J'ai créé une boucle dans une autre boucle.
En avançant petit à petit (touche F8), ma boucle marche très bien mais en la lançant, il me semble qu'elle loupe pas mal de valeurs, est-ce normal? (lol..)
 Mes boucles :     
Worksheets(ClasseName).Activate
        Module = Cells(5, 6)
        Nb_Lignes6 = Range("A65536").End(xlUp).Row
        For f = 10 To Nb_Lignes6
            ID = Cells(f, 7)
            Sheets("suivis").Activate
            Nb_Lignes7 = Range("A65536").End(xlUp).Row
            For g = 2 To Nb_Lignes7
                If Cells(g, 1) = ID Then
                    If Cells(g, 2) = Module Then
                        Worksheets(ClasseName).Activate
                        Cel = Cells(f, 4)
                        If Cel = "" Then
                            Cells(f, 4) = "(2x)"
                        Else
                            Cells(f, 4) = Cel & " (2x)"
                        End If
                    End If
                End If
            Next g
        Next f

Nb_lignes6 vaut environ 15 et Nb_lignes7 25'000
Déjà eu un problème similaire?
Personnellement je suis impressionné par la vitesse à laquelle le programme passe les 25'000 entrées (même pas 10 secondes..), donc le problème vient peut-être de mon code, mais après l'avoir relu une vingtaine de fois je ne vois toujours pas l'erreur...
Bonne journée et merci pour votre réponse
Lire la suite 

[VBA Excel] Boucle imbriquée - pb d'exécution »

2 réponses
Réponse
+1
moins plus
Peut-être que le problème vient du fait que tes Cells(f, 4) ou autre n'ont pas d'extension comme .Value ou .Formula et qu'elle oublie des valeurs, essaye avec ça pour voir si ça change quelque chose ^^
saian-sugus- 24 sept. 2008 à 08:28
En effet, le problème venait de là... merci :)
Ajouter un commentaire
Ce document intitulé « [VBA Excel] Boucle imbriquée - pb d'exécution » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?