Discussion :

[roadruner]

Bonjour,

Je realise un Userform pour faciliter la saisie d'infos dans un fichier excel pour une association sportive.

Mon problème est lié à la modification d'une donnée entrée dans le tableau.

A l'initialisation du Userform, un Combobox se charger avec tous les noms de famille :

Code :

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

1
2
3
4
5
6
7
 
Dim i As Integer
 
For i = 3 To Sheets("GYM 2012").Range("A65536").End(xlUp).Row
  ComboBox_Nom = Sheets("GYM 2012").Range("A" & i)
  If Sheets("GYM 2012").Range("A" & i) <> "" Then ComboBox_Nom.AddItem Sheets("GYM 2012").Range("A" & i)
Next i

Ensuite, quand l'utilisateur sélectionne un nom de famille, le Combobox des prénoms se remplit en conséquence :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ComboBox_Nom_Click()
With ComboBox_Prenom
While .ListCount > 0: .RemoveItem (0): Wend
End With
Dim j As Integer
 
For j = 3 To Sheets("GYM 2012").Range("A65536").End(xlUp).Row
  ComboBox_Prenom = Sheets("GYM 2012").Range("B" & j)
  If Sheets("GYM 2012").Range("A" & j) = ComboBox_Nom.Value Then ComboBox_Prenom.AddItem Sheets("GYM 2012").Range("B" & j)
Next j
ComboBox_Prenom.ListIndex = -1
End Sub

1er problème :
Dans le cas de frères et soeurs, il y a plusieurs fois le même nom de famille dans la liste

2ème problème :
Une fois le prénom sélectionné, comment récupérer le numéro de la ligne du tableau sur laquelle toutes les informations de l'adhérent sont enregistrées ?

Merci d'avance pour votre aide.

[SfJ5Rpw8]

bonsoir ...

déjà pour ton code de Raz tu peu utiliser un .Clear :
ComboBox_Prenom.Clear 'Clear permet d'efface
ensuite tu peu stocker ton numéro de ligne dans une colonne cachée de ton combobox prenom :

Code :

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

1
2
3
4
5
6
7
 
...
If Sheets("GYM 2012").Range("A" & j) = ComboBox_Nom.Value Then
    ComboBox_Prenom.AddItem Sheets("GYM 2012").Range("B" & j)
    ComboBox_Prenom.List(ComboBox_Prenom.ListCount - 1, 2) = j
   End If
....

et pour le récupérer sur le click :

Code :

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

1
2
3
Private Sub ComboBox_Prenom_Click()
  MsgBox ComboBox_Nom.Text & " " & ComboBox_Prenom.Text & " Ligne : " & ComboBox_Prenom.List(ComboBox_Prenom.ListIndex, 2)
  End Sub