Combobox et variable

Bonjour à toutes et tous,
je suis bloqué sur un combobox. j'ai besoin de récupérer en variable la valeur de la cellule précédente, afin de l'utiliser ultérieurement.

Ma combo me donne une liste d'entités (colonne AK), qui ont parfois le même libéllé, et j'ai besoin pour les différentier, de récupérer l'identifiant qui est dans la cellule précedente(colonne AJ).

voici la partie du code concerné:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'Je crée la liste des types , sur le click du type choisi (tous ou ciblé), je remplie ma comboIF. c'est là ou j'ai besoin de récupérer l'identifiant colonne(AJ)   Private Sub combotypeif_click() Dim nomfeuille As String nomfeuille = UserFormAide.ComboRegion.Value Set P = Sheets(nomfeuille) For Each Q In P.Range("AK2:AK" & P.[AK65000].End(xlUp).Row) If Q.Offset(0, 1) = Me.ComboTypeIF Or Me.ComboTypeIF = "(tous)" Then Me.ComboIF.AddItem Q   End If Next Q   End Sub *****************************************************

---

' ensuite, je prends celui qui m'interresse dans ma liste dans la combo, et là j'ai le problème des libellés identiques. j'ai du mal à récupérér le contenu de la cellule précédente (colonne AJ) pour en faire ma variable. car à ce stade du code, la listbox se remplie avec tous les items qui ont le même libellé.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

Private Sub comboIF_click()   Dim nomfeuille As String nomfeuille = UserFormAide.ComboRegion.Value   Set R = ActiveWorkbook.Sheets(nomfeuille).Columns(37).Find(Me.ComboIF.Value, LookIn:=xlValues, lookat:=xlWhole) If R Is Nothing Then Me.ListBoxIFsurL.Visible = False Me.LabelLiF.Visible = False   End If   If Not R Is Nothing Then   Me.ListBoxIFsurL.Clear Me.ListBoxIFsurL.Visible = True Me.LabelLiF.Visible = True     premier = R.Address i = 0 Do Me.ListBoxIFsurL.AddItem Me.ListBoxIFsurL.List(i, 0) = R.Value Me.ListBoxIFsurL.List(i, 1) = R.Offset(0, 7).Value Me.ListBoxIFsurL.List(i, 2) = R.Offset(0, 5).Value Me.ListBoxIFsurL.List(i, 3) = R.Offset(0, 4).Value Me.ListBoxIFsurL.ColumnWidths = "00; 100;100;400" Set R = ActiveWorkbook.Sheets(nomfeuille).Columns(37).FindNext(R) i = i + 1 Loop While Not R Is Nothing And R.Address <> premier End If       End Sub

---

merci d'avance, car là je bloque depuis plusieurs jours.

Je viens de mettre en pièce jointe un classeur reprenant la partie concernée par ma question.

Bonjour,

Pourquoi ne pas concaténer le contenu de AJ AK dans Me.ComboIF pour être certain d'obtenir un enregistrement unique ? En récupérant ensuite le numéro de ligne, vous allez pouvoir récupérer la valeur de la cellule AJ.
Nb : J'ai pris AJ comme exemple, mais il peut être plus facile de prendre une autre colonne pour rendre le couple unique avec la colonne AK.

Cordialement.

Bonjour à tous,
je n'arrive pas à concaténer les deux colonnes, lorsque je crée mon jeux d'enregistrement pour remplir la combobox.

la seule chose que j'arrive à faire, avec mon peu de connaissance, c'est de récupérer l'identifiant de la première ligne crée, lors du remplissage de la combo, et uniquement celui là .

je ne souhaite pas que l'utilisateur voit l'identifiant en même temps que le nom, car la liste réelle est extrèmement longue, avec des noms peu parlants certaine fois, et je ne voudrais pas qu'il soit perturbé par cet identifiant.

Merci encore de bien vouloir m'orienté dans cette tache.

Jean-Claude

Bonjour,

Citation:

---

Je ne souhaite pas que l'utilisateur voit l'identifiant en même temps que le nom, car la liste réelle est extrèmement longue, avec des noms peu parlants certaine fois, et je ne voudrais pas qu'il soit perturbé par cet identifiant.

---

Il faudrait pour cela que chaque nom (Libellé1) soit unique.

Ci-joint une solution possible basée sur le couple Identifiant - Libellé1.

Cordialement.

Bonjour
merci Eric, je vais digérer celà, car à la première lecture, je suis complètement perdu.
Je reviendrai dès mon analyse faite.

Jean-Claude

Bonjour à tous,

j'ai opté pour un solution plus simple, car la dernière réponse d'Eric est ok, mais m'oblige à refaire tout le code. j'ai donc rajouté une colonne reprenant deux autre et fais mon tri dessus.

Merci encore à Eric de son aide.

Jean-Claude