Combobox affiche que les cellules en Gras

Bonjour,

Est-il possible qu'une combobox n'affiche que les cellules en Gras (Parmi d'autres cellules au format normal) ?

Si oui, savez-vous comment faire ?

Merci d'avance

Salut Syd,

quelque chose comme ceci, sans doute, à adapter...

For x = 1 To 10
    If Cells(x, 1).Font.Bold = True Then Me.ComboBox.AddItem Cells(x, 1)
Next

A+

Bonjour,

Merci pour votre réponse mais vu mon peu de connaissances en codage VBA, je ne suis pas sûr de pouvoir adapter votre code.

Pourriez vous me donner plus de détails svp

Salut Syd,

ne penses-tu pas que c'est plutôt à toi à nous donner plus de détails?

A+

Re

Vous avez raison. Je vous ai joint un fichier pour que ce soit plus clair.

Userform4 s'affiche dès l'ouverture.

J'aimerais que dans le combobox1 ne s'affichent que les cellules en Gras. (C'est à dire 01-Cloison et 02-Revetement)

Merci pour votre aide

Bonjour,

J'ai tapé le code suivant

Private Sub Userform_Initialize()

Dim C As Integer
Dim dl As Integer
Dim i As Integer

Sheets("DStheorique").Activate
dl = Range("B65536").End(xlUp).Row
C = 2

For i = 1 To dl
    If Cells(i, C).Font.Bold = True Then
    ComboBox1.AddItem Cells(i, C)
    End If
Next

End Sub

Cependant erreur d'exécution 70, accès refusé apparait et je ne comprends pas pourquoi....

Je besoin de vos lumières !

Merci pour votre aide

Salut Syd,

j'ai un peu perdu le fil de vue...

Puisque tu veux un affichage ciblé, il faut sûrement mettre à zéro la propriété 'RowSource' de ComboBox1.

Dans ce cas, le code suivant fonctionne très bien (UserForm4).

Private Sub UserForm_Activate()
'
With Worksheets("Projet")
    iRow = .Cells(Rows.Count, 1).End(xlUp).Row
    For x = 9 To iRow
        If .Cells(x, 1).Font.Bold = True Then Me.ComboBox1.AddItem .Cells(x, 1)
    Next
End With
'
End Sub

A+

Bonjour,

Merci pour votre réponse j'ai rentré votre code mais il y a un problème d'exécution là ou j'ai surligné :/

Je ne comprends pas pourquoi, le code ne veut pas tourner.

Private Sub UserForm_Activate()
'
With Worksheets("Projet")
    iRow = .Cells(Rows.Count, 1).End(xlUp).Row
    For X = 9 To iRow
        If .Cells(X, 1).Font.Bold = True Then Me.ComboBox1.AddItem .Cells(X, 1)    Next
End With

End Sub

Merci pour votre aide

Salut Syd,

difficile de deviner... sans fichier!

A+

Bonjour,

Avec ceci :

Private Sub UserForm_Initialize()

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Projet"): Set Plage = .Range(.Cells(9, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    Me.ComboBox1.RowSource = "" 'tu as "RowSource" qui est définie en dur dans les propriétés, il faut l'annuler !

    For Each Cel In Plage

        If Cel.Font.Bold = True Then Me.ComboBox1.AddItem Cel.Value

    Next Cel

End Sub

Merci pour vos réponses

Theze ton code marche parfaitement

A+

Salut l'équipe,

Ah? C'était pourtant écrit dans mon post du 29...

A+

Bonjour Curulis

Merci de m'avoir aider

Ton post du 29 bloquait sur une ligne " Me.ComboBox1.AddItem .Cells(X, 1) "

Theze l'a modifié un peu...

Encore merci à vous deux

A+