Userform ListBox Donnée

Bonjour le forum,
Premiére chose j'ai un Userform avec Multipage1.Page1.Page2.Page3
Dans mes pages, j'ai une litbox par page et des combobox

Je vais prendre un exemple juste pour une page :
sur ma page1 j'ai une ListBox1 que j'ai configurer en 7 colonnes
Et des combobox il y en à 7 comme le nombre de colonnes de ma listbox.

Voici les codes pour ma ListBox

Code:

---

1 2 3 4 5

Private Sub ListBox1_Click() With UserForm1.MultiPage1.Page1 For x = 1 To 8: Controls("Textbox" & x) = ListBox1.List(ListBox.ListIndex, x - 1): Next x End With End Sub

---

Pour useform

Code:

---

1 2 3

Private Sub UserForm_initialize() x = Sheets("nondelafeuil").Range("a2:i" & Range("a65536").End(xlUp).Row): ListBox1.List = x End Sub

---

Puis j'ai un code pour modifier le cotenu,
exemple dés que j'appuie les données dans ma listbox ceci se mettent automatiquement dans les combobox puis je modifie un truc et j'appuie sur mon bouton modifier et voici le code

Code:

---

1 2 3 4 5

Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub Cells(ListBox2.ListIndex + 2, 1).Select: z = ActiveCell.Row For x = 1 To 8: Cells(z, x) = Me.Controls("Textbox" & x).Value: Next x: Beep End Sub

---

Maintenant la question, c'est que ma listbox s'actualise pas ou se rafraichi pas
En je voudrais que dés que j'appuie sur mon bouton modifier qu'il m'actualise ma listbox.
:arf::arf:
Ci quelqu'un à une réponse ce serais très gentil merci d'avance
A +++

J'ai trouver une solution juste en attendant une autre

Code:

---

Unload me 'pour enlever le userform

---

Puis je le rappel avec le

Code:

---

Userform.Show

---

Style

Code:

---

1 2 3 4

Sub test Unload me Userform.Show end sub

---

bonsoir PUARAI le forum hum!! ce code me rappelle quelque chose!!!
il faut faire l inverse!!

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() If TextBox1.Value = "" Then Exit Sub Cells(ListBox2.ListIndex + 2, 1).Select: z = ActiveCell.Row For x = 1 To 8: Cells(z, x) = Me.Controls("Textbox" & x).Value: Next x: Beep 'puis un truc comme ca listbox1 ou2??? listbox1.Clear x = Sheets("nondelafeuil").Range("a2:i" & Range("a65536").End(xlUp).Row): ListBox1.List = x End Sub

---

Salut laetitia le forum
J'ai eu ça sur un fichier d'un forum pour un mot de passe je ne sais plus si c'est celui ci ou un autre je suis entrain de monter un fichier pour mon boulot et il ma permis d'adapter sur mon userform
Il est pas mal comme j'avais du mal un peu avec les multipage et listbox mais j'ai quand meme reussi.