Boucle

Bonjour à tous

j'ai un fichier qui contient + de 33000 lignes , j'ai besoin de calculer un nombre feuilles /palette en fonction d'une condition.

ci dessous le vba

Sub test()

Dim ligne As Integer

ligne = 5

Do While Cells(ligne, 1).Value <> ""

'colonne y, Nb de feuil./palette

If Cells(ligne, 8).Value = "Skid" Then

Cells(ligne, 25).Value = Cells(ligne, 24).Value * Cells(ligne, 26).Value

End If

ligne = ligne + 1

Loop

End Sub

le probléme est que j'ai la bloucle bug à la ligne 32767

Y aurait il une autre solution, j'ai bien regardé le cours sur les boucles mais je n'ai pas assez de connaissane en vba.

je ne peut pas joindre le fichier car il est trop volumineux

merci de votre aide par avance

philippe

bonjour,

remplace integer par long

Merci pour ta réponse h2so4

ça fonctionne bien mieux

cordialement

philippe