Discussion :

[le_sonic]

Bonjour a tous
Sous Word, j'ai besoin de faire un userform, dans ce dernier j'ai crée un combobox et je voudrais qu'il m'affiche tous les titres du fichier excel X dans la feuille Y...

Pour differentié, les titres du reste, il sont en caractére Gras (bold)

mais voila le probleme : comment faire tout ca ... comment lui faire recherché les textes en gras et ensuite les affichés ...

Merci bocou

[le_sonic]

Snif , personne ?

Je n'ai peu etre pas était assez clair sur les explications ...
svp un peu d'aide

[illight]

Essaye en cherchant quand tes termes, en faisant une fonction c'est :

Code :

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

selection.font.bold = true

Et faire un if la dessus pour les afficher quand ça c'est vrai

[jmfmarques]

En attendant l'arrivée des "pros" de VBA (que je ne connais pas) :
Il est vraisemblable que ce qui est en gras l'a été mis en raisons de conditions réunies.
Si tel est le cas, les mêmes conditions sont tout simplement à utiliser et celà évitera à VBA de tester, plus "lourdement" sur "Bold"

[ouskel'n'or]

Tu peux essayer ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub ListeLesAdressesDesCellulesEnGras()
Dim TableauAdressesDesTitres(), i, j, k, ok As Boolean
    For j = 1 To DernièreLigne 'A définir
        For i = 1 To DernièreColonne    'A définir
            ok = Cells(j, i).Font.Bold = True
            If ok Then
                k = k + 1
                ReDim Preserve TableauAdressesDesTitres(k)
                TableauAdressesDesTitres(k) = Cells(j, i).Address(RowAbsolute:=False, _
                    ColumnAbsolute:=False)
            End If
        Next i
    Next j
    For i = 1 To k
        LaForm.LeCombo.AddItem LaFeuille.Range(TableauAdressesDesTitres).Value
    Next
End Sub

Le boolean n'est pas indispensable mais j'aime bien, ça clarifie la logique

A+