Demande aide sur optionbutton
kadb
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
kadb Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
kadb Messages postés 6 Date d'inscription Statut Membre Dernière intervention -
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
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
Bonjour,
Simplement comme ceci cela devrait aller :
Simplement comme ceci cela devrait aller :
Cells(derligne, 21) = iif(OptionButton4.Value,1,0) Cells(derligne, 22) = iif(OptionButton3.Value,1,0)
Non plus toujours en surbrillance jaune je ne comprends pas , je dirai même que je suis complètement perdu , merci pour ton aide .
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 .
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 .
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
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
voici le code
erreur d'execution '1004'
erreur definie par l'application ou par l'objet
erreur d'execution '1004'
erreur definie par l'application ou par l'objet
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 .
Essaies alors :
car tu dois avoir un problème d'adresse dans cette procédure.