Imposer un nombreRésolu

Question

Bonjour,

Dans un formulaire (sous VBA - Excel), je souhaite imposer à l'utilisateur d'entrer dans un textbox un N° à 8 chiffres dont les 2 permiers sont déterminés par l'année en cours et le 3 ème imposé (exemple : 095xxxxx pour l'année 2009)

si cela n'est pas possible,  il faudrait que je puisse au moins imposer 8 chiffres.
Pour ce qui est de la longueur de chaine de caractère, pas de problème, j'ai écris le code suivant :

    If Me.TXT_bob.TextLength <> 8 Then
          errbox = MsgBox("Veuillez entrer un N° valide", , "Erreur de numérotation !")
          Exit Sub
    End If

Pour imposer des chiffres je ne sais pas faire.
J'ai essayé de déclarer une variable de type "long" = Me.TXT_bob.Value
puis utiliser "IsNull" pour vérifier que la validité de la valeur entrée, mais cela ne marche pas. ça me donne un message d'erreur d'incompatibilité. Evidemment, vu que ma variable est déclarée comme "long" et que je la définis comme étant = à la valeur entrée dans le textbox avant de tester la validité par "IsNull", ça ne peut pas marcher. Et là je bloque. 

Merci d'avance à ceux qui pourront donner un coup de pouce au NooB ici présent

cs_fauve · Accepted Answer

Salut,

Il faut tester si le contenu de ta TextBox est un nombre, voici un exemple :







If
 IsNumeric(TextBox1.Text) =    False Then 
     errbox  = MsgBox( "Veuillez entrer un N° valide" , , "Erreur de numérotation !")
     Exit Sub
End If

++

Fauve



<hr size ="2" width="100%" />Pensez : Réponse Acceptée

thome76 · Answer

je pense que tu devrais aussi mettre le format à mettre genre du met la valeur par défaut 
095xxxxx  dans ta textbox et s'il se trompe tu dire dans le message d'erreur remplacer les x par des nombre un truc comme ça ... Re garde si tu peux pas personnalisé le masque de ta textbox

Belag55 · Answer

Merci à vous deux. 

Je testerai ça dès demain au boulot.
3 jours de formation c'est un peu léger pour faire ce qu'on me demande au taf et je manque cruellement de vocabulaire (code) VBA et les recherches sont longues et fastidieuses quand on manque de temps. Il me reste 4 jours pour cloturer mon programme

Belag55 · Answer

Thome76,  merci pour ta suggestion, mais je ne peux malheureusement pas définir les 3 premiers chiffres du nombre à entrer comme tu le proposes. Ce qui est valable en 2009 ne le sera plus les années suivantes et je tiens à ce que le programme soit autonome sans avoir à le modifier. Il n'est pas sur que je sois encore au poste que j'occupe dans les années à venir et il faudra que ça tourne sans moi  

A moins qu'il existe un moyen de n'écrire que les 2 derniers chiffres du résultat de "year(date)" par un code, mais là encore, je ne connais pas.

thome76 · Answer

Non  en programmant  directement le default value en utilisant la date système c'est possible non?
ça je n'ai pas regarder mais ça doit être trop possible de faire ça en programmation

cs_fauve · Answer

Salut,

Ce code te permet de retourner les deux derniers chiffres de l'année en cours :

Mid(FormatDateTime(Now, vbShortDate), Len(FormatDateTime(Now, vbShortDate)) - 1)

++

Fauve


<hr size="2" width="100%" />Pensez : Réponse Acceptée

piloulac · Answer

ou tout simple :

AnAbreg = Year(Date)   'renvoie 2008
AnAbreg = Right(AnAbreg, 2)  'renvoie "08"

Tu peux créer un
Label1.Caption=AnAbreg 
Tu colles cette étiquette à Gauche ton TextBox
Tu lui choisis les mêmes apparences que ton TextBox

Dans la sub Exit de ton TextBox, tu testes le format.
Maval=TextBox1.Text
If  IsNumeric MaVal And Len(Maval)=7 then
MaVal=AnAbreg & MaVal   'Tu récupères ainsi ton format à 9 chiffres
Else
MsgBox "Format incompatible .........."
Exit Sub
End If

'''Exploitation de MaVal

Imposer un nombre

7 réponses

Votre réponse

Discussions similaires