Bonjour tout le monde
Je m'en remet à vous car je n'arrive toujours pas à résoudre mon problème de doublon, je m'explique ma combobox gère la colonne enseigne de ma base de données or quelques commerçants possèdent une enseigne identique exemple pour la première la boutique Orange située 5 avenue foch et pour la seconde la boutique Orange située 6 avenue des perdrix lorsque je sélectionne Orange la combobox me renvoie à la première boutique orange qu'elle trouve de plus comme c'est un doublon elle accepte aucune modification dans ma base de données est il possible de contourner ce problème.
A toute fin utile voici un morceau de code de la combobox
Private Sub ComboBox1_AfterUpdate()
Dim La_Position_Occupée As Long
La_Position_Occupée = UserFormODP.ComboBox1.ListIndex + 2
Range("C1").Select
UserFormODP.TextBox5Commerçant.Value = ActiveCell.Offset(La_Position_Occupée, -2).Value
UserFormODP.TextBox4Siret = ActiveCell.Offset(La_Position_Occupée, -1).Value
UserFormODP.TextBox3Adresse.Value = ActiveCell.Offset(La_Position_Occupée, 1).Value
ect....ect
Je m'en remet à vous car je n'arrive toujours pas à résoudre mon problème de doublon, je m'explique ma combobox gère la colonne enseigne de ma base de données or quelques commerçants possèdent une enseigne identique exemple pour la première la boutique Orange située 5 avenue foch et pour la seconde la boutique Orange située 6 avenue des perdrix lorsque je sélectionne Orange la combobox me renvoie à la première boutique orange qu'elle trouve de plus comme c'est un doublon elle accepte aucune modification dans ma base de données est il possible de contourner ce problème.
A toute fin utile voici un morceau de code de la combobox
Private Sub ComboBox1_AfterUpdate()
Dim La_Position_Occupée As Long
La_Position_Occupée = UserFormODP.ComboBox1.ListIndex + 2
Range("C1").Select
UserFormODP.TextBox5Commerçant.Value = ActiveCell.Offset(La_Position_Occupée, -2).Value
UserFormODP.TextBox4Siret = ActiveCell.Offset(La_Position_Occupée, -1).Value
UserFormODP.TextBox3Adresse.Value = ActiveCell.Offset(La_Position_Occupée, 1).Value
ect....ect