Discussion :

[Vba14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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.

[Vba14]

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.

[unparia]

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é.

[Vba14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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