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