XL 2019 Gestion basique d'une Association

[sorondo]

Bonjour, je suis Sorondo président d'une association dans l’humanitaire !

Je cherche un fichier excel qui me permettra de gérer les adhésions (nom, prénom, numéro générique, numéro de téléphone et quartier) les statuts (membre actif, membre d’honneur et membre bienfaiteur)
Sur la comptabilité (cotisations, dons et legs) nature des cotisations (espèce, mobile money) et les totaux

Merci d'avance !

 

[JM27]

Bonjour
a adapter a ton asso
Prêt à t'aider si tu n'y arrive pas

 

[cathodique]

Bonjour
a adapter a ton asso
Prêt à t'aider si tu n'y arrive pas

Bonsoir,

Salut @JM27 : content de te rencontrer😉😉. je me suis permis de remplacer du code pour ne plus avoir les noms en doublons dans la comboNom.
J'espère que ton fichier répondra au besoin de @sorondo 🙂.

Bonne soirée

 

[JM27]

bonsoir
Encore un qui pose des questions et qui ne reviens pas .😡
effectivement @cathodique bien vu

 

[bakerman2]

Le méthode préfère pour remplir un ComboBox c'est le méthode List.
Il est également préférable de limiter autant que possible les opérations de lecture et d'écriture sur la feuille de calcul.

Private Sub Userform_Initialize()
    Dim alternative As Variant
    With Sheets("Data")
        Me.ComboCivilité.List = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Value
        
        alternative = .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).Value
        Me.ComboAdérentAJour.List = alternative
        Me.ComboInformatique.List = alternative
        Me.ComboJeux.List = alternative
        Me.ComboListeRouge.List = alternative
        Me.ComboMarche1H.List = alternative
        Me.ComboMarche2H.List = alternative
        Me.ComboPeinture.List = alternative
        Me.ComboRecu.List = alternative
        Me.ComboVoyage.List = alternative

        Me.ComboBanque.List = .Range("C2", .Range("C" & .Rows.Count).End(xlUp)).Value
   End With
   ''comboNom sans doublons
    Dim myarr As Variant, i As Long, x0 As Variant

    With Sheets("BDD")
        myarr = .Range("C2", .Range("C" & .Rows.Count).End(xlUp)).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(myarr)
            x0 = .Item(myarr(i, 1))
        Next
        Me.ComboNom.List = .keys
   End With
End Sub

 

[cathodique]

bonsoir
Encore un qui pose des questions et qui ne reviens pas .😡
effectivement @cathodique bien vu

Bonjour,

Décidément, tu n'as pas de chance. Ils disparaissent tous dans la nature.

Bonne journée.