Discussion :

[kadbemar]

Bonjour à vous tous,

Je viens pour ma première fois sur le forum pour solliciter votre aide :-).
Je suis confronté à une difficulté lors de la réalisation de mon userform vba , tout d’abord je tiens a précisé que je suis novice en programmation et que j’ai essayé de faire avec les quelques notions que j’ai.


Je dispose de fichiers Excel avec 3 onglets j'ai donc créer un userform pour l'enregistrement ,modification ,ect.. d'information de clients .
bref mon problème réside sur 2 optionbutton ( mode de paiement) dans une fram ,avec
Optionbutton10 paiement comptant et optionbutton11 paiement financement ou je souhaiterai que quand l'un ou l'autre est sélectionné cela renvoie à ma feuille un résultat en chiffre 1 ou 0 et non vrai ou faux .
j’espère que mes explications seront bien comprises !!
ensuite j'ai un bouton de validation et voici le code peu etre que cela peu vous aidez .
Merci par avance à toutes celle et ceux qui prendront le temps de m'aider .

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'Pour le bouton valider Nouveau contact Client 
 
 
Dim derligne As Integer 
If MsgBox("Confirmes-tu Fati l'ajout de ce contact à ta base client?", vbYesNo, "Confirmation") = vbYes Then 
derligne = Sheets("Client").Range("A1048576").End(xlUp).Row + 1 
Cells(derligne, 1) = ComboBox9.Value 
Cells(derligne, 2) = ComboBox4.Value 
Cells(derligne, 3) = TextBox1.Value 
Cells(derligne, 4) = TextBox2.Value 
Cells(derligne, 5) = TextBox3.Value 
Cells(derligne, 6) = TextBox4.Value 
Cells(derligne, 7) = TextBox5.Value 
Cells(derligne, 8) = TextBox6.Value 
Cells(derligne, 9) = TextBox7.Value 
Cells(derligne, 10) = TextBox8.Value 
Cells(derligne, 11) = TextBox9.Value 
Cells(derligne, 12) = TextBox10.Value 
Cells(derligne, 13) = TextBox11.Value 
Cells(derligne, 14) = TextBox14.Value 
Cells(derligne, 15) = TextBox17.Value 
Cells(derligne, 16) = TextBox18.Value 
Cells(derligne, 17) = TextBox19.Value 
Cells(derligne, 18) = TextBox20.Value 
Cells(derligne, 19) = TextBox21.Value 
Cells(derligne, 20) = TextBox22.Value 
Cells(derligne, 21) = OptionButton4.Value 
Cells(derligne, 22) = OptionButton3.Value 
Cells(derligne, 23) = TextBox15.Value 
Cells(derligne, 24) = TextBox16.Value 
Cells(derligne, 25) = ComboBox10.Value 
Cells(derligne, 26) = TextBox12.Value

Je suis ouvert à vos différents conseils/propositions et me permet de préciser que je n'ai pas de connaissances en VBA mais suis prêt à m'investir pour réaliser ce projet.

Je vous remercie d'avance.

Kad

[kiki29]

Salut, voir Utiliser les contrôles dans un UserForm, en VBA Excel

Pour Baliser ton code

[kadbemar]

merci kiki pour ta réponse néanmoins j'avais déjà lu ce lien mais j'avoue ne pas avoir compris grand chose pour retranscrire cela dans mon code , par ailleurs voici mon code cela peu vous aidez ? car cela fait plusieurs jours que je suis bloqué je n'en peu plus , merci pour votre aide.

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
19
20
21
22
23
24
25
26
27
28
Private Sub OptionButton3_Click()
 
If OptionButton3.Value = True Then
 
  Value = "1"
 
Else: If OptionButton4 = True Then Value = "0"
 
 
 
End If
 
 
End Sub
 
Private Sub OptionButton4_Click()
If OptionButton4.Value = True Then
 
  Value = "1"
 
Else: If OptionButton3 = True Then Value = "0"
 
 
 
End If
 
 
End Sub

[Invité]

Cells(derligne, 1) = abs(ComboBox9.Value)

[kadbemar]

Merci pour cette reponse , je m'excuse par avance car je me suis trompé dans mon explication les 2 optionbutton sont

Code :

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

1
2
Private Sub OptionButton3_Click()
Private Sub OptionButton4_Click()

qui me pose problème

voici le code que j'ai mis :

Code :

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

1
2
Private Sub OptionButton3_Click()
 Cells(no_Ligne, 21) = IIf(OptionButton3.Value, 1, 0)

mais cela ne fonctionne pas .

alors vraiment j’espère trouver de l'aide sur ce forum cela fait plusieurs jours que je bloque la dessus je n'avance plus .

merci de votre aide

[Invité]

Même réponse qu'au poste #4

Code :

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

1
2
Private Sub OptionButton3_Click()
 Cells(no_Ligne, 21) = abs(OptionButton3.Value)