Sujet Précédent Sujet Suivant

Demande aide sur optionbutton

Fermé
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016 - 27 août 2016 à 17:07
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016 - 27 août 2016 à 22:47
Bonjour, 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 .

'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



5 réponses

Réponse 1 / 5
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
27 août 2016 à 19:06
Bonjour,

Simplement comme ceci cela devrait aller : 
Cells(derligne, 21) = iif(OptionButton4.Value,1,0)
Cells(derligne, 22) = iif(OptionButton3.Value,1,0)
0
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016
27 août 2016 à 19:15
Bonjour , tout d'abord merci d'avoir pris le temps de me repondre ,
je viens de mettre cela sur mon code :
Private Sub OptionButton3_Click()

Cells(derligne, 21) = IIf(OptionButton3.Value, 1, 0)


End Sub

mais il c'est mis en débogage et en surbrillance jaune .

je sais cela peu paraître bête , mais c'est mon tout premier userform alors merci pour votre patience .
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
27 août 2016 à 21:15
Bonsoir,

Essaies alors : 
Cells(derligne, 21) = IIf(Me.OptionButton3.Value, 1, 0)

car tu dois avoir un problème d'adresse dans cette procédure.
0
Réponse 2 / 5
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016
27 août 2016 à 21:21
Non plus toujours en surbrillance jaune je ne comprends pas , je dirai même que je suis complètement perdu , merci pour ton aide .
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
27 août 2016 à 21:42
Tu as quoi comme message d'erreur ?
0
Réponse 3 / 5
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016
27 août 2016 à 21:48
Bien en faite quand je fait la saisie sur mon userform et valide les info il se met en debogage et me mets en surbrillance la ligne du code que tu m'as donné.

pour reprendre ce que j'avais noté pour expliquer mon probleme je me suis trompé dans mon explication les 2 optionbutton qui posent problème sont
Private Sub OptionButton3_Click()
Private Sub OptionButton4_Click()

et pour reprendre plus précisément l'explication

Dans mon userform j'ai donc plusieurs Textbox ,combobox , Optionbutton, ect... qui regroupe des informations qui sont reporter sur une de mes feuilles nommé"client" ,
mon problème reside dans le code de mes deux option button l'optionbutton3 et l'optionbutton4 ce que je souhaite c'est au clic de l'un ou l'autre le resultat ce reporte sur ma feuille "client à la case U pour optionbutton4 sur la dernière ligne et la V pour optionbutton3 sur la dernière ligne (cela sera donc l'un ou l'autre ). Mais j'aimerai avoir la réponse 1 si coché ou 0 si pas coché , et non pas vrai ou faux .
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
27 août 2016 à 22:20
il se met en debogage et me mets en surbrillance la ligne du code
Dans la fenêtre de débogage, tu as un code erreur qui est important pour connaitre la cause. C'est peut-être ta variable derlig qui n'est pas correcte car il faut qu'elle soit valable pour toutes les procédures du formulaire et doit être en tête.
D'autre part, il ne faut pas utiliser l'événement click mais change car sinon tu n'auras que les vrais.
Un petit exemple :
https://www.cjoint.com/c/FHBuqjDCHCl
0
Réponse 4 / 5
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016
27 août 2016 à 22:31
voici le code
erreur d'execution '1004'
erreur definie par l'application ou par l'objet
0
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 709
27 août 2016 à 22:43
Regardes mon exemple et c'est sans doute ta variable derligne qui est à zéro et dans ce cas tu n'accéderas pas à ta feuille.
D'ailleurs cela ne va pas t'avancer beaucoup de multiplier les demandes car il serait plus judicieux d'analyser correctement les informations que l'on te fourni.

Le t'ai déjà donné 2 raisons du dysfonctionnement plus un exemple, passe un peu de temps à corriger ces éléments cela fonctionnera mais il faut être méthodique car sinon tu t'engages dans une galère qui ne fonctionnera pas.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
kadb Messages postés 6 Date d'inscription samedi 27 août 2016 Statut Membre Dernière intervention 27 août 2016
27 août 2016 à 22:47
tu as raison je vais taché d'analyser tout ça , merci vraiment pour le temps que tu m'accorde .
je suis désespéré et j'avoue que la c'est la désorganisation.
bien je reviens une fois que j'aurai bien vu tout ça merci mille fois(:
0

Discussions similaires

valeurs OptionButton
surplus -
surplus -

10 réponses
[VBA] Excel - utilisation des Option button
IBegin -
nana -

3 réponses
Optionbutton et userform
tophessa -
Thorak83 -

6 réponses
Propriété Linked cell pour les contrôles OptionButton
Markos -
Markos -

9 réponses