Je recherche a masquer les lignes et je me suis aperçu que j'étais a 405536 lignes et que j'avais tourjours des lignes alors que moi je croyais qu'il y avait 65536 lignes.
Quelqu'un peut m'aider pour pour masquer les lignes a l'infini. Voici le code que j'ai employer:
Code:
Private Sub CommandButton3_Click()
Rows("28:65536").Select
Selection.EntireRow.Hidden = True
End Sub
Merci beaucoup Philippe, tototiti, j'ai bien la version 2007. Le code de tototiti marche super bien mais maintenant j'ai le même probleme pour les colonnes.
Voici le code que j'ai employer.
Code:
Private Sub CommandButton1_Click()
Columns("K:XFD").Select
Selection.EntireColumn.Hidden = True
End Sub
Merci beaucoup Philippe, tototiti, j'ai bien la version 2007. Le code de tototiti marche super bien mais maintenant j'ai le même probleme pour les colonnes.
Voici le code que j'ai employer.
Code:
Private Sub CommandButton1_Click()
Columns("K:XFD").Select
Selection.EntireColumn.Hidden = True
End Sub
il n'y a pas d'erreur dans ce code chez moi ça fonctionne
si ça ne marche pas c'est peut-être qu'il n'est pas à la bonne place et/ou dans la bonne feuille