Nouvelles données dans combobox

Fermé
S.PELLEGRINO64 Messages postés 1 Date d'inscription mercredi 28 janvier 2015 Statut Membre Dernière intervention 30 janvier 2015 - Modifié par Whismeril le 30/01/2015 à 18:37
Bonjour,

Je developpe en ce moment une interface qui réfere des informations sur des athlétes . Plusieurs tris de combobox sont intégégrés dans l'userform1

Tel que " Le courreur, nationalité, date de naissance, profil, entraineur,club etc ..."

dans une deuxiéme userform se trouve une interface pour enregistrer les renseignements cité ci-dessus.


l'enregistrement par un bouton dans la deuxiéme userform se fait comme suit :

Private Sub CommandButton1_Click()

Sheets("feuil1").Activate

Range("AS" & Range("AS" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox1.Value

Range("AT" & Range("AT" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox2.Value

Range("AU" & Range("AU" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox1.Value

Range("AW" & Range("AW" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox3.Value

Range("AY" & Range("AY" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox5.Value

Range("AZ" & Range("AZ" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox4.Value

Range("BA" & Range("BA" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox6.Value

Range("AX" & Range("AX" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ComboBox2.Value

Unload UserForm2

End Sub


elle se retrouve donc dans un classeur en collonne sur une liste blanche référencé.

Pour la sa suite dans luserform1 je synchronise les données entre combobox.


pour la combobox " nationalité" une liste était deja prédéfinie elle référe toute les natio


cette liste se synchronise avec la combobox "Club" qui est une liste collé à nationalité

dans le tableur

Private Sub ComboBox2_Change()

   If ComboBox2 <> "" And ComboBox2.ListIndex <> -1 Then
   
      ComboBox6 = Range("NATIONALITE").Cells(ComboBox2.ListIndex + 1, 1)
  Else
    ComboBox6 = "?????"
    End If

end sub



Mom probléme c'est que l'orsque j'en registre avec mon userform 2 la nationalité elle n'a aucun lien avec ma liste de nationalité prédéfinie à la base, car elle se creer dasn une autre colonne


comment pourrais-je remedier à ce probléme pour que mon enregistrement de nationalité et un lien avec ma premiére liste de nationalité prédéfinie histoire de synchroniser aussi les nouvelles données eregistrées avec le reste ?



Merci,

EDIT: Spécification du langage dans la coloration syntaxique.