Ajouter un texte en plus des données dans une ComboBox

Bonjour à tous,

Le code ci-dessous me sert à alimenter une ComboBox et cela fonctionne bien. Toutefois, je souhaiterais ajouter un texte à la suite des données.
Je m'explique. Ce contrôle me donne des temps 5, 10, 15, etc... jusqu'à 120.
A la suite de ce temps, j'aimerais que s'affiche "minutes" après le nombre ce qui donnerais dans la Combo "5 minutes".
Merci par avance pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub UserForm_Initialize() Dim ws As Worksheet, rng As Range Dim NbLignes As Long 'Définit la feuille contenant les données Set ws = Worksheets("Liste") 'Définit le nombre de lignes dans la colonne D NbLignes = ws.Range("D65536").End(xlUp).Row Set rng = ws.Range("D2:D" & NbLignes) 'Remplissage de la Combo ComboTempsCuiss Me.Combo_TempsCuiss.RowSource = rng.Address End Sub

---

Bonjour
Ce n'est pas possible dès lors qu'il s'agit d'une combobox liée à une plage de cellules (sauf bien sûr à modifier la plage elle-même)
Il te faut donc alimenter cette combobox par un autre procédé que RowSource.

Par AddItem cela serait-il possible ?

Merci

Je précise que dans ma plage de cellules, les données sont écrites "5 minutes", "10 minutes". Mais seul les chiffres restent dans ma Combo. J'aurai dû le préciser dès le départ, désolé pour cet oubli.

Citation:

---

Par AddItem cela serait-il possible ?

---

Entre autres, oui.
Mais je ne vais pas continuer à tout écrire chaque fois à ta place sans que tu n'aies au moins tenté et montré le code tenté. ;)

Je ne te demandais pas d'écrire le code, ce n'était qu'une question afin de savoir par où me diriger.

J'ai trouvé une solution avec un code assez court et qui fonctionne sans passer par AddItem.

Code:

---

1 2 3 4 5

With Sheets("Liste") Combo_TempsPrépar.List = .Range("D2:D" & .Range("D65536").End(xlUp).Row).Value Combo_TempsCuiss.List = .Range("F2:F" & .Range("F65536").End(xlUp).Row).Value End With

---

Mon problème est maintenant résolu.
Merci pour l'aide apportée et bonne fin de journée
Amicalement