Discussion :

[waspy59]

Bonjour à tous,

je débute dans l'utilisation de vba sous excel et je n'arrive pas a faire ce que je veux.

Voici ma problématique, je veux créer un bouton masquer/démasquer qui permettra donc de masquer ou demasquer les lignes entières de mes feuillets 2 à 6 en fonction de la valeur contenue dans la colonne K. En faites, si dans Ki j'ai "---" alors je veux masquer la ligne i.

J'ai réussi à le faire avec une boucle mais je veux le faire avec la fonction find (pour ma culture personnelle).

J'ai testé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Sub MasquerDemasquer()
 
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
 For I = 2 To 6
 
 With Sheets(I)
 .Activate
 .Unprotect Password:="Toto"
 
 Dim c As Range
 Set c = Range("K14:K100")
 
 With c.Find("---")
 
 
    c.EntireRow.Select
    If c.Hidden = True Then
        c.Hidden = False
        Else
        c.Hidden = True
        End If
 
 End With
 
End With
Next
    Sheets(1).Activate
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub

Bien sûr cela ne fonctionne pas....

Quelqu'un peut-il éclairer ma lanterne?

merci

[Marc-L]

Bonjour.

Cela ne peut fonctionner car la méthode Find n'est pas respectée : il manque l'affectation d'une variable objet (ou Range) et le passage de paramètres !

Voir l'aide de Find appliquée à un Range et son exemple (notamment respecter la structure avec le FindNext) …

[waspy59]

salut

bon après avoir fouillé dans l'aide, j'ai testé ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub MasquerDemasquer()
 
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
 
 For I = 2 To 6
 With Worksheets(I).Range("K14:K100")
 .Activate
 .Unprotect Password:="Toto"
 
 Set c = .Find("---", LookIn:=xlValues)
 
     If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.EntireRow.Select
                If c.Hidden = True Then
                c.Hidden = False
                Else
                c.Hidden = True
                End If
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
Next
    Worksheets(1).Activate
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub

mais j'ai l'erreur 1004 sur le .Activate

[SfJ5Rpw8]

mais j'ai l'erreur 1004 sur le .Activate

ben supprime la ligne...

[waspy59]

salut

tu penses bien que j'ai essayé...

j'ai viré les lignes
- .activate
- .Unprotect Password:="Toto"

Mais du coup je recupere la même erreur à la ligne "c.EntireRow.Select" et si je la vire, c'est la ligne du dessous en erreur (tjrs la 1004)

Comprends pas trop où est le soucis

[SfJ5Rpw8]

il y as combien de feuilles dans ton classeur?