cocher toutes les checkbox d'une listbox

[DIGGERJACK]

Bonjour le forum

La macro suivante me permet de sélectionner par checkbox dans une lsitbox les onglets à imprimer en excluant quelques onglets "accueil" et "aide"



Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()

Dim wk As Worksheet

For Each wk In ThisWorkbook.Worksheets
If wk.Name <> "ACCUEIL" And wk.Name <> "AIDE" And Then

If wk.Visible = True Then
ListBox1.AddItem wk.Name
End If
End If
Next
End Sub
Private Sub CommandButton3_Click()
Dim i As Integer
Dim NbFeuil As Integer
Application.ScreenUpdating = False

With ListBox1
NbFeuil = .ListCount - 1
For i = 0 To NbFeuil
If .Selected(i) = True Then
Worksheets(.List(i)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
.Selected(i) = False
End If
Next
End With
Sheets("accueil").Select
Unload Me
Application.ScreenUpdating = True


End Sub

Je voudrais pouvoir cocher toutes les checkbox avec un commandbutton
mais je ne vois pas comment faire

Merci de votre aide

 

[DIGGERJACK]

Re : cocher toutes les checkbox d'une listbox

Re le forum

Ci joint le fichier

Merci de votre aide

 

[deado]

Re : cocher toutes les checkbox d'une listbox

bonjour;
voila pour la 1er foi je vais aider au lieu de demandé de l'aide
si j'ai bien compris, regarde le fichier joint
j'ai ajouter un bouton sur ton USF ( a toi de le mettre ou tu veut )

 

[DIGGERJACK]

Re : cocher toutes les checkbox d'une listbox

Bonjour deado

Je n'arrives pas à dézipper le fichier il m'annonce étant endommagé

Peux tu me le renvoyer

Merci

 

[DIGGERJACK]

Re : cocher toutes les checkbox d'une listbox

Re le forum et deado


J'ai réussi finalement avec IZARC cela fonctionne
Encore un mystère de plus à résoudre

Merci beaucoup pour cette réponse Tout fonctionne

Bonne soirée

 

[deado]

Re : cocher toutes les checkbox d'une listbox

ben, comme j'ai pas de winzip, j'utilise winrar, mais comme on peut pas mettre les fichier .rar je les renomme en .zip ... peut etre que c'est a cause de ca
en tout cas, heureux d'avoir enfin pu aider sur se forum ( faut dire merci au forum )

 

[jeanpierre]

Re : cocher toutes les checkbox d'une listbox

Bonsoir deado, DIGGERJACK,

Pas besoin de .RAR, pas besoin de renommer....

Si tu lisais certains fils, tu verrais que l'on peut zipper avec le compresseur de Windows....

Clic droit sur ton fichier dans l'explorateur et Envoyer vers/Dossiers compressés.

Plus besoin de tous ces programmes.

C'était pour info. et bonne soirée.

Jean-Pierre

 

[DIGGERJACK]

Re : cocher toutes les checkbox d'une listbox

Bonsoir le forum

Dans mon USF j'aurais aimé pouvoir ajouter la quantité de checkbox cochées dans le label 2 mais est ce possible
Merci de votre aide

 

[jp14]

Re : cocher toutes les checkbox d'une listbox

Bonsoir

Un code à tester

Private Sub ListBox1_Change()
    Dim i As Integer
    Dim j As Integer

    For i = 0 To ListBox1.ListCount - 1
         If ListBox1.Selected(i) = True Then j = j + 1

    Next i

Label2.Caption = j
end sub

Jp

 

[DIGGERJACK]

Re : cocher toutes les checkbox d'une listbox

Bonsoir Jp14 et le forum

Je viens de le tester entemps réel et tout est OK

Merci pour la réponse

Bonne soirée