InputBox + MsgBox

[jeo]

Bonjour à toutes et à tous
Bonjour le forum
J'ai 3 InputBox pour taper les Mois (Mois1;Mois2;Mois3)
est-il possible si l'utilisateur par exemple ne tape pas le Mois1,l'inputBox1 reste visible et un MsgBox apparaître demande de l'utilisateur de taper le Mois1
la même chose pour l'inputBox2 et l'inputBox3
Merci d'avance
Voir S.V.P le fichier joint [file name=InputBox.zip size=6776]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/InputBox.zip[/file]

 

[Dan]

Bonjour,

Quand tu dis,

si l'utilisateur par exemple ne tape pas le Mois1

le mois 1 correspond à quoi en fait ?
A 1 chiffre au hasard (entre 1 et 12) ou à une donnée imposée.
Là si je tape 'Toto' il le prend aussi cela.

 

[ERIC S]

Bonjour

une possibilité


mois1 = ''
While mois1 = ''
mois1 = InputBox('Tapez le Mois 1')
Wend
Range('A1').Value = mois1


A+

 

[Temjeh]

Bonjour

Je ne suis pas programmeur mais ca fonctionne:

debut:
Mois1 = InputBox('Tapez le Mois 1')
If Mois1 = '' Then
MsgBox 'Entrez le mois'
GoTo debut
Else
Range('A1').Select
ActiveCell.FormulaR1C1 = Mois1
debut2:
Mois2 = InputBox('Tapez le Mois 2')
If Mois2 = '' Then
MsgBox 'Entrez le mois'
GoTo debut2
Else
Range('A2').Select
ActiveCell.FormulaR1C1 = Mois2
debut3:
Mois3 = InputBox('Tapez le Mois 3')
If Mois3 = '' Then
MsgBox 'Entrez le mois'
GoTo debut3
Else
Range('A3').Select
ActiveCell.FormulaR1C1 = Mois3
End If
End If
End If

Temjeh

Bonjour les autres (je n'avais pas rafraichit)



Oui effectivement on m'a déjà avisé de ne pas faire des western spagetti(de là vient mon gif) mais je ne sais faire des boucles plus complexes alors avec mon p4 3.0 la vitesse est moins importante!

De toute facon moi j'aurais fait un Userform plus simple avec 3 champs obligatoites a remplir.merci ...Temjeh

Message édité par: Temjeh, à: 28/04/2006 18:32

 

[ERIC S]

Bonjour Temjeh

Il vaut mieux éviter les goto (les réserver au 'on error goto'

de même la syntaxe 'select' ralentit les programme

A+

 

[ziopizza]

Bonjour a tous,
Autre façon fichier joint
Salut
Yves [file name=InputBox_20060428134027.zip size=7262]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/InputBox_20060428134027.zip[/file]

 

[jeo]

Re Bonjour
Merci Dan Merci Erics
le Mois1 c'est pour taper le Mois seullement, Exemple: janvier 2006
Merci d'avance

 

[ERIC S]

re

Range('A1').Value = (mois1 & ' ' & Year(Date))

Il serait néeamoins mieux de sélectionner le mois dans une liste car là on peut taper 'toto', le code s'en fiche

A+