Discussion :

[Julaxio]

Bonjour,
Je suis actuellement entrain de develloper une application sur Excel.
N'étant encore qu'un novice dans en VBA, je voudrais savoir si il est possible de caché des lignes tant qu'un bouton n'a pas été cliqué...
J'ai cherché en utilisant une fonction Do While mais ca n'a pas marché
Si quelqu'un a une idée, merci d'avance

Julaxio

[SfJ5Rpw8]

pas besoin de boucle..

tu masque les lignes à l'ouverture du classeur par exemple (ou lors de la sauvegarde..)
dans le module ThisWorkBook :

Code :

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

1
2
3
Private Sub Workbook_Open()
  Feuil1.Rows("10:12").Hidden = True
End Sub

et le code de ton bouton devient : Feuil1.Rows("10:12").Hidden = false

[Julaxio]

Je suis d'accord pour cacher les lignes, mais pas moyen de les faire réapparaitre
C'est pour cela que je voulais utiliser une boucle.
Je ne sais pas pourquoi mais le fait d'utiliser Rows(15).Hidden = False
ne marche pas

[SfJ5Rpw8]

Il n'y as pas de raison ... mais dans ton code Rows(15).Hidden = Falsetu ne précise ni le classeur ni la feuille de calcul concernée... et donc le résultat peu être aléatoire vu qu'il dépend de la feuille (et du classeur) active...

[Julaxio]

vu que j'ai 6 lignes que je dois caché et quelle ne se suivent pas, j'écris

Code :

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

1
2
3
4
5
Sheets("mafeuille").Select
Rows("13").Hidden = False
Rows("15").Hidden = False
Rows("23").Hidden = False
Rows("26").Hidden = False

Et normalement celà devrait marché il me semble, ce code marche pour caché

Oups, petite erreur de ma part
Effectivement le code marche mais je ne l'avais pas inscrit dans le bon bouton...
Veuillez m'escuser de cette perte de temps.

Merci bien pour votre aide

[SfJ5Rpw8]

vu que j'ai 6 lignes que je dois caché et quelle ne se suivent pas, j'écris
Sheets("mafeuille").Select
Rows("13").Hidden = False
Rows("15").Hidden = False
Rows("23").Hidden = False
Rows("26").Hidden = False

Et normalement celà devrait marché il me semble, ce code marche pour caché

même si cela marche cela ne me plait pas ... .. on n'as pas besoin de sélectionner une feuille pour agir dessus .. L'utilisation de Select, Activate ,ActiveSheet et consort est une source d'erreur, dans tous les cas il vaut mieux s'habituer à ne pas les utiliser...

écrit plutôt :

Code :

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

1
2
3
4
5
6
With ThisWorkBook.Sheets("mafeuille")
.Rows("13").Hidden = False
.Rows("15").Hidden = False
.Rows("23").Hidden = False
.Rows("26").Hidden = False
end with

[Julaxio]

D'accord

Et bien merci bien pour toute c'est explication

Bonne journée