Microsoft 365 ListView dans Userform

TAL · 20 Août 2023

Bonsoir,

J'aurais besoin de votre aide, SVP

Je tourne en rond pour la création et l'utilisation d'une ListView dans un USF. J'avoue, je n'y connais vraiment pas grand chose en VBA
Dans l'USF, j'ai des TextBox et des ComboBox mais également dans des Trames, que j'ai nommé par Gr, des CheckBox et des OptionButton.

Il y a pas mal de vidéos sur la création d'une ListView, mais qu'avec des TextBox & des ComboBox et ça fait des jours que je suis dessus.

Pouvez-vous, si cela vous est possible, de m'aider sur la création et l'enregistrement d'une ListView (ajouter, modifier, supprimer, recherche par Items)

Je vous joins le fichier
Par avance, Merci pour votre aide

ChTi160 · 21 Août 2023

Bonjour le Fil
je me suis permis de modifier quelques lignes de la procédure du Bouton "Modifier" à voir

VB:

If Me.ChBAdmin_Recept_Auto_Cumul.Value= True Then
    [T_Administratif].Item(n, 13) = "X"
  End If
  '*****************************************************
  'Ci-dessous
   [T_Administratif].Item(n, 14) = Me.TBHeuresAC.Value
   [T_Administratif].Item(n, 15) = IIf(Me.ChBAdmin_RIB.Value = True, "X", "")
   [T_Administratif].Item(n, 16) = IIf(Me.ChBAdmin_Attest_SS.Value = True, "X", "")
   [T_Administratif].Item(n, 17) = IIf(Me.ChBAdmin_Fiche_Paie.Value = True, "X", "")
   [T_Administratif].Item(n, 18) = IIf(Me.ChBAdmin_CV.Value = True, "X", "")
   [T_Administratif].Item(n, 19) = IIf(Me.ChBAdmin_KBIS.Value = True, "X", "")
   [T_Administratif].Item(n, 20) = IIf(Me.ChBAdmin_Urssaf = True, "X", "")
   [T_Administratif].Item(n, 21) = IIf(Me.ChBAdmin_DNA.Value = True, "X", "")
    [T_Administratif].Item(n, 22) = IIf(Me.OpB9.Value = True, "Complet", "En attente")
 '*********************************************************
   Unload Me
   USFAdm.Show
   Exit Sub

Bonne Journée
Jean marie

fanfan38 · 21 Août 2023

Ayant vu une autre erreur dans le message de CHTI160 (Salut)

VB:

If Me.ChBAdmin_Recept_Auto_Cumul.Value.Value = True Then

Le fichier corrigé avec la modif de CHTI160....

A+ François

ChTi160 · 21 Août 2023

Re
Effectivement j'ai oublié cette ligne ,il y'en a d'autres peut être !
Bonne journée
Jean marie

TAL · 21 Août 2023

Bonjour à tous,

J'étais justement entrain de tester, et en effet, le bouton modifier avait un soucis.
Je continue les tests, en tout cas MERCI
Je vous tiens au courant

TAL · 21 Août 2023

C'est génial, Merci merci
Il ne me reste plus qu'à trouver pour le bouton "Vider" et la "Recherche".
Je vais essayer de trouver de mon côté.

Encore un grand grand grand Merci pour votre aide
Merci beaucoup

Microsoft 365 ListView dans Userform

TAL

XLDnaute Occasionnel

Pièces jointes

ChTi160

XLDnaute Barbatruc

fanfan38

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

TAL

XLDnaute Occasionnel

TAL

XLDnaute Occasionnel

Discussions similaires