Discussion :

[tchoutchou69]

Bonjour,

J'ai joins mon fichier excel. Je cherche à cacher des lignes sur la feuille RG1 suivant des critéres definies par macro au niveau de la colonne G (périodicité).
J'aimerai cacher les lignes contenant Mensuel, trimestriel et annuelle et afficher les 3 autres périodicités. Par la suite, je souhaite avoir plusieurs feuilles RGx et choisir, en programmant ma macro, les choix que je veux affciher et cacher.

J'avais pensé à ca mais apparemment ca bug, etant debutant j ai un peu de mal:

Code :

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

1
2
3
4
5
6
7
Private Sub Worksheet_Selection()
 
For i = 180 To 8 Step -1
If Cells(i, 6) = "Annuelle" Or "Mensuel" Then Rows(i).Hidden = True
Next
 
End Sub

Merci d'avance pour votre aide.

[casefayere]

Bonjour,, un code a passer dans un bouton " CommandButton1" par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit 'à préciser
Option Compare Text 'à préciser
 
Private Sub CommandButton1_Click()
Dim I
For I = 180 To 8 Step -1
If Cells(I, 6) Like "Annuel*" Or Cells(I, 6) Like "Mensuel*" Or Cells(I, 6) Like "TRIMESTRIEL*" Then Rows(I).Hidden = True
Next I
 
End Sub

PS : je n'ai pas ouvert ton fichier

[tchoutchou69]

Bonjour et merci pour cette reponse rapide,

Je viens d'essayer la macro et rien ne se passe au niveau de ma feuille RG1. aucun message d'erreur mais les lignes sont toujours là. Je précise que j'ai créé un bouton 2 auquel j ai mis la commandbouton2.

[casefayere]

1 - as-tu bien mis ton bouton de commande sur la feuille concernée, sinon il faut préciser la feuille :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit 'à préciser
Option Compare Text 'à préciser
 
Private Sub CommandButton2_Click()
Dim I
with sheets("RG1")
  For I = 180 To 8 Step -1
    If .Cells(I, 6) Like "Annuel*" Or .Cells(I, 6) Like "Mensuel*" Or .Cells(I, 6)    Like "TRIMESTRIEL*" Then .Rows(I).Hidden = True
  Next I
end with
End Sub

2 - as-tu bien précisé "option compare text"

[tchoutchou69]

Non, que dois je mettre dans ces options?

[casefayere]

tu copies mon code tel quel dans la macro du bouton "commandbutton2"

Tu t'es peut-être trompé de colonne, essayes comme ça si c'est bien la colonne F qui est concernée :

Code :

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

1
2
3
4
5
6
7
8
Private Sub CommandButton2_Click()
Dim I
With Sheets("RG1")
    For I = 180 To 8 Step -1
        If .Range("F" & I) Like "Annuel*" Or .Range("F" & I) Like "Mensuel*" Or .Range("F" & I) Like "TRIMESTRIEL*" Then .Rows(I).Hidden = True
    Next I
End With
End Sub