Discussion :

[EvaristeGaloisBis]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EvaristeGaloisBis]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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

[EvaristeGaloisBis]

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.

[Godzestla]

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