mise à jour multipage

[ducat 996 2001]

bonjour

j'ai un userform avec multipage. lorsque je saisie des données sur la 1ére page elles s'inscrivent dans ma feuille excel,(jusque là tout va bien) mais lorsque je change de multipage, les données ne sont pas à jour, je suis obligé de fermer et ouvrir le userform pour les voir.

comment faire pour actualiser automatiquement le userform?

merci 🙂

 

[Creepy]

Bonjour le Forum, Ducat,

Tu donnes peux d'informations, je ne vais donc te donner qu'une piste de solution.

Tu dis :

sont pas à jour, je suis obligé de fermer et ouvrir le userform pour les voir

J'en deduis donc que dans ta procédure userform_initialize tu charges les données.

Fais une fonction ou procedure séparée puis dans ton userform_initialize fait un call. Dans ton Multipage_change fait de même appelle cette fonction.

et voila le tour est joué.

@+

Creepy

 

[ducat 996 2001]

ok merci

vais essayer ça tout à l'heure 😉

 

[ducat 996 2001]

OK ça fonctionne 🙂

merci

 

[ducat 996 2001]

oups! j'ai parlé un peut trop vite.
ça fonctionne mais la combobox qui se met à jour à chaque changement de multipage 'additionne' les données. (si je dois avoir 5 valeurs dans la combobox, 3 changement de multipage et hop je me retrouve avec 5 valeurs en triple).

une solution ?

merci

voila le code que j'appella à chaque chgt de multipage:

Sub Chargement()

Dim derlgn As Integer, L As Integer
Dim NumFact As Collection

With Worksheets('portefeuille')
derlgn = .Range('A65535').End(xlUp).Row
Tabtemp = .Range(.Cells(2, 1), .Cells(derlgn, 20)).Value
Set NumFact = New Collection

For L = 1 To UBound(Tabtemp, 1)

On Error Resume Next
NumFact.Add Tabtemp(L, 1), CStr(Tabtemp(L, 1))
On Error GoTo 0

Next
For L = 1 To NumFact.Count
UserForm1.ComboBox1.AddItem NumFact(L)

Next

End With
With UserForm1
.ListView1.View = 3
End With

End Sub