3 cases à cocher (masquer et afficher)

[PetitClaude]

Bonjour,

Je travail sur une feuille de la ligne 10 à 40 et ma première colonne est la B

J'ai 3 cases à cocher (formulaires)

Au départ mes lignes de 10 à 40 sont masquées

En cochant la 1° case à cocher je voudrait que tous les 1 qui se trouve dans la colonne B s'affiche

En cochant la 2° case à cocher je voudrait que tous les 2 qui se trouve dans la colonne B s'affiche

En cochant la 3° case à cocher je voudrait que tous les 3 qui se trouve dans la colonne B s'affiche

et le sens inverse une fois que les cases sont décocher elle soit masquer.

Je vous remercie de votre aide.

PetitClaude

 

[Hellboy]

Bonjour PetitClaude

Aurais-tu pensé passer par le filtre automatique de Excel ?

 

[PetitClaude]

Salut Philippe

Bonne idée , mais ma colonne B est masquée et doit resté masquer.
Si tu as une autre idée je suis preneur.

PetitClaude

 

[Hellboy]

Bonjour PetitClaude

Comment veux tu afficher les 1,2,3 de la colonnes B, si elle est masqué ? B)

 

[PetitClaude]

Rebonjour,

Les 1,2,3 sont issue d'une formule du résultat des colonnes C,D,E,F,G
Je ne veut pas que les 1,2,3 soit afficher juste les résultats des autres colonnes.
C'est pour ça que je veut afficher que les 1,2,3 tous seul à l'aide de case à cocher
Ou afficher les chiffres 1 et 2 ou bien 1 ou 3 etc...
Merci

 

[Hellboy]

Bonjour PetitClaude

S.v.p, pourrais-tu envoyer ton fichier. Un regard sur l'original, vaut un tas de mail en moins et un tas de maux de têtes en moins aussi. 😉
Il est plus facile de savoir exactement sur quoi tu applique tes actions.

Merci!

Message édité par: Hellboy, à: 31/05/2005 20:51

 

[PetitClaude]

Bonsoir Philippe,

Je te joint un fichier exemple car l'original est trop volumineux

Merci de ton aide

PetitClaude

 

[PetitClaude]

J'arrive pas à envoyer mon fichier [file name=Classeur1_20050531213214.zip size=2468]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050531213214.zip[/file]

 

[Hellboy]

Bonsoir PetitClaude

Je te joint ton fichier avec la réponse a ta demande(j'espere).
[file name=HellboyCheckbox.zip size=12504]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/HellboyCheckbox.zip[/file]

 

[PetitClaude]

Rebonsoir Philippe

C'est bien ce que je voulais.

Mais quand je coche la case les lignes sont masquer alors que je veux que se soit le contraire
Si tu peut me changer le sens
je te remercie d'avance

PetitClaude

 

[Hellboy]

Bonjour PetitClaude

Voici le fichier avec les modifications.
[file name=HellboyCheckbox_20050601121612.zip size=11609]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/HellboyCheckbox_20050601121612.zip[/file]

 

[PetitClaude]

Bonjour philippe

Je te remercie de ton aide,

@+ et bonne fin de journée

PetitClaude

 

[VinceTX]

Re : 3 cases à cocher (masquer et afficher)

Bonjour à tou(te)s,

petit dépoussièrage...

Je voudrais pouvoir faire la même chose mais au lieu d'utiliser des chiffres, je voudrais pouvoir utiliser des lettres, (comme VIN PAS PHI) des abréviations...
J'ai éssayé en remplacant dans le code le 1 par des lettres mais sans succès...

Private Sub CheckBox1_Click()
Dim intValref As Integer
    Traitement ([COLOR="Blue"]1[/COLOR]), (CheckBox1.Value)
End Sub

Public Sub Traitement(intValref As Integer, boolVF As Boolean)
   Select Case boolVF
          Case True
               boolVF = False
          Case False
               boolVF = True
   End Select
   For intLigne = 10 To 40
       If Cells(intLigne, 2) = intValref Then
          ActiveSheet.Rows(intLigne).EntireRow.Hidden = boolVF
       End If
   Next intLigne
End Sub

Comment faire ?

merci

Vincent

 

[Hervé]

Re : 3 cases à cocher (masquer et afficher)

bonjour

je m'autorise à répondre à la place de l'ami hellboy, qui se fait rare en ce moment hélas.

en reprenant son fichier, voici à suoi pourrais ressemble ton code :

Private Sub CheckBox1_Click()
Dim intValref As Integer
    Traitement ("VIN"), (CheckBox1.Value)
End Sub

Private Sub CheckBox2_Click()
Dim intValref As Integer
    Traitement ("PAS"), (CheckBox2.Value)
End Sub

Private Sub CheckBox3_Click()
Dim intValref As Integer
    Traitement ("PHI"), (CheckBox3.Value)
End Sub

Public Sub Traitement(intValref As String, boolVF As Boolean)
Dim intligne As Integer

   For intligne = 10 To 40
       If Cells(intligne, 2) = intValref Then
          ActiveSheet.Rows(intligne).EntireRow.Hidden = Not boolVF
       End If
   Next intligne
End Sub

il te fallait aussi changer la déclaration de variable de intvalref

salut

 

[VinceTX]

Re : 3 cases à cocher (masquer et afficher)

C'un grand merci et une bonne fin de journée et de semaine.


Vincent