nb de lignes

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Avril 2006

• #2

Bonsoir Luc, le Forum

En VBA on peut faire ceci (à placer dans le Private Module de ThisWorkBook)

Private Sub Workbook_Open()
Dim WS As Worksheet

For Each WS In ThisWorkbook.Worksheets
    With WS
        .Rows('11:65536').Hidden = True
        .Columns('G:IV').Hidden = True
        .ScrollArea = 'A1:F10'
    End With
Next

End Sub

Cliquez pour agrandir...

Bonne Soirée
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

L

Luc

Guest

• 23 Avril 2006

• #3

bonsoir thierry
merci
mais pour choisir le nombre de ligne maxi de la feuille je fait quoi ?

suis pas fute fute ce soir :huh:

 

Vote positif 0 Vote négatif

L

Luc

Guest

• 23 Avril 2006

• #4

re moi
a moins de faire un code qui masque toutes les lignes vides ?

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 23 Avril 2006

• #5

Re Luc

Oh ce n'est pas bien compliqué, si tu connais ta zone, dans mon exemple 'A1:F10' il suffit de partir de ces bases suivantes :

Nombre Max de colonnes 256 = A à IV
Nombre Max de lignes 65536

Donc on masque les Colonnes de G à IV
et les Lignes de 11 à 65536

Maintenant si on doit scanner toutes les Lignes 'Vides' on en a pour un moment.

En fait il faudrait un peu plus de précisions sur la structure de ton fichier.

Bonne Soirée
[ol]@+Thierry[/ol]

 

Vote positif 0 Vote négatif

L

Luc

Guest

• 23 Avril 2006

• #6

ok thierry

j'ai compris l'astuce

j'ai trouvée une soluce avec une recherche de la dernière cellule non vide et je masque les suivantes( si le code t'interesse tu l'aura demain )
là je n'ai plus le temps ( bip bip bip)le boulot
m'apelle


merci de ton aide @ plus

 

Vote positif 0 Vote négatif