F
fred
hello
I create a program - macro with excel 2000
It hdes certains rows with certains criterias
it works very fast with 2000 rows (4 seconds)
when i try with excel 2003 it goes slowy slowly 4 minutes !!
do you have an idea
I use this kind of command
If (Feuil.Cells(Ligne, 6).Interior.ColorIndex = xlNone) Then
If BoutonCPTEE.State = msoButtonDown Then
Feuil.Rows(Ligne).Hidden = True
Else
Feuil.Rows(Ligne).Hidden = False
End If
End If
If ((Feuil.Cells(Ligne, 6).Interior.ColorIndex = 15)
Or (Feuil.Cells(Ligne, 6).Interior.ColorIndex = 48)) Then
If BoutonRef.State = msoButtonUp Then
Feuil.Rows(Ligne).Hidden = True
Else
Feuil.Rows(Ligne).Hidden = False
End If
End If
If ((Feuil.Cells(Ligne, 6).Interior.ColorIndex = 37)
Or (Feuil.Cells(Ligne, 6).Interior.ColorIndex = 34)) Then
If BoutonCPT.State = msoButtonUp Then
Feuil.Rows(Ligne).Hidden = True
Else
Feuil.Rows(Ligne).Hidden = False
End If
End If
I create a program - macro with excel 2000
It hdes certains rows with certains criterias
it works very fast with 2000 rows (4 seconds)
when i try with excel 2003 it goes slowy slowly 4 minutes !!
do you have an idea
I use this kind of command
If (Feuil.Cells(Ligne, 6).Interior.ColorIndex = xlNone) Then
If BoutonCPTEE.State = msoButtonDown Then
Feuil.Rows(Ligne).Hidden = True
Else
Feuil.Rows(Ligne).Hidden = False
End If
End If
If ((Feuil.Cells(Ligne, 6).Interior.ColorIndex = 15)
Or (Feuil.Cells(Ligne, 6).Interior.ColorIndex = 48)) Then
If BoutonRef.State = msoButtonUp Then
Feuil.Rows(Ligne).Hidden = True
Else
Feuil.Rows(Ligne).Hidden = False
End If
End If
If ((Feuil.Cells(Ligne, 6).Interior.ColorIndex = 37)
Or (Feuil.Cells(Ligne, 6).Interior.ColorIndex = 34)) Then
If BoutonCPT.State = msoButtonUp Then
Feuil.Rows(Ligne).Hidden = True
Else
Feuil.Rows(Ligne).Hidden = False
End If
End If