Modifier ListView avec des TextBox

Bonjour Patty5046 et le Forum,

J'aurais juste voulu savoir si au démarrage il était possible de passer directement par mon USF, il détecterais automatiquement si des participants sont déjà inscrit et les afficheraient, au lieu de passer par celui de Créer et Modifier.

Encore merci.

Bonne journée à toi et au Forum

Balance58

Bonjour Balance58, bonjour à tous

Je viens seulement de voir ton message que je ne comprends d'ailleurs pas bien.

J'avais rajouté un userform qui te demandait de choisir si tu voulais modifier ou créer un groupe, et qui te permettait de choisir ce groupe.

Vois tout de même, cela a l'air de marcher même si tu veux ensuite gérer l'autre groupe....

Bon courage

Re

Après avoir réfléchi un tout petit peu essaie peut-être cela :

Je vais devenir chèvre...mais tu as raison

A +

Bonjour Patty5046 et le Forum,

Ton 2ème fichier m’intéresse plus,

Mais par contre je ne peu que le testé que cet après midi.

A tout à l' heure je te tiens au courant

Balance58

Re,

Patty5046 ton fichier est super.

Merci pour ton travail.

J'ai trouver quelques bugs.

- Une fois les participants inscrits pour le Gr A et B

et que je retourne pour des modifs un clic sur " gérer les équipes " pour aller au GrB un nouveau clic pour retourner au GrA et la tous les participants ont disparus.

et quand ont fait des modifs les participants sont en double sur la feuille.

• Messages pour les 15 participants, c'est bien mais c'est pour chaque groupe
• Tu pourrais rajouter un message d'erreur si un participant est déjà dans la liste pour éviter les doublons.

Balance58

Bonjour

Etais occupée...viens de multiplier les tests ..bugs..bugs..C'est compliqué avec listview...je continue

Voilà, je pense avoir amélioré plusieurs points...

Je te laisse tester

Bon courage

A+

Re,

Encore un super fichier.

Premier essai pas de bug.

Je continu à testé le fichier et je te tiens au courant.

Bonne soirée à toi et au Forum.

Gros merci

Balance58

Bonsoir à tous

Tant mieux si cela te paraît bien, car j'ai un peu galéré, n'étant plus du tout "dans le bain"...

Mais à la retraite, il faut continuer à faire travailler son cerveau...cela me plaît

Bonne fin de journée

Bonjour Patty5046 et le Forum,

Ton dernier fichier est vraiment super, mais pour l'instant je ne l'ai pas testé sur mon fichier pro,

car je devais d'abord montrer ton travail à mon supérieur et comme moi il l'a trouver magnifique.

mais entre temps monsieur à ajouter des TextBox au fichier original sans me prévenir.

Ces TextBox servent à récupérer les données des participants et à s'additionner dès que l'ont ajoute des données.

Donc j'ai récupérer le nouveau fichier, j'ai ajouter tes codes et j'ai ajouter d'autres codes.

Et j'ai encore besoin de toi :

Je suis entrain de me prendre la tête

• Quand je clic sur "VALIDER PARTICIPANT " il y à que le code qui s'inscrit dans la Listview1, si je supprime Sub ChargerLW1(Eqp_T) cela fonctionne
• A Partir de la Listview impossible quand je clic sur un participant de le mettre à jour et de faire l'addition dans les nouveaux TextBox
• en plus il ma ajouter un USF pour ajouter un nouveau participant

Balance58

Bonjour

Merci pour les compliments...

Mais ton projet devient un grand bazar...tu remercieras ton chef

Pour "Valider participant" j'ai corrigé....

Pour le reste je n'y comprends rien

de faire l'addition dans les nouveaux TextBox

Addition de quoi et cela est éventuellement stocké où ???

Quant à ton userform nouveau participant, tu le stockes je suppose dans ta feuille tributs ?? Mais , sois sympa, tu n'as même pas essayé....le bouton de validation ne comporte aucun code....

Tout cela se complique c'est un vrai chantier

Vois ce fichier pour le bouton "Valider participant"

