inputBox

[Chang]

Bonjour à tous
Bonjour le Forum
Est-il possible d’utiliser l’inputBox une seule fois quand clic sur le bouton
Merci d’avance

 

[Temjeh]

Bonjour à tous

Oui c'est possible en mettant dans ton userform en textbox cacher.

A+

Temjeh [file name=Classeur1_20060430124611.zip size=8831]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060430124611.zip[/file]

 

[Temjeh]

Temjeh écrit:

Bonjour à tous

Oui c'est possible en mettant dans ton userform en textbox cacher.

A+

Temjeh

Prend celui ci [file name=Classeur1_20060430124919.zip size=9169]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060430124919.zip[/file]

 

[ziopizza]

Bonjour Chang,Temjeb,
Une autre façon,
en placant un pointeur dans une cellule.

Sub Macro1()
If Range('a1').Value = '' Then
Mn = InputBox('Tapez un chiffre')
Range('a1').Value = 1
Else
MsgBox 'Plus inputBox'
End If
End Sub

Message édité par: ziopizza, à: 30/04/2006 13:05

 

[Chang]

Re Bonjour
Merci Temjeh pour votre aide,mais le bouton quand clic n'est pas un userform,c'est un bouton créé par barre de menu, affigage, barre d'outils,
formulaire
Merci à tous

 

[Temjeh]

Rebonjour

Met le code dans un module(en macro) et affecte ta macro a ce bouton(clic droit...)

Temjeh

 

[chang]

Bonsoir à tous
Bonsoir Temjeh
j'ai affecter le macro à ma bouton,mais l'inputBox est toujour utilisable
Merci d'avance

Voir S.V.P le Fichier joint [file name=Classeur1_20060430191111.zip size=6186]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060430191111.zip[/file]

 

[Temjeh]

Bonsoir

Désolé Chang j'aivais oublié ton poste:

Comme suit(L'erreur était en Bold):

Dim i
If Range('A1') = '1' Then
MsgBox 'Déjà cliquer'
Else
i = InputBox(prompt:='Entrer le montant ', Title:='New')
Range('A1') = i
End If

Temjeh

Message édité par: Temjeh, à: 01/05/2006 02:56