Bonjour Bruno et le Forum,
J'ai testé sur la 1ère feuille de mon fichier et tout fonctionne correctement, rencontré aucun problème.
Par contre sur la 2ème feuille j'ai un problème car certain des participants n'ont pas de code.
Donc j'ai essayer de modifier le code VBA :
La TextBox 1 pour le code, j'ai essayer avec la TextBox2 pour les noms et modifier les codes.
Private Sub Valide_part_Click()
If TextBox2 = "" Then Exit Sub
With ActiveSheet
Lig = Application.Match(Val(TextBox2), .[GC1:GC5000], 0)
If Not IsNumeric(Lig) Then Lig = .[GC5000].End(3).Row + 1
.Cells(Lig, 183) = Label57
For k = 1 To 13
.Cells(Lig, k + 183) = Controls("TextBox" & k).Value
Next
Set plage = ActiveSheet.Range("GA2:GN" & Range("GA" & Rows.Count).End(3).Row)
plage.Sort Key1:=Range("GA2"), Order1:=xlAscending, Header:=xlGuess
ListView1.ListItems.Clear
End With
With ListView1
DLig = Range("GA65536").End(xlUp).Row
For Lig = 2 To DLig
If Cells(Lig, 183) = Label57 Then
.ListItems.Add , , Cells(Lig, 184).Text
For col = 185 To 196
.ListItems(.ListItems.Count).ListSubItems.Add , , Cells(Lig, col).Text
Next
End If
Next
End With
End Sub
Je pense que j''ai du oublier quelque chose car plus je valide et plus le nom se multiplie.
A+
Marcelio