ajout dans ComboBox

[paul87]

Bonsoir à tous,
Bonsoir le Forum
Dans un UF j'ai une ComboBox1 qui est "alimentée" par:

Private Sub UserForm_Activate()
Me.ComboBox1.AddItem "test"
Me.ComboBox1.AddItem "essai"
End Sub

Je souhaite que l'utlisateur puisse rajouter lui-meme des Itenms à cette liste..
par le biais d'une imputbox.
est ce possible.?
si oui comment svp.
Merci pour vos conseils.
Paul

 

[Guest]

Re : ajout dans ComboBox

Bonsoir,

  Dim t As String
  t = InputBox("Entrez la nouvelle donnée:", "Nouvelle donnée")
  If Trim(t)<>"" Then Me.ComboBox1.AddItem t

A+

 

[paul87]

Re : ajout dans ComboBox

Bonsoir à tous,
Bonsoir Hasco, Bonsoir Jean-Marcel,
Merci à vous 2 pour vos propositions qui fonctionnent.
Mais...
il faudrait que cet ajout soit définitif, que le nouvel item ajouté dans la ComboBox soit mémorisé, et présent en permanence..
Dans le cas présent, si on ferme et ré-ouvre le UF....il n'apparait plus...!!!!
Que faire..?

 

[paul87]

Re : ajout dans ComboBox

Re bonsoir...
A partir du code que vous m'avez indiqué
j'ai essayé d'ajouter ceci:

Private Sub CommandButton1_Click()
[COLOR="SeaGreen"]Dim Code As String
Dim NextLine As Byte
[/COLOR]    
  Dim t As String

  t = InputBox("Entrez la nouvelle donnée:", "Nouvelle donnée")
  If Trim(t) <> "" Then Me.ComboBox1.AddItem t

  
 [COLOR="SeaGreen"] Code = "Sub UserForm_Activate()" & vbCrLf
  Code = Code & "Me.ComboBox1.AddItem t" & vbCrLf
  Code = Code & "End Sub" & vbCrLf


  With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
    NextLine = .CountOfLines + 1
    .InsertLines NextLine, Code
  End With[/COLOR]

End Sub

ça ne marche pas...mais j'ai un message d'erreur inconnu pour moi

l'acces par programme au projet visual basic n'est pas fiable

que cela signifie t'il..?
qui pourrait m'aider?

 

[paul87]

Re : ajout dans ComboBox

Ok..
j'ai validé
"faire confiance au projet visual basic"
je n'ai plus le message d'erreur.

mais ça ne marche pas..!!!
le code ne se crée pas comme il faut et pas au bon endroit. il se crée sur la feuille(1) mais pas sur le UF...

je joint mon petit fichier de brouillon...

 

[paul87]

Re : ajout dans ComboBox

Re
Je crois que ce coup ci c'est parfaitement ce qui me faisait besoin !!!!
Merci....
Grand merci à toi..!!!!
Paul