Discussion :

[casefayere]

Bonjour à tou(te)s

afin de régler un problème de rapidité d'éxecution, j'ai changé le code suivant à l'initialisation d'un USF :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
a = .Range("A" & .Rows.Count).End(xlUp).Row
Set PLAGE = .Range("b2 :b" & a)
With REFCHOISIE 'ma listbox
    For Each cel In PLAGE
      .AddItem cel(1, 0)
      .Column(1, .ListCount - 1) = cel(1, 1)
      .Column(2, .ListCount - 1) = VBA.Format(cel(1, 2), "#,##0.00 €")
      .Column(3, .ListCount - 1) = VBA.Format(cel(1, 3), "#0.00 %")
      .Column(4, .ListCount - 1) = cel(1, 5)
      .Column(5, .ListCount - 1) = cel(1, 6)
      .Column(6, .ListCount - 1) = VBA.Format(cel(1, 8), "# ##0.00 €")
      .Column(7, .ListCount - 1) = VBA.Format(cel(1, 9), "##0")
    Next cel
End With

pour celui-ci :

Code :

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

1
2
3
4
5
6
7
a = .Range("A" & .Rows.Count).End(xlUp).Row
End With
With REFCHOISIE
    .ColumnCount = 10
    .RowSource = "A2:J" & a
    .ColumnWidths = ";250;42;42;0;185;40;0;48;"   'Masque les colonnes inutiles
End With

mais avant je pouvais utiliser "REFCHOISIE.CLEAR" (pour mes besoins) or avec le code ci-dessus, j'obtiens "erreur non repertorié" sur cette ligne

Je ne vois pas d'ou vient le problème ?

alors si quelqu'un voit mon erreur et peut m'aider, merci d'avance

[wilfried_42]

Bonjour

je ne sais pas , m'enfin j'ai une idée, dans un listbox, l'utilisation de rowsource ne remplis pas la listBox de données à proprement dit, donc il n'est pas utile de mettre CLEAR. par contre, je suis tombé sur un probleme de reatualisation des données

et su je me rappelle bien, en desactivant (enabled), modifiant le rowsource et en reactivant ca doit fonctionner (si j'ai bonne memoire), ce soir je suis au boulot et si tu n'as pas la reponse je te confirmerai

[casefayere]

Merci Wilfried,

Je vais cogiter avec tes conseils, moi aussi maintenant je suis au boulot

Te tiendrai au courant, bonne journée

[tirex28]

Bonjour,

Pour vider une liste remplie avec RowSource:

Code :

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

REFCHOISIE.RowSource = vbNullString

Cordialement,

Tirex28/

[casefayere]

Merci Tirex,

J'espère que tu as vu ma réponse sur tes derniers conseils (le site étant en panne)

C'est d'ailleurs suite aux changements que tu m'as proposé que j'ai eu ce nouveau problème

Merci encore