Cocher / Décocher sur deux listbox

[RONIBO]

Bonjour,

Je souhaiterai cocher / décocher les cases qui se trouvent dans deux listbox

Actuellement j'utilise :

Private Sub CBCocherDécocherDocuments_Click()
If Me.LBListeDocumentsPDF.Selected(0) = True Then
LBListeDocumentsPDF.MultiSelect = 0
LBListeDocumentsPDF.MultiSelect = 1
Else
For I = 0 To LBListeDocumentsPDF.ListCount - 1
LBListeDocumentsPDF.Selected(I) = 1
Next
End If
End Sub

Ma deuxième listbox s'appel "LBListeAttestationTVA"

J'ai essayé de mettre and LBListeAttestationTVA... mais pas fonctionné

Merci d'avance

A+

 

[RONIBO]

Re : Cocher / Décocher sur deux listbox

Bonsoir,

Je vous permet de remonter mon sujet.

Je vous joint un fichier exemple à extraire dans C: (seulement le dossier Ronibo)
Le dossier Attestation de TVA à extraire sur le bureau.

Svp

Il faut changer l'utilisateur dans le module1

Public Const CheminDossierAttestationTVA As String = "C:\Users\Admin\Desktop\Attestation de TVA\"

Ma demande consiste l'étape 3 de l'usf.
Lorsque je clique sur cocher/décocher tout j'aimerais l'utiliser sur les deux listbox (LBListeAttestationTVA & LBListeDocumentsPDF)

Merci d'avance à vous.

A+