Puis cherche un peu sois sympa , je t'aiderai encore si possible, mais tu nous demandes énormément de travail et surtout tout n'est pas clair du moins pour moi

Bon courage

PS Je vois aussi que je ne sais pas ce que tu as fait, mais maintenant il y a des lignes vides au début de ta feuille..je pense que cela est possible à corriger par macro

Re,

Merci pour ce bout de code pour la Validation des participants.

Pour moi ce n'est pas le bazar, mais pour les personnes de l'extérieur cela peu l’être c'est sur.

Pour les lignes vides au début de la feuille, cela se produit à chaque fois que l'ont clic sur Modifier feuille, + ont clic + cela descend.

En ce qui concerne le nouveau participant, franchement je n'ai pas chercher.

Je te remercie pour toutes l'aides que tu m'a apporter ainsi que ta patience et ta gentillesse.

Bon courage

Bonne soirée à toi et au forum.

Balance58

Bonjour Balance58, bonjour à tous

J'ai essayé de reprendre tous tes points, vois ce que cela donne.

Et ne me fais pas de blagues..Le bouton ajouter nom ne fonctionnait plus du tout

Si j'ai compris le problème, je ne devrais pas être trop loin de la solution

Bon courage

Bonne journée à tous

Bonjour Patty5046 et le Forum,

Merci de nouveau pour ce code et l'ajout d'un participant.

Par contre je ne sais pas si tu a toucher au bouton " Modifier feuille " mais le problème des noms qui descendent est toujours présent.

Merci

Balance58

Bonjour

Explique moi dans quel cas cela se produit, car pour moi, cela a l'air de fonctionner..??

Je regarde encore

A+

Re,

J'ouvre plusieurs fois l'USF et à chaque fois je rentre des données et j'en modifie sur plusieurs participants.

et quand je clic sur " Modifier la feuille " les noms sur la feuille descendent.

Chez moi c'est ce qui se passe.

j'utilise Excel 2007

Balance58

Re

Ai fait plusieurs tests,,, cela marche

As-tu bien ce code dans Modifier feuille:

Private Sub CmdModifFeuille_Click()
Dim Lig, cplus1, equipe
cplus1 = "B"
DLig = Range("GB65536").End(xlUp).Row + 1
    If Equipe_1.BackColor = vbGreen Then
        equipe = Equipe_1.Text
    Else
        equipe = Equipe_2.Text
    End If
    For i = 2 To DLig
        If Range("GA" & i) = equipe Then
            Range("GA" & i & ":GN" & i).ClearContents
        End If
    Next
    For i = 1 To ListView1.ListItems.Count
        cplus1 = "B"
        If Equipe_1.BackColor = vbGreen Then
            Range("GA" & DLig) = Equipe_1.Text
        Else
            Range("GA" & DLig) = Equipe_2.Text
        End If

        Range("GB" & DLig) = ListView1.ListItems(i).Text
        'Boucle sur les colonnes
        For J = 1 To 12
           'récup lettre colonne suivante
            cplus1 = Chr$(Asc(cplus1) + 1)
            Range("G" & cplus1 & DLig) = ListView1.ListItems(i).ListSubItems(J).Text
            On Error Resume Next
        Next J
        DLig = DLig + 1
    Next i
    Columns("GA:GN").Select
    ActiveWorkbook.Worksheets("semaine1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("semaine1").Sort.SortFields.Add2 Key:=Range( _
        "GA2:GA551"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("semaine1").Sort
        .SetRange Range("GA1:GN551")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Car j'ai ouvert plusieurs fois l'userform, ajouter, modifier...valider et modifier feuille

Pas de problème

Je ne pense pas que cela vienne de ta version excel ...Mais je n'ai pas la possibilité de le savoir....J'ai Office 365

Je continue un peu , peut-être que quelque part tu fais une manip qui perturbe le déroulement...je cherche

A+

re,

J'ai exactement le même code.

Je ne sais pas si tu as remarqué mais quand tu chance les données du 1er participant et que tu clic sur " CmdCompleter_LW1 "

le participant descend à la dernière ligne de la Listview.

Peut être que le problème viens de la.

A+

Balance58