XL 2016 Obliger une saisie numéraire

vgendron à dit:

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

Cliquez pour agrandir...

vgendron à dit:

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

Cliquez pour agrandir...

job75 à dit:

Bonjour à tous,

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

VB:

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+

Cliquez pour agrandir...

job75 à dit:

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

Cliquez pour agrandir...