Changer un texbox par inputbox

bonsoir le forum

je voudrais si cela est possible changé dans mon userform2 un textebox par un inputbox pour rentré un quantiter d'un produit

enfin si cela est possible

avec tout mes remerciment

Bonjour,

Voulez vous que l'inputbox s'affiche suite à un clic sur un bouton ?

merci sabv pas foncement mais je sur attentif a tout idée

je vais essayée de faire passer ma feuille avec userform2

voila ma feuille avec userform2 ou je voudrais changer mon textbox 7 textbox 8 texbox 9 par des inpubox

avec tout mes remercîments pour tout aide

je vais essayée de faire passer ma feuille avec userform2

pour transférer la valeur du textbox sur la feuille,

en multipliant par 1 on transforme la valeur texte en valeur numérique

Sheets("Feuil1").Range("A1") = Me.TextBox1.value  * 1

pour transférer la valeur de la cellule sur le textbox,

 Me.TextBox1.value  = Sheets("Feuil1").Range("A1")

et cela se traduit comment sur ma feuille produit que je vient de passer svp

voici un exemple avec une bouton,

Private Sub CommandButton5_Click()
Dim qte1 As String
qte1 = InputBox("Entrez une valeur comprise entre 1 et 100", "Quantité", "0")
End Sub

mais je ne vois pas pas quel est la finalité..

la personne doit rentrer le dosage du produit par le message pour être sur de la sécurité et pas faire d'erreur du produit

mais sans le boutons juste en cliquant dans le textbox 7 svp

ok, je travail sur votre fichier, je revient tantôt pour une proposition,

@+

isabelle

voici la proposition,

je n'ai pas compris le fonctionnement de la colonne "VOIE D'ADMINIST"

je pense qu'il faudrait 3 colonnes pour cette donnée...

à vérifier,

bonjour le forum ,SABV

belle réalisation ,je regrette juste de t'avoir faire perdre ton temps mais je dois dire que je voulais juste un inputbox dans l'userform

pour les DOSE pour raison de sécurité

"VOIE D'ADMINIST" est en réalité un façon de faire les injections

mais enfin je te remercie beaucoup de se beau travaille

mais je le garde dans ma malle au trésors

bonsoir le forum ,SABV

voila j'ai peut etre réussis ?????

mais voila il y a toujours un mais

il faut que j'inscrive 2 fois dans le inpubox avant qu'il disparaisse pourquoi ou est mon erreur svp voila le code

le pire il fonctionne

Private Sub TextBox2_Change()

TextBox2.Value = InputBox("quelle dose svp ?")

End Sub

Bonjour ami,

essai comme ça,

Private Sub TextBox2_Change()
Application.EnableEvents = False
 TextBox2.Value = InputBox("quelle dose svp ?")
Application.EnableEvents = True
End Sub

merci beaucoup pour ton message sabV

même chose je doit inscrire deux fois la dose

mais il y aurais pas conflit entre texbox et inpubox une réponse pour le texbox et une réponse pour l'autre

avec tout mes amitiés

lorsque le TextBox2 prend la valeur du inputbox,

cela provoque l'événement TextBox2_Change

et donc exécute à nouveau la macro.

une autre possibilité serait d'utilisé l'événement change du TextBox1,

une fois le produit renseigné, l'inputbox apparait pour renseingner le textbox2

Private Sub TextBox1_Change()
 TextBox2.Value = InputBox("quelle dose svp ?")
End Sub

ps/ le textbox2 pourrait être remplacer par un Label puisque qu'il ne sert plus à inscrire une info, mais juste à en recevoir une.

bonjour le forum,sabV

MERCI pour tout vos conseilles et votre aide

si cela peut venir en aide

voila un essaie qui fonctionne très bien nombre de frappe 1

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If Button = 1 Then TextBox2 = InputBox("quelle dose svp ?", "ATTENTION ?")

End Sub

avec tout mon respect et ma gratitude

a bientôt sur le forum