XL 2016 Obliger une saisie numéraire

[halecs93]

Bonjour,

Je reviens vers vous pour tenter de trouver une solution.

A l'ouverture de mon fichier, un formulaire s'affiche. Sur ce formulaire, plusieurs ListBox alimentés par différents tableaux structurés.

L'utilisateur, en cliquant sur tel ou tel item, déclenche alors l'affichage d'un ou plusieurs TextBox. Je souhaiterais que l'utilisateur ne puisse y saisir que des chiffres (vérification à la validation).

Un grand merci.

 

[vgendron]

Hello
en utilisant un module de classe

1) quand tu crées le textbox, tu lui mets le tag "Numérique"
2) tu ajoutes le textbox à la classe
et voila

 

[halecs93]

Hello
en utilisant un module de classe

1) quand tu crées le textbox, tu lui mets le tag "Numérique"
2) tu ajoutes le textbox à la classe
et voila

Bonjour et merci. Ha oui... du coup cela empêche la saisie avant même la validation 😉 Mais... j'ai testé et sur mon PC seul le clavier numérique a été reconnu. Du coup si un utilisateur n'en a pas et doit utiliser les chiffres (en mode majuscule) de son clavier, cela ne fonctionne à priori pas.

 

[vgendron]

voir PJ: ca devrait etre ok

J'ai modifié le module de classe pour
1) ne plus vider le tag "Numérique" : à sa création, le texbox est bien déclaré en numérique, mais quand tu créés un nouveau textbox, le précédent redevenait un textbox classique

2) faire un controle sur la nature numérique quand tu tapes dans le textbox

 

[halecs93]

voir PJ: ca devrait etre ok

J'ai modifié le module de classe pour
1) ne plus vider le tag "Numérique" : à sa création, le texbox est bien déclaré en numérique, mais quand tu créés un nouveau textbox, le précédent redevenait un textbox classique

2) faire un controle sur la nature numérique quand tu tapes dans le textbox

Un grand merci !

 

[patricktoulon]

hum!...ces code de contrainte textbox me parle 😉

 

[patricktoulon]

Bonjour @vgendron
j'avais apporté des modifs assez conséquentes a ces codes
par exemple pour le code postal donc textbox numerique avec un séparateur (espace) automatique
et l'utilisation du pavé numérique que l'on a en haut du clavier , sauf que là pas besoins de mettre en majuscule
c'est pour ceux qui ont un portable sans pavé numérique

Private Sub CDP_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   With CDP
   Select Case KeyCode
        Case 96 To 105:                                 'ici  on les met mais on fait rien pour voir s'en servir
            If .SelStart = 2 Then .Value = .Value & " " 'ajoute l'espace apres le 2d chiffre
        Case 49 To 57: KeyCode = KeyCode + 48           'pavé numérique haut du clavier (verr MAj ou pas )
            If .SelStart = 2 Then .Value = .Value & " " 'ajoute l'espace apres le 2d chiffre
        Case 188: KeyCode = 110                         'ou l'inverse comme vous voulez 'c'est le switch (virgule/point) on peut inverser selon le besoin
        Case 8, 46:                                     'ici on met rien  c'est juste pour pouvoir utiliser les touches back et supprimer
        Case Else: KeyCode = 0:                         'toute les autres touches sont annulées
    End Select
    .Value = Mid(.Value, 1, 5)
End With
End Sub

j'ai mis des commentaires explicatifs

 

[job75]

Bonjour à tous,

Je ne comprends vraiment pas pourquoi on utilise des codes aussi compliqués alors que ceci est bien suffisant :

Private Sub UserForm_Initialize()
ListBox1.List = [MOBILIER].Value
ListBox2.List = [ABRI].Value
ListBox3.List = [SIGNALETIQUE].Value
ListBox4.List = [DECHETS].Value
Sheets("PANIER").Range("A2:B" & Rows.Count).ClearContents
End Sub

Private Sub ListBox1_Change()
Label7 = ListBox1.Value
End Sub

Private Sub ListBox2_Change()
Label7 = ListBox2.Value
End Sub

Private Sub ListBox3_Change()
Label7 = ListBox3.Value
End Sub

Private Sub ListBox4_Change()
Label7 = ListBox4.Value
End Sub

Private Sub CommandButton1_Click()
If Label7 = "" Or TextBox1 = "" Then Exit Sub
With Sheets("PANIER")
    With .Cells(Application.CountA(.Columns(1)) + 1, 1)
        .Value = Label7
        .Offset(, 1) = Val(Replace(TextBox1, ",", "."))
    End With
    .Columns.AutoFit
End With
End Sub

A+

 

[halecs93]

Bonjour à tous,

Je ne comprends vraiment pas pourquoi on utilise des codes aussi compliqués alors que ceci est bien suffisant :

Private Sub UserForm_Initialize()
ListBox1.List = [MOBILIER].Value
ListBox2.List = [ABRI].Value
ListBox3.List = [SIGNALETIQUE].Value
ListBox4.List = [DECHETS].Value
Sheets("PANIER").Range("A2:B" & Rows.Count).ClearContents
End Sub

Private Sub ListBox1_Change()
Label7 = ListBox1.Value
End Sub

Private Sub ListBox2_Change()
Label7 = ListBox2.Value
End Sub

Private Sub ListBox3_Change()
Label7 = ListBox3.Value
End Sub

Private Sub ListBox4_Change()
Label7 = ListBox4.Value
End Sub

Private Sub CommandButton1_Click()
If Label7 = "" Or TextBox1 = "" Then Exit Sub
With Sheets("PANIER")
    With .Cells(Application.CountA(.Columns(1)) + 1, 1)
        .Value = Label7
        .Offset(, 1) = Val(Replace(TextBox1, ",", "."))
    End With
    .Columns.AutoFit
End With
End Sub

A+

Bonjour.... l'ergonomie n'est plus la même... dans la version originale, l'utilisateur peut sélectionner plusieurs Items qui sont alors "surlignés"....et à côté de chacun d'eux il peut indiquer une quantité

 

[job75]

Eh oui, pourquoi faire simple quand on peut faire compliqué ?

 

[halecs93]

Eh oui, pourquoi faire simple quand on peut faire compliqué ?

Disons que l'utilisation, à venir, privilège l'ergonomie proposée... mais je garde dans un p'tit coin du PC votre proposition malgré tout 😉