Re : Rowsource et optionbutton
Merci Gilbert et Cba,
Vos modifications me permettent de mieux appréhender le code.
Cependant, je ne vois tjs pas comment modifierle code suivant pour, en fontion, du choix d'option, changer de liste pour ajouter une situation :
Private Sub CmdValid1_Click()
'Pour ajouter un nouveau produit dans le textbox
If Txtnew.Value <> "" Then
'ajoute la situation à liste sur la données UT
Range("données_UT!F2").End(xlDown).Offset(1, 0).Value = Txtnew.Value
'tri de la liste des situations
Sheets("données_UT").Activate
Range("Situations_dioxines_ft").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, Orientation:=xlTopToBottom
End If
Unload Me
End Sub
Dans le cas présent, a chaque "nouvelle situation", le texte renseigné s'ajoute dans la colonne F2.
je pense que tout est une question d'expression dans le Range, mais je vois pas comment faire.
Merci.