Autres Bug au niveau de la modif de ma Listview

[marcelio]

Bonjour le Forum,
Après beaucoup de recherche sur le forum,
j'ai réussi par trouver des codes pour modifier le contenu de ma Listview.
Mais pour moi il y à 2 bug que j'arrive pas à trouver la solution.
Si vous avez une solution je suis preneur.
- Quand je fait une modif sur un nom et clic ensuite sur "VALIDER MOTIF ", la modif se fait bien mais le nom descend à la dernière place.
Hors je voudrais qu'il ne bouge pas, qu'i reste à sa place.
- et quand je clic sur " VALIDER LES DONNEES SUR LA FEUILLE " l'enregistrement ce fait bien mais çà ne modifie pas, cela efface et recopie plus bas.
il faudrait que sa remplace et reste en place.
Merci de votre aide
Marcelio

 

[youky(BJ)]

Bonjour Marcelio,
Un seul bouton suffit pour tout faire
La macro cherche si le code existe déjà ou non
Voici un simple petit code que j'ai mis dans le bouton du haut
Bruno
EDIT: j'ai oublié de supprimer ces lignes
Feuil4.Cells(Lig, 44) = Equipe_1
equipe = Equipe_1

Private Sub Valide_part_Click()
If TextBox1 = "" Then Exit Sub
Lig = Application.Match(Val(TextBox1), Feuil4.[GB1:GB5000], 0)
If Not IsNumeric(Lig) Then Lig = Feuil4.[GB5000].End(3).Row + 1
Feuil4.Cells(Lig, 44) = Equipe_1
equipe = Equipe_1
For k = 1 To 12
Feuil4.Cells(Lig, k + 183) = Controls("TextBox" & k).Value
Next
ListView1.ListItems.Clear
UserForm_Initialize
End Sub

 

[marcelio]

Bonjour youky,
Merci pour ton code, mais j'ai oublier d'ajouter une 2ème Listview qui me permet d'ajouter de nouveaux noms.
Il faudrait indiquer sur la feuille en GA2 de quelle groupe fait parti le nom sélectionné.
et j'ai plusieurs feuilles qui utilise ce code.
Désolé pour l'oubli
Merci de ton aide
Marcelio

 

[youky(BJ)]

Voici le retour du fichier.
Je pense avoir compris . . .
J'ai ajouté Label57 pour savoir le groupe facilement
Bruno

 

[marcelio]

re,
Merci Bruno c'est super.
Mais comme j'ai plusieurs feuilles qui doivent utiliser ce code,
J'ai supprimer Feuil4 par Sheets, mais bien sur cela ne fonctionne pas.
Quel code je doit mettre pour l'utiliser sur toutes les feuilles.
Bon après midi à toi et au Forum.
Marcelio

 

[marcelio]

Re Bruno,
En plus du code pour plusieurs feuilles est il possible d'ajouter un tri xlAscending à partir de GA2
Merci de ton aide
Marcelio

 

[youky(BJ)]

RE
Feuil4 est ce que l'on appelle le Codename et non le nom que l'on donne à l'onglet
Tu peux voir en fenêtre projet Feuil4(semaine1)
Je préfère utiliser Feuil4 que Sheets("semaine1") car cela permet de renommer l'onglet sans PB
Si tu dois écrire sur plusieurs onglets faut soit écrire plusieurs lignes de code en plus ou faire une boucle sur tout les onglets. Je vois pas trop ce que tu souhaite faire.
Bruno

 

[marcelio]

Re,
J'ai entre 30 et 40 feuilles et chaqu'une ses données, ils ne doivent pas se mélanger.

et pour le tri xlAscending:
tu valide sur le GrA puis GrB et tu retourne valider sur le GrA le dernier n’apparaît pas car il est séparer du reste du GrA
Marcelio

 

[youky(BJ)]

Voici,
J'ai pas le temps aujourd'hui pour en faire plus.
A tester (manque le tri à faire) à voir si c'est cela
Tu seras peut être ajouter le tri . . . hihi!
Bruno

 

[youky(BJ)]

Avec tri
Bruno

 

[marcelio]

Bonjour Bruno et le Forum,
Merci Bruno pour ton fichier il est super.
J'ai modifier les groupes par mes vrai noms sur la feuille et VBA et c'est cool.

Par contre j'ai un 2ème fichier dans le même genre mais avec + de groupes (noms) entre 10 et 30 noms avec plusieurs feuilles.
Je pensais pouvoir adapter ton code sur mon autre fichier mais malheureusement cela n'est pas possible.
J'ai essayer, modifier quelques codes mais rien à faire je n'y arrive pas.
Si tu pouvais me donner encore un petit coup de pouce cela serais sympas.
Merci à toi
et bonne journée à toi et au Forum.
Marcelio

 

[youky(BJ)]

Voici le coup de pouce . . .
Fait tard dans la soirée ca va te couter cher . . .
Bruno

 

[marcelio]

Bonjour Bruno et le Forum,
Je t'avais pas demander de faire des heures supp.
Mais n’empêche que ton fichier est super, j'avais commencer à mettre aussi Equipe_1 et 2, mais j'avais du oublier quelque chose.
Par contre quand tu clic sur " gérer l'autre groupe " au niveau de la Listview2 ça ne change pas de groupe.
Encore merci merci.
Bonne journée Bruno et au Forum.
Marcelio

 

[youky(BJ)]

En ce moment j'ai très peu de temps alors je suis pas rapide mais voici.
Bruno

 

[marcelio]

Re,
Merci.
J'ai encore une demande la dernière et après je te laisse tranquille.
J'ai ajouter un bouton " SUPPRIMER UN PARTICIPANT "
en cherchant j'ai bien trouver un code, il supprimer bien le participant sélectionner dans la Listview mais malheureusement pas sur la feuille:
Mon code :

Private Sub SUPPR_PARTICIPANT_Click()
If LigLW = 0 Then
MsgBox "Veuillez sélectionner la ligne à supprimer !"
Exit Sub
Else
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
NbLigLW = LigLW - 1
End If
End Sub

Encore une nouvelle fois merci
Marcelio