Bonjour,
Après bien des recherches sur le net, je me permet d'écrire afin d'obtenir, enfin si possible, quelques infos.
Description du projet:
Sur une feuille d'un fichier excel, une multitude de Checkbox sont integrées sur chaque cellule (ex: Checkbox1 en A1, Checkbox2 en A2, etc...).
A chaque Checkbox correspond un nom de fournisseur (ex: Maurice en B1, Marcel en B2, etc...).
d'autres part deux boutons sont également integrés dans la feuille, le premier pour filtrer, et le second pour réinitialiser
Le principe du fichier est de pouvoir cacher les lignes sur lesquelles les Checkbox sont cochées. Lorsque l'on clique sur le bouton "Filtrer", les lignes cochées se cachent. Le second "Réinitialiser" permet de tout faire réapparaitre.
Le second servant à réinitialiser le tout. Le problème est que je n'arrive pas à créer de boucle qui fonctionne avec l'objet "CheckBox".
Voici le code:
Premier Bouton:
Private Sub CommandButton1_Click()
Dim a As Integer
For a = 0 To 100
Rows ("1:1" ).Offset (a,0).select
If CheckBox1 = True Then <-- Problème Boucle
Range ("A1" & a).entireRow.Hidden = True
End If
Next a
En Sub
Second Bouton:
Private Sub CommandButton2_Click()
Range ("1:100" ).EntireRow.Hidden = False
Checkbox1 = False <-- Problème Boucle
End Sub
Merci de ramener un mouton dans le bon chemin (j'en ai marre! Lol)