Bonjour,
Je tenais tout d'abord à remercier toutes les personnes qui contribuent sur ce forum. J'ai énormément appris sur Excel grâce à vous.
Par contre, j'ai toujours des lacunes en VBA... C'est pour cela que je me tourne vers vous aujourd'hui.
En voulant exécuter le code suivant : (le "Next i" en gras correspond à la zone surligné en jaune)
Private Sub CommandButton1_Click()
Range("I11").Resize(UsedRange.Rows.Count, 1).ClearContents: Dim d As New CDonnees
For i = 11 To Range("B65000").End(xlUp).Row: d.Add Range("D" & i), Range("D" & i), Range("K" & i), Range("F" & i), Range("G" & i), i: Next i
d.Lettrer
For i = 11 To Range("B65000").End(xlUp).Row: Range("I" & i) = d.Lettrage(Range("D" & i), Range("D" & i), Range("K" & i), Range("F" & i), Range("G" & i), i): Next i
End Sub
Le message "Erreur d'exécution '5' : Argument ou appel de procédure incorrect" apparaît !
Ce qui est surprenant, c'est que le code fonctionne très bien lorsqu'il y a 300 lignes environs.
Mais au delà de 1 000, le code ne fonctionne plus.
Quelqu'un aurait-il une idée du problème ?
Comment pourrait-on solutionner ce problème ?
Merci par avance.
Je tenais tout d'abord à remercier toutes les personnes qui contribuent sur ce forum. J'ai énormément appris sur Excel grâce à vous.
Par contre, j'ai toujours des lacunes en VBA... C'est pour cela que je me tourne vers vous aujourd'hui.
En voulant exécuter le code suivant : (le "Next i" en gras correspond à la zone surligné en jaune)
Private Sub CommandButton1_Click()
Range("I11").Resize(UsedRange.Rows.Count, 1).ClearContents: Dim d As New CDonnees
For i = 11 To Range("B65000").End(xlUp).Row: d.Add Range("D" & i), Range("D" & i), Range("K" & i), Range("F" & i), Range("G" & i), i: Next i
d.Lettrer
For i = 11 To Range("B65000").End(xlUp).Row: Range("I" & i) = d.Lettrage(Range("D" & i), Range("D" & i), Range("K" & i), Range("F" & i), Range("G" & i), i): Next i
End Sub
Le message "Erreur d'exécution '5' : Argument ou appel de procédure incorrect" apparaît !
Ce qui est surprenant, c'est que le code fonctionne très bien lorsqu'il y a 300 lignes environs.
Mais au delà de 1 000, le code ne fonctionne plus.
Quelqu'un aurait-il une idée du problème ?
Comment pourrait-on solutionner ce problème ?
Merci par avance.
Dernière modification par un modérateur: