Combobox ne garde pas ma sélection

Bonjour a toutes et tous, Forum bonjour

j'ai une petite liste dans ma Feuil(Compte) en colonne (S), 24 mots pour l'instant.

Hier soir dans le ComboBox6 j'ai sélectionner un mot de ma liste par Exemple: "Expiration C-B".

Ce matin un petit soucis dont je viens de m'apercevoir a l'ouverture de mon fichier.

le mot sélectionner hier ne sait pas afficher dans le ComboBox6

je ne comprends pas pourquoi ma sélection n'ai pas prise en compte ???

Par contre seul le dernier mot de ma liste s'affiche dans le ComboBox6

Merci a vous pour votre aide et pour votre temps

Une bonne journée a tous et merci.

Cordialement Ray

Private Sub UserForm_Initialize()
 For i = 1 To Sheets("Compte").[S65000].End(xlUp).Row
         ComboBox6 = Sheets("Compte").Cells(i, "S")
                 'Existe t-il un doublon
      If ComboBox6.ListIndex = -1 Then
         ComboBox6.AddItem Sheets("Compte").Cells(i, "S")
      End If
 Next i
End Sub

Bonjour,

Lors de l’initialisation, l’index se positionne sur le dernier élément ajouté.

Pour que le dernier mot sélectionné auparavant puisse s’afficher dans le ComboBox, il faut que cette position souhaitée ait été mémorisée.

Dans l’exemple joint, la dernière position est mémorisée dans la cellule A1.

En fin d’initialisation, on place l’index sur la position mémorisée avec

Me.ComboBox6.ListIndex = Range("A1")

A+

Salut frangy

Merci beaucoup pour ta réponse rapide, j'ai adapter le code du fichier a mon programme

Fait les essais et tout fonctionne comme souhaiter

Voila merci également pour les explications, ça a le mérite d'etre clair

Je te souhaite une très bonne journée

Avec tout mes remerciements pour ton aide partagée.

Bien cordialement Raymond