Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Textbox bouton et liste

Textbox bouton et liste

15 réponses
Avatar
Vincent
Bonjour.
Dans un userform, j'ai un textbox, comment faire afin de créer une liste
sans être obligé de passer par la feuille de calcul.
Je voudrai pouvoir créer un textbox et un bouton afin que les données qui
sont saisis dans ce textbox après clic sur le bouton aille dans "la liste".
Merci beaucoup.
Vincent
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
isabelle
j'ai nommé cette nouvelle feuille "FeuilleListe" assure toi quel soit
présente dans ce classeur, elle peut être masqué si tu le désire.

Private Sub CommandButton1_Click()
'ajout d'éléments
ListBox1.AddItem TextBox1.Value
Sheets("FeuilleListe").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = TextBox1.Value
TextBox1.Value = ""
End Sub

Private Sub CommandButton2_Click()
'Suppresion d'élément
ListBox1.SetFocus
If ListBox1.ListCount >= 1 Then
If ListBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
x = ListBox1.List(ListBox1.ListIndex)
ListBox1.RemoveItem (ListBox1.ListIndex)
Sheets("FeuilleListe").Rows(Application.Match(x,
Sheets("FeuilleListe").Range("A:A"), 0)).Delete Shift:=xlUp
End If
End Sub

Private Sub UserForm_Initialize()
For Each c In Sheets("FeuilleListe").Range("A1:A" & _
Range("A65536").End(xlUp).Row)
ListBox1.AddItem c
Next
CommandButton1.Caption = "Ajoutez l’élément"
CommandButton2.Caption = "Supprimez l’élément"
CommandButton3.Caption = "cache"
End Sub

isabelle


Merci beaucoup, pour ton aide, oui, il faudrait que les données soient
conservées dans la feuille, et récupérées dès qu'on lance le userfom.
Vincent

"isabelle" a écrit dans le message de
news:

Le pb Isabelle, est que une fois le userform fermé, les données
disparaissent ???


on peut remédier à ce problème en créer une variable public (tableau),
mais le problème sera revenu dès que ce fichier cera fermer, si les
données ne sont pas stocker en même temps en dur sur une feuille.

est ce que ça cause problème si le listebox perd ses données à la
fermeture du classeur ?

isabelle





Avatar
Vincent
Ok, Isabelle, c'est parfait encore merci !
C'est très sympa de ta part
Vincent

"isabelle" a écrit dans le message de
news:
j'ai nommé cette nouvelle feuille "FeuilleListe" assure toi quel soit
présente dans ce classeur, elle peut être masqué si tu le désire.

Private Sub CommandButton1_Click()
'ajout d'éléments
ListBox1.AddItem TextBox1.Value
Sheets("FeuilleListe").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = TextBox1.Value
TextBox1.Value = ""
End Sub

Private Sub CommandButton2_Click()
'Suppresion d'élément
ListBox1.SetFocus
If ListBox1.ListCount >= 1 Then
If ListBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
x = ListBox1.List(ListBox1.ListIndex)
ListBox1.RemoveItem (ListBox1.ListIndex)
Sheets("FeuilleListe").Rows(Application.Match(x,
Sheets("FeuilleListe").Range("A:A"), 0)).Delete Shift:=xlUp
End If
End Sub

Private Sub UserForm_Initialize()
For Each c In Sheets("FeuilleListe").Range("A1:A" & _
Range("A65536").End(xlUp).Row)
ListBox1.AddItem c
Next
CommandButton1.Caption = "Ajoutez l'élément"
CommandButton2.Caption = "Supprimez l'élément"
CommandButton3.Caption = "cache"
End Sub

isabelle


Merci beaucoup, pour ton aide, oui, il faudrait que les données soient
conservées dans la feuille, et récupérées dès qu'on lance le userfom.
Vincent

"isabelle" a écrit dans le message de
news:

Le pb Isabelle, est que une fois le userform fermé, les données
disparaissent ???


on peut remédier à ce problème en créer une variable public (tableau),
mais le problème sera revenu dès que ce fichier cera fermer, si les
données ne sont pas stocker en même temps en dur sur une feuille.

est ce que ça cause problème si le listebox perd ses données à la
fermeture du classeur ?

isabelle







Avatar
isabelle
:-)
comme dit Philippe ;-), c'était avec plaisir Vincent.

isabelle


Ok, Isabelle, c'est parfait encore merci !
C'est très sympa de ta part
Vincent

"isabelle" a écrit dans le message de
news:
j'ai nommé cette nouvelle feuille "FeuilleListe" assure toi quel soit
présente dans ce classeur, elle peut être masqué si tu le désire.

Private Sub CommandButton1_Click()
'ajout d'éléments
ListBox1.AddItem TextBox1.Value
Sheets("FeuilleListe").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = TextBox1.Value
TextBox1.Value = ""
End Sub

