Discussion :

[PUARAI]

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 :

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

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 :

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

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 :

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

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.

Ci quelqu'un à une réponse ce serais très gentil merci d'avance
A +++

[PUARAI]

J'ai trouver une solution juste en attendant une autre

Code :

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

Unload me 'pour enlever le userform

Puis je le rappel avec le

Code :

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

Userform.Show

Style

Code :

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

1
2
3
4
Sub test
Unload me
Userform.Show 
end sub

[laetitia]

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

Code :

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

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

[PUARAI]

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.