[VBA-E optimisation code] ameliorer la méthode pour cacher des lignes

Bonjour
Dernièrement j'ai du faire un petit morceau de code en VBA où je devais cacher les lignes présentes entre deux noms de cellules. Exemple
la cellule A1 s'appelle Toto
la celulle A10 s'appelle Titi
je lance cacheentrelesnoms(toto,titi), et il me masque toutes les lignes entre A1 et A10. Rien de sorcier à faire.
Sauf que ma méthode n'est pas du tout performante...
J'aimerai avoir votre avis pour me permettre d'accelerer ce code.
voici le code de la fonction.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub CacheEntreLesNoms(ByRef StNom1 As String, ByRef stNom2 As String) Dim iX1 As Byte Dim iX2 As Byte   iX1 = Calendrier.iNameToLigneDebut(StNom1) iX2 = Calendrier.iNameToLigneDebut(stNom2) With ThisWorkbook.Sheets(1) Do .Rows(iX1).Hidden = True iX1 = iX1 + 1 Loop While iX1 < iX2 End With   End Sub

---

Merci pour toutes vos réponses :)

j'ai trouvé une amélioration mais sait on jamais si quelqu'un avait mieux...
Voici mon amélioration

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub CacheEntreLesNoms(ByRef StNom1 As String, ByRef stNom2 As String) Dim iX1 As Byte Dim iX2 As Byte   iX1 = Calendrier.iNameToLigneDebut(StNom1) iX2 = Calendrier.iNameToLigneDebut(stNom2) ThisWorkbook.Sheets(1).Range("A" & iX1 & ":A" & iX2).Rows.Hidden = True   End Sub

---

Bonjour,

2 petites choses

• déclare tes variables iX1 et iX2 As Integer sinon tu risques rapidement d'avoir un dépassement de capacité (Byte = de 0 à 255)
• il n'est pas nécessaire de préciser ThisWorkbook, si tu ne lui dis rien il n'ira pas voir ailleurs que dans le classeur actif

Pour le ThisworkBook effectivement je peux le retirer... je n'avais pas fait attention à ce point.
Pour ce qui est du byte, en fait c'est que les zones à masquer sont entre 1 et 150... d'où mon byte... ça fait un peu pingre coté espace mémoire, je le reconnais.

Au prix du Byte, sur Ebay ou ailleurs, je pense que tu peux te fendre d'un integer ou deux sans risquer la banqueroute. ;)