Mon code tourne a l'infini et se plante

JessK · 25 Juillet 2023

Bonjour à tous,

Je suis en train d'écrire un code pour insérer des données d'un fichier "référence" à mon fichier de données, si le texte dans une des cellules est égal a celles d'une cellule dans le fichier "référence". Si je lance le code, il commence à tourner et il tourne à l'infinie. Si j'enlève cette boucle de code, le code marche, donc c'est bien ce morceau de code qui pose problème.
Voici mon code (je l'ai adapté d'un autre code qui fonctionne très bien, mais c'était une recherche par rapport a des intitulés egales). Les variables sont définies plus haut. Je me demande s'il plante car c'est trop long a faire? (pour l'instant pour un fichier données de 170 lignes et un fichier référence de 32 lignes).

Merci de vos suggestions

VB:

For i = 2 To lstrw 'les lignes du ws

    j = 2 'les lignes du ws_ref

    Do While j <= row_count

        If ws.Cells(i, 1) = ws_ref.Cells(j, 16).Text Then
        
            ws.Cells(i, 4) = ws_ref.Cells(j, 15)
            ws.Cells(i, 5) = ws_ref.Cells(j, 22)
            ws.Cells(i, 6) = ws_ref.Cells(j, 25)
            ws.Cells(i, 7) = ws_ref.Cells(j, 4)
            ws.Cells(i, 8) = ws_ref.Cells(j, 5)
            ws.Cells(i, 9) = ws_ref.Cells(j, 6)
            ws.Cells(i, 10) = ws_ref.Cells(j, 12)
            ws.Cells(i, 12) = ws_ref.Cells(j, 13)
            ws.Cells(i, 13) = ws_ref.Cells(j, 7)
            ws.Cells(i, 14) = ws_ref.Cells(j, 8)
            ws.Cells(i, 15) = ws_ref.Cells(j, 9)
            ws.Cells(i, 16) = ws_ref.Cells(j, 10)
            ws.Cells(i, 17) = ws_ref.Cells(j, 11)
            j = line_count
            
        End If
        
    j = j + 1
    
    Loop
    
    Next i

fanch55 · 25 Juillet 2023

Bonjour,
Difficile de vous répondre sans l'intégralité de la sub .
Qu'y a t -il dans row_count et line_count ?

line_count est-elle une fonction ?

Dranreb · 25 Juillet 2023

Bonjour.
Votre variable line_count n'étant pas recalculée, j a toujours la même valeur et est donc toujours <= row_count s'il l'est au départ
remarque: vous auriez intérêt à travailler avec deux tableaux dynamique, ce serait beaucoup plus rapide.

JessK · 25 Juillet 2023

Ah mince, c'est vrai, j'avais changé le nom de la variable et ce petit détail m'était échappé!! Merci d'avoir trouvé @Dranreb

Dranreb · 25 Juillet 2023

Je l'aurais sans doute écrit à peu près comme ça :

VB:

Sub Test()
   Dim WshSrc As Worksheet, WshCbl As Worksheet, TSrc(), RngCbl As Range, _
      TCbl(), LCbl As Long, LSrc As Long, C As Integer
   Set WshSrc = Worksheets(1)
   Set WshCbl = Worksheets(2)
   TSrc = WshSrc.[A2].Resize(WshSrc.[A1000000].End(xlUp).Row - 1, 25).Value
   Set RngCbl = WshCbl.[A2].Resize(WshCbl.[A1000000].End(xlUp).Row - 1, 17)
   TCbl = RngCbl.Value
   For LCbl = 1 To UBound(TCbl, 1)
      For LSrc = 1 To UBound(TSrc, 1)
         If TSrc(LSrc, 16) = TCbl(LCbl, 1) Then Exit For
         Next LSrc
      If LSrc <= UBound(TSrc, 1) Then
         For C = 4 To 17
            TCbl(LCbl, C) = TSrc(LSrc, Choose(C - 3, 15, 22, 25, 4, 5, 6, 12, 13, 7, 8, 9, 10, 11))
            Next C
         End If
      Next LCbl
   RngCbl.Value = TCbl
   End Sub

À tester

JessK · 25 Juillet 2023

Merci, c'est bien de voir d'autres façons de faire. Je vais tester tout ça!

Mon code tourne a l'infini et se plante

JessK

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

JessK

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

JessK

XLDnaute Nouveau

Discussions similaires