Dudesson
XLDnaute Junior
bonjour le forum, bonjour à tous,
je sollicite votre expertise pour corriger ce code qui apporte les bons résultats mais dont la partie en gras met pas mal de temps pour s’exécuter.
y aurait-il une autre approche pour obtenir la repose plus rapidement?
merci et bonnes fêtes
D. Pedro
Private Sub CommandButton1_Click()
Sheets("Compar").Range("L1:M" & Range("M" & Rows.Count).End(xlUp).Row).Delete Shift:=xlToLeft
For z = 6 To Sheets("Compar").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Compar").Range("L" & z) = Application.WorksheetFunction.Sum(Range("D" & z & ":K" & z))
For y = 4 To Sheets("Stocks").Range("C" & Rows.Count).End(xlUp).Row
If CStr(Sheets("Compar").Range("A" & z)) = CStr(Sheets("Stocks").Range("C" & y)) Then
Sheets("Compar").Range("M" & z) = Sheets("Stocks").Range("H" & y)
End If
Next
Next
End Sub
je sollicite votre expertise pour corriger ce code qui apporte les bons résultats mais dont la partie en gras met pas mal de temps pour s’exécuter.
y aurait-il une autre approche pour obtenir la repose plus rapidement?
merci et bonnes fêtes
D. Pedro
Private Sub CommandButton1_Click()
Sheets("Compar").Range("L1:M" & Range("M" & Rows.Count).End(xlUp).Row).Delete Shift:=xlToLeft
For z = 6 To Sheets("Compar").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Compar").Range("L" & z) = Application.WorksheetFunction.Sum(Range("D" & z & ":K" & z))
For y = 4 To Sheets("Stocks").Range("C" & Rows.Count).End(xlUp).Row
If CStr(Sheets("Compar").Range("A" & z)) = CStr(Sheets("Stocks").Range("C" & y)) Then
Sheets("Compar").Range("M" & z) = Sheets("Stocks").Range("H" & y)
End If
Next
Next
End Sub