Discussion :

[maxval18]

Bonsoir,

J'ai USF avec des OptionButton et une textbox J'aimerais ajouter un produit par mon textbox en fonction de la catégorie sélectionner a l'aide des OptionBoutton dans les colonnes respectives à la suite de la liste existante.

Je joint mon fichier qui seras plus parlant

Cordialement

Max

[jfontaine]

Bonjour

Analyse le code ci dessous et revient vers nous si difficultés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
Dim Sh As Worksheet
Dim Col As Integer
 
Set Sh = Worksheets("Feuil1")
 
If OptionButton1.Value = True Then Col = 2
If OptionButton2.Value = True Then Col = 3
If OptionButton3.Value = True Then Col = 4
If OptionButton4.Value = True Then Col = 5
 
Sh.Cells(Sh.Cells(Rows.Count, Col).End(xlUp).Row + 1, Col).Value = TextBox2.Text
 
End Sub

[maxval18]

Bonsoir jfontaine,

Je te remercie beaucoup sa marche Nickel

Bonne Soirée

Max