userform

[chinel]

Salut tout le monde !

j'ai une userfom dedans 2 textbox et 2 listbox dans les textbox ceci :

Dim Valeur As String
Valeur = TextBox1.Value
With Sheets("Entrée des données")
If .Range("t4") = "" Then
.Range("t4").Value = Valeur
Else
.Range("t65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
Valeur = TextBox2.Value
With Sheets("Entrée des données")
If .Range("s4") = "" Then
.Range("s4").Value = Valeur
Else
.Range("s65536").End(xlUp).Offset(1, 0).Value = Valeur
End If
End With
TextBox1.Value = ""
TextBox2.Value = ""
UserForm1.Hide
End Sub

ok pas de problème mais dans mes listbox (rowsource) je voudrais bien savoir comment supprimer une donnée que j'aurais choisi moi même ?
j'ai mis listbox car je veux voir les données dans les cellules pour pouvoir supprimer une donnée ?


merci d'avance !!!

 

[Pierrot93]

Re : userform

Bonjour Chinel

pas conseillé du tout d'utiliser la propriété "RowSource", surtout si par la suite ton code rajoute ou supprime des items, là ca devient difficilement gérable.

Utilises plutôt la propriété "List" ou la méthode "AddItem" pour alimenter la listbox, et pour supprimer un item de ta listbox, tu utilises "RemoveItem".

bonne journée
@+

 

[chinel]

Re : userform

ok mais comment puis je faire cela as-tu un exemple ?

 

[Pierrot93]

Re : userform

Re

non pas d'exemple sous le coude, mais une petite recherche dans le forum te permettra sans doute d'en récupérer...

@+

Edition ne pas oublier la FAQ


justement des exemples d'alimentation par l'excellent Pascal.

https://www.excel-downloads.com/threads/vba-alimentation-dune-combobox-ou-dune-listbox.81037/

 

[chinel]

Re : userform

ok merci j'ai regardé mais je suis super nul !

j'ai fais userform initialize dans mon userfrom et elle ne s'ouvre plus quand je clic sur le bouton (commandbutton)

alors je cherche toujours de l'aide, merci quand même !!!

 

[Pierrot93]

Re : userform

Re

tu devrais peut être mettre ton fichier en pièce jointe avec le code que tu as déjà, ce serait plus facile pour t'aider, car là comme ca... dur dur...

@+