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
Partager