garder valeur apres saisie dans un Userform

Staple1600

XLDnaute Barbatruc

• 17 Mai 2015

• #2

Re : garder valeur apres saisie dans un Userform

Bonjour à tous

wrap food
L'explication est verte

VB:

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

 

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 17 Mai 2015

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mai 2015

• #4

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 .

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 17 Mai 2015

• #5

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 ??

 

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 17 Mai 2015

• #6

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mai 2015

• #7

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 ?

Code:

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

 

Vote positif 0 Vote négatif

W

wrap food

XLDnaute Occasionnel

• 17 Mai 2015

• #8

Re : garder valeur apres saisie dans un Userform

Je vais test mais ça a l'ai parfait

un très très grand merci

 

Vote positif 0 Vote négatif