Private Sub CommandButton2_Click()
'Suppresion d'élément
ListBox1.SetFocus
If ListBox1.ListCount >= 1 Then
If ListBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
x = ListBox1.List(ListBox1.ListIndex)
ListBox1.RemoveItem (ListBox1.ListIndex)
Sheets("FeuilleListe").Rows(Application.Match(x,
Sheets("FeuilleListe").Range("A:A"), 0)).Delete Shift:=xlUp
End If
End Sub

Private Sub UserForm_Initialize()
For Each c In Sheets("FeuilleListe").Range("A1:A" & _
Range("A65536").End(xlUp).Row)
ListBox1.AddItem c
Next
CommandButton1.Caption = "Ajoutez l'élément"
CommandButton2.Caption = "Supprimez l'élément"
CommandButton3.Caption = "cache"
End Sub

isabelle


Merci beaucoup, pour ton aide, oui, il faudrait que les données soient
conservées dans la feuille, et récupérées dès qu'on lance le userfom.
Vincent

"isabelle" a écrit dans le message de
news:

Le pb Isabelle, est que une fois le userform fermé, les données
disparaissent ???


on peut remédier à ce problème en créer une variable public (tableau),
mais le problème sera revenu dès que ce fichier cera fermer, si les
données ne sont pas stocker en même temps en dur sur une feuille.

est ce que ça cause problème si le listebox perd ses données à la
fermeture du classeur ?

isabelle









Avatar
Vincent
Une MVP du sourire également ;-)
C'est d'autant plus sympa, que parfois j'ai vraiment du mal à exposer le pb.
Bonne soirée et merci encore.
Vincent

"isabelle" a écrit dans le message de
news:
:-)
comme dit Philippe ;-), c'était avec plaisir Vincent.

isabelle


Ok, Isabelle, c'est parfait encore merci !
C'est très sympa de ta part
Vincent

"isabelle" a écrit dans le message de
news:
j'ai nommé cette nouvelle feuille "FeuilleListe" assure toi quel soit
présente dans ce classeur, elle peut être masqué si tu le désire.

Private Sub CommandButton1_Click()
'ajout d'éléments
ListBox1.AddItem TextBox1.Value
Sheets("FeuilleListe").Range("A" & _
Range("A65536").End(xlUp).Row + 1) = TextBox1.Value
TextBox1.Value = ""
End Sub

Private Sub CommandButton2_Click()
'Suppresion d'élément
ListBox1.SetFocus
If ListBox1.ListCount >= 1 Then
If ListBox1.ListIndex = -1 Then
ListBox1.ListIndex = ListBox1.ListCount - 1
End If
x = ListBox1.List(ListBox1.ListIndex)
ListBox1.RemoveItem (ListBox1.ListIndex)
Sheets("FeuilleListe").Rows(Application.Match(x,
Sheets("FeuilleListe").Range("A:A"), 0)).Delete Shift:=xlUp
End If
End Sub

Private Sub UserForm_Initialize()
For Each c In Sheets("FeuilleListe").Range("A1:A" & _
Range("A65536").End(xlUp).Row)
ListBox1.AddItem c
Next
CommandButton1.Caption = "Ajoutez l'élément"
CommandButton2.Caption = "Supprimez l'élément"
CommandButton3.Caption = "cache"
End Sub

isabelle


Merci beaucoup, pour ton aide, oui, il faudrait que les données
soient




conservées dans la feuille, et récupérées dès qu'on lance le
userfom.




Vincent

"isabelle" a écrit dans le message de
news:

Le pb Isabelle, est que une fois le userform fermé, les données
disparaissent ???


on peut remédier à ce problème en créer une variable public
(tableau),





mais le problème sera revenu dès que ce fichier cera fermer, si
les





données ne sont pas stocker en même temps en dur sur une feuille.

est ce que ça cause problème si le listebox perd ses données à la
fermeture du classeur ?

isabelle











Avatar
Clément Marcotte
Bonjour,

Si tu veux quelque chose qui ne dépend absolument pas d'une feuille de
calcul, avec mises à jour instantanées, tu peux t'inspirer de cela:

http://groups.google.com/groups?q=+combobox,+OR+combo,+OR+listbox+group:microsoft.public.fr.excel+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&ie=UTF-8&oe=UTF-8&scoring=d&selm=Oylp3YyvCHA.2124%40TK2MSFTNGP11&rnum=3



"Vincent" a écrit dans le message de
news:
Merci beaucoup, pour ton aide, oui, il faudrait que les données
soient

conservées dans la feuille, et récupérées dès qu'on lance le
userfom.

Vincent

"isabelle" a écrit dans le message de
news:

Le pb Isabelle, est que une fois le userform fermé, les données
disparaissent ???


on peut remédier à ce problème en créer une variable public
(tableau),


mais le problème sera revenu dès que ce fichier cera fermer, si
les


données ne sont pas stocker en même temps en dur sur une feuille.

est ce que ça cause problème si le listebox perd ses données à la
fermeture du classeur ?

isabelle







1 2