garder valeur apres saisie dans un Userform

[wrap food]

Bonjour

voila mon problème..

j'ai créé un userform dans lequel je saisi des infos qui vont ce mettre dans des cellules qui sont liés aux textbox de l'userform.

jusque la tous vas bien..

Mais mon problème est que si l'on relance Userform cela efface automatiquement le contenue des cellules.

Auriez vous une explication à me donner.

je mets une partie de mon fichier en PJ pour que cela soit plus clair.

par avance merci de votre aide .

 

[Staple1600]

Re : garder valeur apres saisie dans un Userform

Bonjour à tous

wrap food
L'explication est verte

Private Sub UserForm_Initialize()
ListBox1.List = Feuil2.Range("a14:e" & Feuil2.Cells(Rows.Count, 1).End(3).Row).Value
'ListBox1.ListIndex = 1
End Sub

 

[wrap food]

Re : garder valeur apres saisie dans un Userform

bonjour et merci de votre réponse

donc il n'est pas possible de garder éléments saisies lors de la première utilisation de l'userform .

Auriez-vous une astuce ou une piste .
je vais continué a chercher

merci encore de votre aide

 

[Staple1600]

Re : garder valeur apres saisie dans un Userform

Re

donc il n'est pas possible de garder éléments saisies lors de la première utilisation de l'userform .

Si c'est possible simplement en écrivant le code VBA différemment et/ou stockant les valeurs dans les propriétés Tag des contrôles
(voir fils abordant ce sujet dans les archives)

 

[wrap food]

Re : garder valeur apres saisie dans un Userform

re bonjour

j'ai mis ce code :

Private Sub ListBox1_Click()
If Range("j15") = ListBox1.List(ListBox1.ListIndex, 1) Then
Label1 = ListBox1.List(ListBox1.ListIndex, 1)
[j15] = ListBox1
Else
Range("j15").Select
Selection.Copy
Range("j15").Select
ActiveSheet.Paste
End If
End Sub

mai cela ne fonctionne pas .

est ce que je suis sur la bonne voie ??

 

[wrap food]

Re : garder valeur apres saisie dans un Userform

re bonjour

j'ai essayé ça aussi

Private Sub ListBox1_Click()
If Range("j15") = "" Then
Label1 = ListBox1.List(ListBox1.ListIndex, 1)
[j15] = ListBox1
Else
Range("j15").Select
Selection.Copy
Range("j15").Select
ActiveSheet.Paste
End If
End Sub

mais cela ne fonctionne a non plus

auriez vous une petite suggestion à me faire SVP

 

[Staple1600]

Re : garder valeur apres saisie dans un Userform

Re

Si j'ai bien compris ta façon de procéder, je ferai juste ces changements, non ?

Private Sub UserForm_Initialize()
ListBox1.List = Feuil2.Range("a14:e" & Feuil2.Cells(Rows.Count, 1).End(3).Row).Value
date_prestation = Range("B14")
Salle_prestation = Range("J16")
Q_prestation_1 = Range("O15")
End Sub

 

[wrap food]

Re : garder valeur apres saisie dans un Userform

Je vais test mais ça a l'ai parfait

un très très grand merci