Saisie dans inputbox apparait dans un TextBox

Bonjour,

J'ai créé un code pour que lorsqu'on clique sur un CheckBox (oui) une inputBox apparaît avec une question et un chiffre à saisir.

J'aimerais que le chiffre saisie dans l'inputBox apparaît ensuite dans un textBox.

Mon code est :

Private Sub CheckBox7_Click()

' faire apparaitre une question dans un inputbox quand clique sur bouton yes et saisir un chiffre

If CheckBox7 = True Then

CheckBox7 = InputBox("enter the cost of capital after year 10", "yes1")

End If

End Sub

Private Sub TextBoxAA_Change()

'afficher dans un textbox le chiffre qui a été saisi dans l'inputbox

Dim TextBoxxA As String

TextBoxAA = InputBox("enter the cost of capital after 10")

End Sub

La deuxième procédure ne fonctionne pas.

Je suis vraiment très débutante en VBA et j'ai cherché mais je n'ai pas trouvé de solution. Pouvez-vous m'aider s'il-vous-plait.

Je vous remercie par avance.

Bonsoir

Simplement :

Private Sub CheckBox7_Click()
If CheckBox7 = True Then
TextBoxAA = InputBox("enter the cost of capital after year 10", "yes1")
End If
End Sub

Bonne soirée

Bonjour,

C'est quoi cette ligne de code ? Elle n'a aucun sens car la propriété "Value" d'une CheckBox retourne ou reçoit deux valeurs (trois si la propriété "TripleState" est à True) qui sont True (-1) ou False (0) (Null pour le troisième état) :

CheckBox7 = InputBox("enter the cost of capital after year 10", "yes1")

donc, à moins d'être sûr que l'utilisateur inscrira -1 pour True ou 0 pour False il n'est pas conseillé d'utiliser ce genre de procédé car si la valeur n'est pas -1 ou 0 , la propriété Value de la CheckBox sera mise à Null (cochée mais grisée)

Bonjour,

Merci pour vos réponses.

Cependant, quand je rajoute la ligne suivante :

CheckBox7 = InputBox("enter the cost of capital after year 10", "yes1")

Cela ne fonctionne toujours pas, la saisie dans l'inputbox n’apparaît pas dans la textbox

Bonjour,

eLOo_17 a écrit :

Cependant, quand je rajoute la ligne suivante :

CheckBox7 = InputBox("enter the cost of capital after year 10", "yes1")

Apparemment, vous n'avez pas compris les réponses précédentes qui vous ont été faites.

"Checkbox7" ne peut avoir que 2 valeurs possibles : vrai ou faux (1 ou 0 en numérique). Vous ne pouvez donc récupérer aucun texte avec cette instruction.

Comme cela a été dit, il faut mettre :

TextBoxAA = InputBox("enter the cost of capital after year 10", "yes1")

Bonjour à tous, bonjour Theze

Je pense qu'il a cru que tu critiquais ma réponse ...

Bye

Bonjour à tous,

Encore mille merci pour votre aide.

Effectivement, en mettant TextBoxAA à place de CheckBox7 cela fonctionne parfaitement. Je n'avais pas fait attention à mon erreur.

Savez-vous comment faire pour que la saisie dans l'inputbox accepte que des pourcentage ?

Je sais que pour que ce soit un nombre il faut mettre Type:=1 dans la valeur par defaut :

CheckBox8 = Application.InputBox("enter the cost of capital after year 10", "no1", Type:=1)

Bonjour

un peu lourd, mais n'ai rien trouvé d'autre

Private Sub TextBox8_Change()

If Right(TextBox8.Value, 1) = "%" Then Exit Sub
If TextBox8.Value <> "" And TextBox8.Value > 100 Then
    MsgBox "Erreur pourcentage "
    TextBox8.Value = ""
    Exit Sub
End If
If IsNumeric(TextBox8.Value) Then
    TextBox8.Value = Format(TextBox8.Value / 100, "#0.00 %")
End If
End Sub

Voilà pour un pourcentage en textbox8

A+

Re,

Hello Patty5046 !

Je pense qu'il a cru que tu critiquais ma réponse ...

Non, absolument pas puisque c'est la bonne méthode, je suis juste intervenu parce que eLOo_17 a dis :

Mon code est :

Private Sub CheckBox7_Click()

' faire apparaitre une question dans un inputbox quand clique sur bouton yes et saisir un chiffre

If CheckBox7 = True Then

CheckBox7 = InputBox("enter the cost of capital after year 10", "yes1")

End If

End Sub

et :

La deuxième procédure ne fonctionne pas.

ce qui sous-entend que la première (ci-dessus) fonctionne alors qu'elle n'a aucun sens et ne peut fonctionner !