Discussion :

[seb64240]

Bonjour,

je débute en VBA

j'ai créer un tableau USERFORM1
j'ai rajouter des cases de saisies et une commande "valider"
Je ne sais pas coder VBA pour que lorsque j'écrit un texte celui ci se met en A2 en cliquant sur "valider"
une autre case pour que lorsque j'écrit un texte celui ci se met en B8 en cliquant sur "valider"

Ensuite je souhaite rajouter 10 CheckBox et je souhaite que lorsque je clique dedans puis sur "valider", le texte de la CheckBox se met en C2 +C3+.... mais lorsque je clique sur checkbox2 et autre... la ligne de la checkbox
1 s'efface, de façon a ne pas avoir de ligne intercaler.

voila pour le moment.

Merci
seb

[BENNASR]

Bonjour
un userform avec 2 textbox et 10 case à cocher :
tester ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Dim F As Worksheet
Set F = Sheets("feuil1")
F.Range("A2").ClearContents
F.Range("B8").ClearContents
F.Range("C2:C11").ClearContents
F.Range("A2").Value = TextBox1.Value
F.Range("B8").Value = TextBox2.Value
Ligne = 2
i = 1
For i = 1 To 10
If UserForm1.Controls("CheckBox" & i).Value = True Then
F.Cells(Ligne, "C") = UserForm1.Controls("CheckBox" & i).Caption
Ligne = Ligne + 1
End If
Next i
Unload Me
End Sub