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