Macros Overflow

[teodormircea]

Bonjour tout le monde

J'utilise une macros pour filtrer les cellules avec un fond de couleur, mais j'ai un soucis car j'ai un message "overflow" dans le cas ou je depase plusieurs disaine de millier de lignes.
Voila le macros utilise:
Sub Filtre_by_color_AD()

'On gèle l'écran
Application.ScreenUpdating = False

'Déclaration des variables
Dim i As Integer

'Code
i = 2 'En partant de la 2ème ligne, on peut conserver une ligne d'entête
While Not IsEmpty(Cells(i, 1))
If Not Cells(i, 1).Interior.ColorIndex = 7 Then
Rows(i).EntireRow.Hidden = True
End If
i = i + 1
Wend

End Sub

Merci a vous

 

[PascalXLD]

Re : Macros Overflow

Bonjour

Declare ton i en long et non en integer

 

[teodormircea]

Re : Macros Overflow

Ca marche bien, j'ai trouve que si on on une cellule vide le macros perd les pedalles