Cacher plusieurs lignes avec un bouton mais dans plusieurs feuilles

Bonjour,

J'essaie depuis quelques temps de cacher des lignes avec un macro pour toutes les feuilles.

J'ai crée une flèche(bouton) pour afficher les lignes cachés et un bouton pour les cacher.

Voici le code pour afficher,

Sub Flècheverslebas2_Cliquer()

Dim mot_de_passe As String

mot_de_passe = InputBox("Donnez le mot de passe")

If mot_de_passe = "0801" Then

Rows("6:15").Hidden = False

Else: Exit Sub

End If

End Sub

Voici le code pour cacher,

Sub Flècheverslehaut4_Cliquer()

Dim mot_de_passe As String

mot_de_passe = InputBox("Donnez le mot de passe")

If mot_de_passe = "0801" Then

Rows("6:15").Hidden = True

Else: Exit Sub

End If

End Sub

Je voudrais donc que ces boutons s'applique pour les mêmes lignes mais pour toutes les feuilles.

Pourriez-vous m'aider?

Bonjour et bienvenue sur le forum

Essaie avec ça :

[code]Sub Flècheverslehaut4_Cliquer()

Dim mot_de_passe As String, f As Worksheet

For Each f In Worksheets

mot_de_passe = InputBox("Donnez le mot de passe")

If mot_de_passe = "0801" Then

Rows("6:15").Hidden = False

Else: Exit Sub

End If

Next f

End Sub

Sub Flècheverslehaut4_Cliquer()

Dim mot_de_passe As String, f As Worksheet

For Each f In Worksheets

mot_de_passe = InputBox("Donnez le mot de passe")

If mot_de_passe = "0801" Then

Rows("6:15").Hidden = True

Else: Exit Sub

End If

Next f

End Sub[/codeB]ye !

Merci mais il y a pas moyen d'introduire une fois le code "0801"?

Je dois l'introduire à chaque feuille avec ce Macro

Si oui, Merci

Diego

Si, il y a moyen :

Sub Flècheverslehaut4_Cliquer()
    Dim mot_de_passe As String, f As Worksheet
    mot_de_passe = InputBox("Donnez le mot de passe")
    If mot_de_passe = "0801" Then
        For Each f In Worksheets
             Rows("6:15").Hidden = False
        Else: Exit Sub
        End If
    Next f
End Sub

Sub Flècheverslehaut4_Cliquer()
    Dim mot_de_passe As String, f As Worksheet
    mot_de_passe = InputBox("Donnez le mot de passe")
    If mot_de_passe = "0801" Then
        For Each f In Worksheets
            Rows("6:15").Hidden = True
        Else: Exit Sub
        End If
    Next f
 End Sub

Bye !

Merci, j'avais déjà essayé et ça ne fonctionne pas.

J'ai un message: Erreur de compilation

Else sans If

Alors, joins ton fichier et on regardera de plus près.

Bye !

Voilà

En retour

Bye !

Bonjour

rectife mettre f. devant le Rows

Sub Flècheverslehaut4_Cliquer()
    Dim mot_de_passe As String, f As Worksheet
    mot_de_passe = InputBox("Donnez le mot de passe")
    If mot_de_passe = "0801" Then
        For Each f In Worksheets
             f.Rows("6:15").Hidden = False
        Else: Exit Sub
        End If
    Next f
End Sub

Sub Flècheverslehaut4_Cliquer()
    Dim mot_de_passe As String, f As Worksheet
    mot_de_passe = InputBox("Donnez le mot de passe")
    If mot_de_passe = "0801" Then
        For Each f In Worksheets
           f. Rows("6:15").Hidden = True
        Else: Exit Sub
        End If
    Next f
 End Sub

A+

Maurice

Bonjour Gmb, J'ai utilisé le fichier que tu m'as envoyé et cela ne marche qu'avec la première feuilles et pas les autres.

Hello Maurice,

J'ai à nouveau un message: Erreur de compilation

Else sans If.

Diego

Bonjour à tous

Bonjour Archer

archer a écrit :

rectife mettre f. devant le Rows

DiegoAndres aura pu en tirer profit avant ma réponse tardive.

Bye !