Discussion :

[actuenligne]

Bonjour à tous !

J'ai une petite Sub qui fonctionne bien, mais qui est malheureusement
très lente pour se terminer. Voici la sub en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub display_all()
    Dim i As Long
    Dim max as Long
    i = 0
    max = 50
 
    Do While i < max 
        If Cells(i, 2).EntireRow.Hidden = True Then
            Cells(i, 2).EntireRow.Hidden = False
        End If
        i = i + 1
    Loop
End Sub

Est ce que je l'ai mal codée ? Y a-t-il un moyen plus léger et
plus rapide de faire ?
J'ai initialisé la boucle à 50 tours, mais en réalité il en faudrait
bien plus, mais c'est réellement long !

Merci de votre aide, bonne journée

[jfontaine]

Bonjour

Va voir ce post
http://www.developpez.net/forums/d11...ichier-resolu/

[actuenligne]

Merci pour le lien !
C'est magnifique, maintenant ça marche à pleine vitesse. Merci beaucoup,
et bonne journée à vous.

[actuenligne]

Je me permets de continuer ce topic plutot que de créer un nouveau sujet
(c'est toujours a propos de cette même fonction)

J'ai remarqué à ma grande surprise que la fonction

Code :

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

Range("a100").End(xlUp).Row

Ne tenait pas compte des ligne masquée.
Or je comptais justement l'utiliser pour que ma sub sache
jusqu'à quelle ligne aller pour masquer / démasquer.
Comment faire pour tout de même prendre en comptes
les lignes masquées ?

Je vous remercie d'avance !

[jfontaine]

Essai avec xldown

Code :

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

Range("A:A").End(xlDown).Row

[Philippe Tulliez]

Bonjour,
Malheureusement le résultat sera identique. Si la ou les dernières lignes sont masquées.
Il faudrait rendre visible les lignes, le temps de calculer la dernière ligne et ensuite masquer. Encore faut-il savoir qu'elles étaient les cellules masquées.
Cette instruction simule le Ctrl+Flèche de direction qui se comporte de la même manière.

[Philippe Tulliez]

Bonjour,
Si la colonne A est totalement remplie, utiliser cette instruction

Code :

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

Application.WorksheetFunction.CountA(Range("A:A"))

[galopin01]

Tu peux peut-être utiliser directement :

Code :

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

1
2
3
Sub test()
Rows.Hidden = False
End Sub