Problème affichage Listbox

Bonjour à tous !

J'ai récupérer une macro permettant d'avoir un champ de recherche sur excel.

La macro fonctionne parfaitement.

En revanche, les résultats de la recherche apparaissent dans une listbox qui bug !

Le problème: j''agrandie la largeur de la zone listbox, mais dès que je fais une recherche elle se rétrécie automatiquement !

Je vous ai joins le fichier. Ce sera peut etre plus clair que mes explications !

Merci à vous !

Bonjour Boyoo974,

juste une piste : c'est p't'être à cause de la propriété AutoSize ? si elle est à True, change-la pour False.

j'ai rien d'autre à proposer ; bonne chance !

dhany

Salut Dhany,

Merci à toi une fois de plus pour m'aider

Je ne trouve pas de "autosize" dans les propriétés, en revanche, j'ai autoLoad qui est en mode False :/

hélas, j'ai pas d'autre piste à t'indiquer !

dhany

Bonjour,

Une suggestion ... si j'ai bien compris ...

Private Sub TextBox1_Change()
Application.ScreenUpdating = False

    Range("A3:A1000").Interior.ColorIndex = 2
'''    ActiveWindow.ScrollRow = 9
    With Me.ListBox1
      .Clear
      .ColumnCount = 2
      .ColumnWidths = "22;22"
      .Height = 79.5
      .Width = 97
    End With
    If TextBox1 <> "" Then
        For ligne = 3 To Cells(Rows.Count, "A").End(xlUp).Row
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
                Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = ligne
            End If
        Next
    End If
End Sub

ric

Bonsoir Ric,

Le code que tu m'as envoyé n'a pas changé la largeur de la listbox,

En revanche tu m'as donné l'idée de changé dans la macro les paramètres. j'ai changé le paramètre "Width" et du coup ca fonctionne nickel maintenant !

Merci à vous !!

Private Sub TextBox1_Change()

Application.ScreenUpdating = False

Range("A2:A1000").Interior.ColorIndex = 2

ActiveWindow.ScrollRow = 9

With Me.ListBox1

.Clear

.ColumnCount = 2

.ColumnWidths = "-1;0"

.Height = 60

.Width = 230

End With

If TextBox1 <> "" Then

For ligne = 2 To 1000

If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then

Cells(ligne, 1).Interior.ColorIndex = 43

ListBox1.AddItem Cells(ligne, 1)

Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = ligne

End If

Next

End If

End Sub

Bonjour,

Bien content que ça fonctionne.

ric