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