Checkbox combinée sur deux critères différents

Le 11/05/2015 à 15:31

Hello, je reviens une nouvelle fois avec ce sujet..

J'ai un problème : je veux combiner sur le graphique joint l'affichage de deux types de checkbox, l'une triant une critère AB pouvant prendre les valeurs AAA , BBB situées en colonne 2, l'autre triant un critère CD pouvant prendre les valeurs DDD, EEE situées en colonne 3.

J'ai le code suivant, qui lorsque les deux If sont séparés dans deux procédures différentes gère très bien les cas d'affichage, mais j'aimerais combiner les deux ensemble comme ci-dessous :

Sub Cocher_Decocher()

Dim der_lig%
der_lig = WorksheetFunction.CountA(Columns("A:A")) + 41

Application.ScreenUpdating = False

For i = 44 To der_lig Step 1

If Cells(i, 2) = "AAA" Then Rows(i).Hidden = Not CheckBox_AAA
If Cells(i, 2) = "BBB" Then Rows(i).Hidden = Not CheckBox_BBB

If Cells(i, 3) = "CCC" Then Rows(i).Hidden = Not CheckBox_CCC
If Cells(i, 3) = "DDD" Then Rows(i).Hidden = Not CheckBox_DDD

Next

Application.ScreenUpdating = True

End Sub

Le problème est que l'affichage combiné ne fonctionne pas.. Quand la macro passe au critère CD, elle considère toutes les lignes au lieu de considérer seulement les lignes non masquées...

Auriez-vous une solution ?

Merci beaucoup

12chekbox-combinee.xlsm (46.03 Ko)

Le 12/05/2015 à 00:21

Svp est-ce que qqn aurait la solution pour gérer ensemble deux checkbox portant sur des plages différentes ?

Le 12/05/2015 à 00:41

Bonjour,

Essaie comme cela

Sub Cocher_Decocher()
Dim der_lig As Long, i As Long
    Application.ScreenUpdating = False
    der_lig = WorksheetFunction.CountA(Columns("A:A")) + 41
    For i = 43 To der_lig
        If Cells(i, 2) = "AAA" And CheckBox_AAA Or _
        Cells(i, 2) = "BBB" And CheckBox_BBB Or _
        Cells(i, 3) = "CCC" And CheckBox_CCC Or _
        Cells(i, 3) = "DDD" And CheckBox_DDD Then
            Rows(i).Hidden = False
        Else
            Rows(i).Hidden = True
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

A+

Le 12/05/2015 à 09:02

Hello frangy, merci pour ta réponse. Malheureusement celle-ci ne fonctionne pas (ni sur le fichier exemple ni appliquée à mon code...) : quand je clique sur la checkbox et / ou déclique, aucune action ne se passe..

Pourtant cela me semble logique. je ne vois pas ce qui pourrait clocher

Les checkbox sont bien nommées, les indices correspondent aux colonnes...

Le 12/05/2015 à 09:41

Bonjour,

Aucun souci de mon coté.

Peux-tu confirmer avec le fichier joint ?

7chekbox-combinee-1.xlsm (42.02 Ko)

A+

Le 12/05/2015 à 10:11

Merci de ton intérêt

Hélas cela ne fonctionne toujours pas (ou d moins comme je le voudrais... )

En PJ une image de ce que j'obtiens, alors que j'aimerais retrouver seulement la zone entourée en bleu, quand AAA et DDD sont cochées..