test variable double apres entrée par inputbox

spts · 3 Septembre 2005

bien le bonsoir!

j'ai un petit problème assez bete que je n'arrive pas à résoudre dans ma macro.

j'ai défini une variable de type double. Par la fontion 'inputbox' l'utilisateur doit entrer un chiffre qui sera attribué à cette variable de type double.

Si l'utilisateur entre par mégarde un string, la macro plante car un double est attendu.

Comment est ce que je peux après entrée de la valeur plausibiliser cette valeur avant de l'attribuer à ma variable double?

si la valeur entrée est un string je souhaite afficher un message erreur et soit quitter la macro, soit recommencer l'insertion par inputbox.

D'avance je vous remercie pour vos précieux conseils et votre aide

A+

Stephan

myDearFriend! · 4 Septembre 2005

Bonsoir Stephan,

En utilisant la méthode InputBox (à ne pas confondre avec la fonction InputBox sans qualificateur d'objet), tu laisses VBA contrôler la valeur saisie tout seul :

Dim MaValeur As Variant
      MaValeur = Application.InputBox(Prompt:='Entrez la valeur', Title:='Valeur', Type:=1)
      If MaValeur = False Then      '--> L'utilisateur a annulé son choix
            MsgBox 'Le bouton Annuler a été choisi'
            Exit Sub
      Else                                    '--> L'utilisateur a saisi un nombre
            MsgBox 'Une valeur numérique vient d'être saisie'
      End If

Le choix 'Type:=1' permet d'imposer une réponse de type numérique.

Les 'Type' possibles sont :
0   : Une formule.
1   : Un nombre.
2   : Texte (une chaîne).
4   : Une valeur logique (True ou False).
8   : Une référence de cellule, sous la forme d'un objet Range.
16 : Une valeur d'erreur, telle que #N/A.
64 : Un tableau de valeurs.

(Voir l'aide VBA)

Cordialement,

Robert · 4 Septembre 2005

Bonsoir Stephen, bonsoir le forum,

C'est 'tiré par le cheveux' mais ça marche :

Sub Macro1()
Dim a As String
Dim b As Double
0
a = InputBox('Entrez une valeur')
b = CDbl(Val(a))
If b = 0 And a <> '0' Then
MsgBox 'La données tapée est erronée'
GoTo 0
End If
MsgBox b
End Sub

spts · 4 Septembre 2005

Fantastique,

merci beaucoup, j'ai à nouveau appris qqchose.

J'avais pas vraiment compris comment je pouvais utiliser les 'variant' et maintenant je me retrouve en plein dans un exemple.

Encore merci à vous, merci au forum

salutations et bon dimanche

Steph.

test variable double apres entrée par inputbox

spts

Guest

myDearFriend!

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

spts

Guest

Discussions similaires