Contenu récent par francescofrancesco

Aucune synchronisation, aucune synchronisation La deuxième liste déroulante n'est utilisée que sur le côté opposé lors du défilement d'une liste déroulante en survolant la souris sans utiliser la molette.

Voir la liste1

Vous pouvez consulter à nouveau le code pour faire défiler toute la liste.

J'ai déjà essayé. ListBox2.ListIndex = Y \ ElemHeight Mais le défilement ne dépasse pas les entrées visibles.

Désolé, j'ai déjà utilisé le code du message 8, je vous demande de l'aide supplémentaire.

Caption = Y \ ElemHeight Il affiche simplement la position, mais ne sélectionne pas l'élément dans la liste.

Bonjour, super . Comment modifier le code de la fonction MouseMove de la Listbox ? Merci. Private Sub ListBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) On Error Resume Next 'récupère position vertical curseur souris coordY = Y 'longueur...

Bonsoir. Voir la deuxième liste. Le problème est que lorsque l'on fait défiler la liste, les lignes restent fixes et ne suivent pas l'ordre des dates.

Bonjour. Comme indiqué dans le fichier joint, je peux insérer une ligne pour le nombre d'entrées dans la ListBox, mais uniquement lorsque la date de la colonne B change. Je n'arrive pas à gérer l'incrémentation de K avec la position Top. Excel 2003

"#,##0.00" → format numérique avec 2 décimales pour la colonne 6 Ici, il ne donne pas le résultat attendu.

Je souhaiterais une explication pour cette partie de la ligne. S'il y avait quatre colonnes, alors quatre. ColVisu = Array(1, 2, 6): Forma = Array("YYYY-MM-DD", "@", "#,###.00"): TP = Array(7, 200, 5) Array("YYYY-MM-DD", "@", "#,###.00") <<<<<<Définir le format TP = Array(7, 200, 5) <<<<<<...

J'ai résolu le problème comme ceci, mais ça ne me plaît pas Private Sub CommandButton1_Click() Dim result As Variant Dim Tbl() 'Set ff = ThisWorkbook.Worksheets("filtra") Set f = ThisWorkbook.Worksheets("movimenti") With UserForm27.ListBox1 ColVisu = Array(1, 2, 6) End With With...

Le seul problème concerne la colonne des dates. Les dates sont inversées. Voyons si je peux trouver une solution.

Private Sub CommandButton1_Click() 'Set ff = ThisWorkbook.Worksheets("filtra") With UserForm27.ListBox1 ColVisu = Array(1, 2, 6) End With With UserForm27.ListBox1 v = .List Dim result As Variant Dim Tbl() For i = 0 To UBound(v) 'v(i, 1) = Format(v(i, 1), "dd/mm/yyyy") 'v(i, 1) =...