Discussion :

[smo8000]

Bonjour, je voudrais créer une macro qui à l'aide d'un bouton " case à cocher " cacherait certaines lignes d'une base de donné.

j'ai déja crée mon bouton " case à cocher " qui me permet dans mon cas (exemple prit pour faire des tests) de masquer et d'afficher les lignes 100 à 110 lorsque j'appuie sur mon bouton

Code :

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

1
2
3
4
5
6
7
Private Sub CheckBox1_Click()
If CheckBox1.Value Then
Rows("100:110").EntireRow.Hidden = True
Else
Rows("100:110").EntireRow.Hidden = False
End If
End Sub

J'ai voulu adapter ce code en voulant justement masquer uniquement les cellules dans ma colonne A ou les cellules on une police noir et laisser afficher les autres cellules ou la police n'est pas noir. La macro tourne mais ne fonctionne pas exactement comme je le souhaite.

Toutes les lignes 100 à 110 s'affiche puis se masquer instantanement et je vois pas bien en tant que débutant dans les macros d'ou cela peut bien venir.

je vous mets mon morceau de code. Je penses que c'est pas grand chose à corriger c'est pour cela que je demande votre aide

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
Private Sub CheckBox1_Click()
 
Dim plage As Range
Dim cel As Range
Set plage = Application.Sheets(1).Range("A100:A110")
 
For Each cel In plage
If CheckBox1.Value Then
End If
If cel.Font.ColorIndex = 1 Then
Rows("100:110").EntireRow.Hidden = True
Else
Rows("100:110").EntireRow.Hidden = False
End If
Next
End Sub

Merci d'avance pour votre soutient

[fgiambelluco]

Bonjour
La macro masque ou affiche sytématiquement toutes les lignes

Code :

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

1
2
3
Rows("100:110").EntireRow.Hidden = True
Else
Rows("100:110").EntireRow.Hidden = False

il faudrait utliser

Code :

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

Cel.EntireReow.hidden=...

[smo8000]

Si tu parle de mon premier morceau de code : lorsque je coche la case cela masque les lignes 100 à 110 et lorsque je décoche la case, les lignes 100 à 110 se réaffichent.

C'est exactement ce que je souhaite mais je voudrais incrémenter un morceau de code qui en plus de cela masque uniquement les lignes ou la police est noir et laisse les lignes ou la police et d'une autres couleur et lorsque je décoche la case toutes les lignes se réaffichent

EDIT : Accesnewbie : je vais essayer ton code
Désolé cela ne fonctionne pas

[fgiambelluco]

A ce moment là, je verrai un truc comme ça :

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
Private Sub CheckBox1_Click()
 
Dim plage As Range
Dim cel As Range
Set plage = Application.Sheets(1).Range("A100:A110")
 
For Each cel In plage
     If CheckBox1.Value Then
        If cel.Font.ColorIndex = 1 Then
           cel.EntireRow.Hidden = True
         End if
      Else
        Rows("100:110").EntireRow.Hidden = False
     End If
Next
End Sub

[smo8000]

Ca allair de marcher sur ma partie test, je vais voir sur ma base mais je penses qu'il n'y aura pas de soucie

Merci beaucoup

[smo8000]

Ca allair de marcher sur ma partie test, je vais voir sur ma base mais je penses qu'il n'y aura pas de soucie

Merci beaucoup

Bon ca marche niquel je t'en remercie mais petit bémol lorsque je clique sur mon bouton pour masquer les lignes cela prend même pas 1s mais lorsque je réaffiche les lignes elles se réaffichent directement mais le sablier de la souris reste bloqué environ 3 à 4s durant lesquelles la page se réactualise.

Cela est surement du aux nombres importants d'information que j'ai dans ma base

[Access Newbie]

Bonjour,

Essayez comme ca :

Code :

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

1
2
3
4
5
6
7
For Each cel In plage
    If cel.Font.ColorIndex = 1 Then
        Rows(cel.Row).EntireRow.Hidden = True
    Else
        Rows(cel.Row).EntireRow.Hidden = False
    End If
Next