Liste déroulante

[Mouman]

Bonjour a vous tous
Voici mon problème.
J'ai une liste d'étudiant dans une liste déroulante alphabétique et un autre a cote numérique( pour les matricule) ils sont placées dans un combobox.

Lors que je demande un de mes étudiants avec la liste de déroulante ses informations s'affichent dans les case appropriées. Son nom son prénom son matricule et autres.

Voici mon problème ...dans ma liste j'ai des étudiants qui ont le même nom mais pas le même matricule . Je voudrais savoir si c'est possible que lorsque je demande un de ses étudiants de ma liste alphabétique un message apparaisse et m'indique que deux personnes ont le même nom et de prendre la liste déroulante des matricules.

Merci pour l'aide

Mouman

 

[noviceAG]

Re : Liste déroulante

Bonsoir Mouman, le Forum,
Jette un oeil sur le fichier joint qui devrait te convenir.
Un grand merci à Thierry
Bonne continuation

 

[Compte Supprimé 979]

Re : Liste déroulante

Bonsoir,

NoviceAG, je ne pense que ta réponse soit correcte car Mouman nous parle de ComboBox

Sinon Mouman, tu peux essayer ce code
En partant du principe que les noms sont dans la colonne "A"

Private Sub ComboBox1_Change()
  Dim Nb As Long
  Nb = Application.WorksheetFunction.CountIf(Range("A1:A1000"), Me.ComboBox1.Value)
  If Nb > 1 Then
    MsgBox "Il existe plusieurs élèves avec le même nom" & vbCrLf _
    & "Merci de choisir le matricule correspondant", vbCritical, "ATTENTION ..."
    Me.ComboBox2.SetFocus
  End If
End Sub

A+

 

[Mouman]

Re : Liste déroulante

Merci infiniment ca fonctionne a merveille