présentation d'une combobox

Bonjour,

j'ai une combobox alimentée par une colonne d'un onglet.
Dans cette figurent des noms d'images : ab3a.gif, ab6.gif, ...

Dans mon userform, dans la combobox apparaitra ab3a.gif, ab6.gif, ...

Pour donner une plus belle apparence est-il possible que la combobox n'affiche que le nom du fichier sans l'extention (extension cachée) ?

cordialement

bonjour,

soit tu alimentes ta combo par un boucle et tu ne prends que la longueur de la chaîne- 4 à partir du début.
soit tu ajoutes une colonne dans ta feuille avec un formule du genre :

Code:

---

=GAUCHE(D5;NBCAR(D5)-4)

---

Dans les 2 cas, si tu as besoin de pouvoir récupérer les extensions s'il elles ne sont pas toutes en gif, tu alimentes un combo à 2 colonnes, dont une cachée celles avec extensions et c'est cette valeur que tu récupères à la sélection de la colonne visible ;)

voir le tuto de Silkyroad si besoin sur les combos et listbox...

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour,

Autre possibilité, teste ceci

Code:

---

1 2 3

Sub test() MsgBox Split("ab3a.gif", ".")(0) End Sub

---

Il faut remplir le ComboBox via AddItem ce qui donnerait un truc du style

Code:

---

1 2 3 4 5

With Sheets("MaFeuille") For i = 1 To 5 UserForm1.ComboBox1.AddItem Split(.Cells(i, 1), ".")(0) Next End With

---

Ne pas oublier par la suite, lors de l'appel de l'image selon la sélection du Combo, d'ajouter l'extension : UserForm1.ComboBox1.Value & ".gif"

cool merci
joyeuses paques

Bonjour,
Une autre solution avec les fonctions InStr ou InstrRev

Code:

---

1 2	MsgBox Left(Cells(2, 1), InStrRev(Cells(2, 1), ".") - 1) MsgBox Left(Cells(2, 1), InStr(Cells(2, 1), ".") - 1)

---