Bloquer une macro si le format n'est pas un chiffre ou un nombre

[afchartier]

Bonsoir le forum,

quelqu'un pourrait-il m'aider,

j'ai un soucis, lorsque j'execute une macro, si les données renseignées dans le textbox1 n'est pas un chiffre ou un nombre, il fait planter la macro.

je ne pense pas que se soit très compliqué, mais il me manque un peu de vocabuliare en vb.

merci d'avance aux Excelnaute qui voudront bien se pencher sur mon problème,

et merci le forum

A+

Alain

 

[Gael]

Re : Bloquer une macro si le format n'est pas un chiffre ou un nombre

Bonsoir Afchartier,

Essaye en utilisant la fonction "Isnumeric" pour conditionner l'exécution:

if isnumeric(textbox1.value) then...

@+

Gael

 

[Staple1600]

Re : Bloquer une macro si le format n'est pas un chiffre ou un nombre

Bonsoir


Trouvé sur le forum

Private Sub TextBox1_Change()
With Me.TextBox1
    If Not IsNumeric(.Value) Then
         ValTextBox1 = 0
        .SelStart = 0
        .SelLength = Len(.Text)
        .SetFocus
    Else
         ValTextBox1 = .Value
    End If
End With
End Sub

source

Autre solution

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not Chr(KeyAscii) Like "[0-9]" Then KeyAscii = 0
End Sub

Toujours avec Like

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not Chr(KeyAscii) Like "#" Then KeyAscii = 0
End Sub

 

[afchartier]

Re : Bloquer une macro si le format n'est pas un chiffre ou un nombre

c'est toujours très agréable de pouvoir trouver des solutions ici.

Merci Geal, merci Staple1600,

et merci le forum.

à bientot

Alain