Listbox sur feuille => derniere ligne non visible

Bonjour a tous,

Je rencontre une difficulté aves les listbox que j'ai placés dernièrement sur une de mes feuilles (mon dashboard dans mon cas.)

En effet, une fois chargé je ne peux jamais accéder ni voir la dernière ligne.

quelqu'un aurait il une idée pour résoudre ce soucis?

Merci par avance

@+

Comment chargez-vous ces LB ?

via macro sous vba

exemple

Public Sub Listing_calls()
  Set f = Sheets("projects")
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = f.Range("F2:G" & f.[F65000].End(xlUp).Row).Value

  For i = LBound(a) To UBound(a)
  If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
  Next i
  Me.List_Calls.List = MonDico.keys

'Tri le contenu du ComboBox par ordre alphabétique
    With Sheets("DashBoard").List_Calls
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then

                    strTemp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = strTemp

                End If

            Next j
        Next i
    End With
    Projects_Year.TopIndex = Projects_Year.ListCount
End Sub

Pour moi cette macro fonctionne normalement, je vois bien la totalité de mes données (dernière ligne incluse). Pourriez-vous mettre en ligne une copie d'écran des propriétés de votre combo ?

oui la macro est fonctionnelle mais c'est l'affichage qui bug

A mon avis, le problème se situe ici :

  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
  Next i

si on place un Msgbox MonDico.Count à la sortie de cette boucle, le compte n'y est pas. Ne vas pas plus loin.

je ne sais pas en fait la macro fait ressortir tous les résultats

mais c'est la listbox qui cache la derniere ligne

si je mets mode création et agrandit je vois bien la ligne

Tu ne peux rien faire en mode création (sélection, clic, etc.).
Tu as vérifié si le compte y était en sortie de boucle ? Chez moi ce code me donne bien une liste dans l'ordre alphabétique, mais également incomplète.

le compte est bon :

Msgbox MonDico.Count me renvoit la bonne valeur en sortie mais l'affichage bug

Ca venait de chez moi, j'avais un doublon dans la colonne F. Maintenant tout fonctionne normalement. Tu as combien de lignes dans la feuille à traiter ?

Ci-dessous un exemple avec 3000 lignes qui fonctionne normalement.

je vous remercie pour votre retour.

Il y a bien des doublons dans ma liste mais c'est filtré par le code.

néanmoins et même avec votre code je me retrouve avec le même problème..

C'est curieux, bon courage. Bye.

Re Bonjour,

j'ai totalement reproduit le problème rencontré au sein de votre fichier

j'ai pris mes lignes d'appel d'offres et repris la même configuration d'affichage et le problème se reproduit.

je pensais que ca pouvait être lié à la procédure zoom automatique lors du chargement mais même désactivé cela ne fait rien...

la dernière ligne devant s'afficher est "Training" que l'on peut voir si on agrandit la listbox via mode création mais pas en temps normal..

je m'en remet à vous svp..

Bonjour à tous,

La listbox triée sans doublon donne 36 items ...

Sur la 2e feuille colonne F > si l'on fait trier et que l'on supprime les doublons > il reste 36 items ...

Sur ma machine > ton code fonctionne donc bien ...

Par contre, si l'on modifie le "Zoom" de la feuille > puis l'on relance le code > selon le Zoom > il arrive que la dernière ligne est manquante ou tronquée en hauteur ...

ric

Bonjour Ric,

merci pour votre retour et constat qui vous amène exactement là où j’en suis 🥲.

comment me sortir de ce soucis svp?

Bonjour à tous,

Avec mes pauvres connaissances > je ne vois pas grand solution codée ...

À partir de ton Zoom préféré > ajuste la hauteur de la listbox afin de voir tous les éléments ...

Si cela ne convient pas > je n'ai pas d'autres solutions qui me viennent à l'esprit ...

ric

Il reste toujours la solution d'ajouter "FIN" en dernière ligne.

Pas très pro je dirais mais néanmoins cela résoudrais le souci.

Ceci étant dit j’ai des soucis avec d’autres listbox alors j’espère juste que cette solution sera aussi pertinente .