Masquer les lignes avec CheckBox

Bonjour

J'ai sur ma feuille deux CheckBox et une colonne "B" Avec une liste Achat ou Recette. j'aimerai que si je coche la CheckBox1 toutes les lignes avec recette son masquer et si je coche la CheckBox2 toutes les lignes achats sont masquer et si je décoche les CheckBox les lignes sont démasquer

Je vous remercie de votre aide

Cordialement

Max

Code:

---

1 2 3 4 5 6 7

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Columns(2).Hidden = True Else Columns(2).Hidden = False End If End Sub

---

Ceci est le code qui devrait vous aider à faire ce que vous voulez:
La checkbox cache la colonne dont l'index est 2, ça veut dire la colonne B, faites donc la méme chose pour l'autre checkebox en changeant le numéro index

Bonsoir XLRATOR

Je pense que l'on c'est mal compris.

Quand je click sur la checkbox1 je masque les lignes ou l'on trouve Recette si je click sur la checkbox2 je masque les ligne ou l'on trouve Achat

Merci et bonne soirée

Max

Je ne ssuis pas encore sur de ce dont vous avez besoin, mais je crois que voulez masquer les achats en cochant la chackbox 1, et masquer les Recettes en cochant la checkbox 2, si je vous ai bien compris, alors celà donerait ce qui suit, vous n'aurais qu'à copier puis coller.

Code:

---

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

Private Sub CheckBox1_Click() Dim rng As Range For Each rng In Columns(2).Cells If rng.Value = "Achat" Then If CheckBox1.Value = True Then rng.EntireRow.Hidden = True Else rng.EntireRow.Hidden = False End If End If Next End Sub   Private Sub CheckBox2_Click() Dim rng As Range For Each rng In Columns(2).Cells If rng.Value = "Recette" Then If CheckBox2.Value = True Then rng.EntireRow.Hidden = True Else rng.EntireRow.Hidden = False End If End If Next End Sub

---

Re,

Exactement la recherche et merci beaucoup juste une petit question pourquoi quand je click sur une checkbox c'est assez long quand je dit 4,5 seconde?

Bonne soirée et merci encore

Max

C'est peut être parceque votre liste est tellement longue que votre RAM (Random Access Memory) éprouve du mal à traiter vos données rapidement si c'est la cas et que votre liste est longue, je vous conseille de sauvegarder vos données dans des fichiers séparés, de maniére organisée biensur (Par Période par exemple) , car le fichier risque de se corrompre et parceque Excel reste une feuille de calcul non pas une base de données, si non, si votre projet ne permet pas de séparer vos données et bien il va vous falloir apprendre à utiliser MS ACCESS.
Voilà Bonne Prog ! :)

Re,

Non la colonne dans l'exemple commence de la ligne 3 a 23

Une autre proposition est l'utilisation d'un filtre automatique

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub CheckBox1_Click()   Filtrer End Sub   Private Sub CheckBox2_Click()   Filtrer End Sub   Private Sub Filtrer()   Application.ScreenUpdating = False Worksheets("Feuil2").Range("B:B").AutoFilter Field:=1, Criteria1:=IIf(CheckBox1, "Recette", "Achat"), Criteria2:=IIf(CheckBox2, "Achat", "Recette"), Operator:=xlOr End Sub

---

Si tu avais des optionsbutton (c'est à dire l'un ou l'autre) le code sera plus simple


A la question de la lenteur du code en boucle proposé, c'est qu'il boucle sur toute la colonne et non seulement les lignes utilisées

Remplace là par For Each Rng In Worksheets.Range("B2:B200")

Pardon Maxval18,
Je ne me suis pas fait bien comprendre, je voulais dire la taille du fichier en lui même, non pas la liste à elle seule, si le fichier dépasse une certaine taille je dirais 8 Mega pour un ordi de 256 Mega de Ram, Alors là ... Bonjour!
Donc vérifiez dans les proprietés de votre fichier et regardez à quelle taille il est.

RE,

Merci mercatog nickel

@+

Max