inputBox

Temjeh

XLDnaute Accro

• 30 Avril 2006

• #2

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]

 

Pièces jointes

• Classeur1_20060430124611.zip

  8.6 KB · Affichages: 10

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 30 Avril 2006

• #3

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]

Cliquez pour agrandir...

 

Pièces jointes

• Classeur1_20060430124919.zip

  9 KB · Affichages: 9

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 30 Avril 2006

• #4

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

 

Vote positif 0 Vote négatif

C

Chang

Guest

• 30 Avril 2006

• #5

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

 

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 30 Avril 2006

• #6

Rebonjour

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

Temjeh

 

Vote positif 0 Vote négatif

C

chang

Guest

• 30 Avril 2006

• #7

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]

 

Pièces jointes

• Classeur1_20060430191111.zip

  6 KB · Affichages: 15

Vote positif 0 Vote négatif

Temjeh

XLDnaute Accro

• 1 Mai 2006

• #8

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

 

Vote positif 0 Vote négatif