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 RAZ de la liste pour Combobox

RAZ de la liste pour Combobox

4 réponses
Avatar
Jojo
Bonjour,
J'ai =AB Combobox1 =BB dans un =AB UserForm3 =BB.
Je cr=E9 une liste pour =AB ComboBox1 =BB.
Je ne parviens pas =E0 remettre la liste =E0 z=E9ro !
A chaque utilisation du bouton CommandButton1 la liste=20
s'incr=E9mente de nouveau des m=EAmes valeurs.
J'ai essay=E9 avec UserForm3.ComboBox1.RemoveItem=20
(UserForm3.ComboBox1.ListIndex)
Sans succ=E9s..

Comment faire ?
Cordialement Jo=EBl


Sub combo()

UserForm3.ComboBox1.AddItem " Sud Ouest"
UserForm3.ComboBox1.AddItem " Ouest"
UserForm3.ComboBox1.AddItem " Nord"
UserForm3.ComboBox1.AddItem "Est"
UserForm3.Show
End Sub

Private Sub CommandButton1_Click()
Dim A As String
A =3D UserForm3.ComboBox1.Value
Range("B2").Value =3D A
UserForm3.ComboBox1.RemoveItem=20
(UserForm3.ComboBox1.ListIndex)
UserForm3.Hide
End Sub
Signaler un problème avec ce contenu

4 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
Avatar
ru-th
Salut

as-tu essayé
ComboBox1.Clear

a+
rural thierry
"Jojo" a écrit dans le message de
news: bd2001c3eca0$f90c20f0$
Bonjour,
J'ai « Combobox1 » dans un « UserForm3 ».
Je cré une liste pour « ComboBox1 ».
Je ne parviens pas à remettre la liste à zéro !
A chaque utilisation du bouton CommandButton1 la liste
s'incrémente de nouveau des mêmes valeurs.
J'ai essayé avec UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
Sans succés..

Comment faire ?
Cordialement Joël


Sub combo()

UserForm3.ComboBox1.AddItem " Sud Ouest"
UserForm3.ComboBox1.AddItem " Ouest"
UserForm3.ComboBox1.AddItem " Nord"
UserForm3.ComboBox1.AddItem "Est"
UserForm3.Show
End Sub

Private Sub CommandButton1_Click()
Dim A As String
A = UserForm3.ComboBox1.Value
Range("B2").Value = A
UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
UserForm3.Hide
End Sub
Avatar
Michel Gaboly
Bonjour,

ComboBox1.Clear


Quelques précisions :

1 - Il est inutile de qualifier les contrôles avec le nom du UserForm
si le code est inscrit dans le module du UserForm :

ComboBox1

suffit et est + lisible que

UserForm3.ComboBox1

2 - Le mot item signifie élément : AddItem et RemoveItem permettent
donc d'ajouter ou de reirer UN SEUL élément à la fois de la liste.

3 - Tu peux alimenter la liste à partir d'un tableau (Array) ou d'une
plage de cellules contenant les données ; voici un exemple :

Private Sub RemplitComBo
Dim Liste, i as integer
Liste = Array("Sud Ouest", "Ouest", "Nord", "Est")
For i = 0 to 3
ComboBox1.additem(Liste(i))
Next i
End Sub

Private Sub EffaceCombo
ComboBox1.Clear
End Sub


Bonjour,
J'ai « Combobox1 » dans un « UserForm3 ».
Je cré une liste pour « ComboBox1 ».
Je ne parviens pas à remettre la liste à zéro !
A chaque utilisation du bouton CommandButton1 la liste
s'incrémente de nouveau des mêmes valeurs.
J'ai essayé avec UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
Sans succés..

Comment faire ?
Cordialement Joël

Sub combo()

UserForm3.ComboBox1.AddItem " Sud Ouest"
UserForm3.ComboBox1.AddItem " Ouest"
UserForm3.ComboBox1.AddItem " Nord"
UserForm3.ComboBox1.AddItem "Est"
UserForm3.Show
End Sub

Private Sub CommandButton1_Click()
Dim A As String
A = UserForm3.ComboBox1.Value
Range("B2").Value = A
UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
UserForm3.Hide
End Sub


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
Jojo
Merci thierry
Cordialement Jojo
-----Message d'origine-----
Salut

as-tu essayé
ComboBox1.Clear

a+
rural thierry
"Jojo" a écrit
dans le message de

news: bd2001c3eca0$f90c20f0$
Bonjour,
J'ai « Combobox1 » dans un « UserForm3 ».
Je cré une liste pour « ComboBox1 ».
Je ne parviens pas à remettre la liste à zéro !
A chaque utilisation du bouton CommandButton1 la liste
s'incrémente de nouveau des mêmes valeurs.
J'ai essayé avec UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
Sans succés..

Comment faire ?
Cordialement Joël


Sub combo()

UserForm3.ComboBox1.AddItem " Sud Ouest"
UserForm3.ComboBox1.AddItem " Ouest"
UserForm3.ComboBox1.AddItem " Nord"
UserForm3.ComboBox1.AddItem "Est"
UserForm3.Show
End Sub

Private Sub CommandButton1_Click()
Dim A As String
A = UserForm3.ComboBox1.Value
Range("B2").Value = A
UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
UserForm3.Hide
End Sub


.



Avatar
Jojo
Bonjour Michel
Merci pour tes précisions
Cordialement Jojo
-----Message d'origine-----
Bonjour,

ComboBox1.Clear


Quelques précisions :

1 - Il est inutile de qualifier les contrôles avec le
nom du UserForm

si le code est inscrit dans le module du UserForm :

ComboBox1

suffit et est + lisible que

UserForm3.ComboBox1

2 - Le mot item signifie élément : AddItem et RemoveItem
permettent

donc d'ajouter ou de reirer UN SEUL élément à la fois de
la liste.


3 - Tu peux alimenter la liste à partir d'un tableau
(Array) ou d'une

plage de cellules contenant les données ; voici un
exemple :


Private Sub RemplitComBo
Dim Liste, i as integer
Liste = Array("Sud Ouest", "Ouest", "Nord", "Est")
For i = 0 to 3
ComboBox1.additem(Liste(i))
Next i
End Sub

Private Sub EffaceCombo
ComboBox1.Clear
End Sub


Bonjour,
J'ai « Combobox1 » dans un « UserForm3 ».
Je cré une liste pour « ComboBox1 ».
Je ne parviens pas à remettre la liste à zéro !
A chaque utilisation du bouton CommandButton1 la liste
s'incrémente de nouveau des mêmes valeurs.
J'ai essayé avec UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
Sans succés..

Comment faire ?
Cordialement Joël

Sub combo()

UserForm3.ComboBox1.AddItem " Sud Ouest"
UserForm3.ComboBox1.AddItem " Ouest"
UserForm3.ComboBox1.AddItem " Nord"
UserForm3.ComboBox1.AddItem "Est"
UserForm3.Show
End Sub

Private Sub CommandButton1_Click()
Dim A As String
A = UserForm3.ComboBox1.Value
Range("B2").Value = A
UserForm3.ComboBox1.RemoveItem
(UserForm3.ComboBox1.ListIndex)
UserForm3.Hide
End Sub


--
Cordialement,

Michel Gaboly
http://www.gaboly.com


.