Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

Forcer la saisie de nombre vba excel

Dernière réponse le 18 avr 2008 à 19:36:06 nounoursboy, le 17 avr 2008 à 14:12:37

Signaler ce message aux modérateurs

Bonjour,
Bonjour,

Je fais une petite macro dans excel et j'ai un petit souci...

Je souhaite controler la saisie de ce qui est tapé dans une inputbox.

voici le code qui me permet à l'utilisateur de saisir du "texte" (au sens large cad des nombres egalement) et de mettre cette saisie dans la case A1

Cells(1, 1).Value = InputBox(Message, Title, Default, 100, 100)

Et voici une facon (je doute que ce soit a faire dans mon cas) de vérifier que ce qui est tapé dans une case correspond à uin format choisit ici dans ce cas un nombre décimal compris entre -1000 et +1000

With Cells(1, 1).Validation
.Delete
.Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween, Formula1:="-1000", Formula2:="1000"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = "Saisisez un nombre"
.ErrorTitle = "ERREUR"
.InputMessage = "Nombre"
.ErrorMessage = "Ceci n'est pas un nombre"
.ShowInput = True
.ShowError = True
End With

Mais cette "validation" ne fonctionne que je tape "manuellement" quelque chose dans la case A1 et donc je peux encore mettre n'importe quoi dans mon inputbox il n'y aura pas d'erreur....

Voilà j'espère avoir été clair, merci pour votre aide....

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Forcer la saisie de nombre vba excel » dans :

VBA EXCEL test contenu cellule (Résolu) Voir

Vba excel filtre / listbox ... Voir

Boucle en vba Excel (Résolu) Voir

VBA Excel - Ecrire dans fichier txt (Résolu) Voir

Cours VBA Excel en ligne ? Voir

VBA/Excel Instruction: On Error Resume Next Voir

Posez votre question Répondre

LePierre, le 17 avr 2008 à 17:26:11

Bonjour

regarde dans l'aide de InputBox : tu peux filtrer le type de valeur saisie

par exemple pour un nombre tu aurais :

MonNombre = Application.InputBox(prompt:="Entrez un nombre", Type:=1)

à plus

Répondre à LePierre

eriiic, le 17 avr 2008 à 21:01:32

Bonsoir,

il faut que tu boucles sur la saisie tant que les condition ne sont pas respectées.
Par exemple :

Sub test()
    Dim r As String
    r = "999999"
    While CLng(r) > 1000 Or CLng(r) < -1000
        r = InputBox("Message", "Title", Default, 100, 100)
    Wend
    [A1].Value = CLng(r)
End Sub

eric

Répondre à eriiic

nounoursboy, le 18 avr 2008 à 08:56:22

Merci pour ta réponse Lepierre ça marche parfaitement...

Je n'ai pas essayé ta solution eriiic vu que celle d'avant marche mais merci quand même

A+

Répondre à nounoursboy

eriiic, le 18 avr 2008 à 19:36:06

Bonsoir,
Poiurquoi avoir demandé 'compris entre -1000 et 1000' alors ?
Par contre en relisant je vois que tu acceptes les nombres décimaux. Dans ce cas remplacer CLng par CDbl, CCur ou CDec
eric

Répondre à eriiic

Posez votre question Répondre