Discussion :

[patdu35]

Bonjour,
Je suis le gestionnaire bénévole d'un club sportif d'enfants et je souhaiterais gérer les inscription des adhérents sous Excel.
J'ai un onglet avec les infos administratives (nom, prénom, tél...) et je souhaiterais, à partir d'une liste déroulante intuitive soit aller sur l'enregistrement d'un adhérent pour le mettre à jour si il existe déjà (reconduction d'une année sur l'autre) soit en créer un nouveau.
On taperait les premiers caractères du nom et apparaitrait la liste de ceux qui commencent par les lettres tapées et au choix soit on continue la frappe, soit on sélectionne une entrée dans la liste. Puis on copie les données dans une zone tampon pour mise à jour ou on complète tout si nouvel adhérent.
J'espère être assez clair dans mes explications car je ne peux pas diffuser mon fichier (données personnelles des adhérents !)
Merci beaucoup de votre aide à notre petit club.
PS: Je suis preneur de développements gratuits tout faits pour gérer le club si vous avez des tuyaux

[Daniel.C]

Bonjour,

Ça dépend de l'emplacement de tes données sur la feuille. Mets en pièce jointe un classeur sans données confidentielles.

[patdu35]

Bonjour Daniel,
Voilà, j'y ai mis le temps mais j'ai reconstruit un fichier avec des noms imaginaires.
Sur l'onglet "Liste" j'enregistre (aujourd'hui à la main) tous les adhérents (depuis des années!).
Dans l'onglet "Saison 2012-2013" je recopie les inscrits de l'année correspondante.
Ce que je souhaiterais c'est automatiser un peu tout cela et sur l'onglet "Formulaire saisie" commencer à taper un nom et si il existe dans l'onglet "Liste" pouvoir le sélectionner afin que les infos s'y rapportant s'affichent en B1:B15 afin de les corriger éventuellement puis valider sur l'onglet de la nouvelle saison.
Si l'adhérent n'existe pas alors on valide le nom en B1 puis on remplit toutes les données et enfin en validant on incrémente les onglets "Liste" et "Saison..."
Puis-je avoir de l'aide au moins pour faire la sélection avec la liste déroulante car j'ai essayé plusieurs trucs mais sans réel succès ?
Par avance merci beaucoup.

[Daniel.C]

Bonjour,

Plutôt qu'utiliser un combobox, j'ai préféré un textbox et une listbox (je n'ai traité que cette partie). Regarde le code de remplissage de la listbox et le classeur joint :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
    Me.ListBox1.Clear
    With Sheets("Liste")
        For Each C In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
            If UCase(Left(C, Len(Me.TextBox1.Text))) = UCase(Me.TextBox1.Text) Then
                Me.ListBox1.AddItem C.Value
            End If
        Next C
    End With
End Sub

[patdu35]

Merci Daniel,
J'étudie cela au plus vite. Ca a l'air bien, je vais juste regarder la possibilité d'ajouter une deuxième colonne avec le prénom car nous avons souvent des fratries. (Donc même nom)
A bientôt

[Daniel.C]

Bonjour,

Tiens-moi au courant si tu rencontres des difficultés.