Discussion :

[thomanneca]

Bonjour,
J'aimerais conserver en mémoire lors d'une réouverture de mon fichier excel les données précédemment introduite dans mon userform.
J'arrive à les stocker sur une autre page mais je ne parviens pas à aller les rechercher.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub JoursFeries_Click()   'quand je clic sur un bouton, mon userform s'ouvre
  userform1.Show
 
For i = 1 To 30
    For j = 2 To 11
        userform1.Controls("TextBox" & i).Value = Sheets("data vba").Range("B" & i + 1).Value
    Next
  Next
 
'ou même plus simplement pour un test :
userform1.textbox1.value=sheets("data vba").range("B2").value
 
End Sub

merci d'avance

[Theze]

Bonjour,

A mettre dans le module de ta Form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub UserForm_Terminate()
 
    Dim Ctrl As MSForms.TextBox
    Dim I As Integer
 
    I = 1
 
    For Each Ctrl In Me.Controls
 
        I = I + 1
        Worksheets("data vba").Range("B" & I).Value = Ctrl.Text
 
    Next Ctrl
 
End Sub

Dans ton code, la boucle interne "J" (For j = 2 To 11) ne sert strictement à rien si ce n'est de répéter inutilement 9 fois la même commande

Hervé.

[thomanneca]

Merci pour ton aide Theze mais je pense que ce n'est pas exactement ce que je recherche. Pour le J, abandonnons le pour le moment ainsi que le I

Voici plutôt :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub JoursFeries_Click()
 
userform1.Show
 
userform1.textbox1.value=sheets("feuil2").range("B2").value
'c'est ce dernier code qui ne renvoie pas la valeur de la cellule B2 comme je le souhaiterais lors de la réouvertue de mon fichier..
 
 
End Sub

[Theze]

Re,

Deux façons de faire :
La Form est modale (afin qu'elle garde le focus et empêche de retourner aux feuilles de calcul avant sa fermeture, utiliser pour obliger le renseignement des divers contrôles), il te faut d'abord la charger en mémoire puis remplir le champ et seulement ensuite l'afficher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub JoursFeries_Click() 'quand je clic sur un bouton, mon userform s'ouvre
 
    'charge la form en mémoire
    Load UserForm1
 
    'inscrit la valeur dans la textbox
    UserForm1.TextBox1.Value = Sheets("Feuil2").Range("B2").Value
 
    'puis affiche
    UserForm1.Show
 
End Sub

La Form est non modale et dans ce cas, ton code fonctionne mais alors là, l'utilisateur peux retourner aux feuilles de calcul tout en ne renseignant pas les champs de ta Form :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub JoursFeries_Click() 'quand je clic sur un bouton, mon userform s'ouvre
 
    UserForm1.Show
 
    'inscrit la valeur dans la textbox
    UserForm1.TextBox1.Value = Sheets("Feuil2").Range("B2").Value
 
End Sub

Hervé.

[thomanneca]

parfait avec le Load userform, cela marche très bien !!

j'avais essayé avec load mais comme un malin, je le mettais après userform.show.. !

Un grand merci