Discussion :

[Pierre67]

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

[Didier Gonard]

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 :

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

=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

[fring]

Bonjour,

Autre possibilité, teste ceci

Code :

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

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 :

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

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"

[Pierre67]

cool merci
joyeuses paques

[Philippe Tulliez]

Bonjour,
Une autre solution avec les fonctions InStr ou InstrRev

Code :

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

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