gds35
XLDnaute Impliqué
Mes AMIS du Forum Bonjours , Bonnes fêtes de fin d'Année dans la joie .
J'ai un p'tit soucis , j'ai une text Box ou je ne devrais saisir que des nombres sinon je desire ne pas passer a la zone suivante , puis je fais un calcul , si bien si de l'alfa est entré je tombe en erreur 13 . Voila le bout de mon code qu'est ce qui cloche ????
Private Sub KMS_Validate(Cancel As Boolean)
'
If KMS.Value = "" Then
Exit Sub
If Not IsNumeric(KMS.Text) Then
Cancel = True
Else
NBKMSFAIT.Caption = KMS.Value + Sheets("INDKMS").Range("C8").Value
'
End If
End If
End Sub
Merci de votre Aide , bon WE . Cordialement GDS35
J'ai un p'tit soucis , j'ai une text Box ou je ne devrais saisir que des nombres sinon je desire ne pas passer a la zone suivante , puis je fais un calcul , si bien si de l'alfa est entré je tombe en erreur 13 . Voila le bout de mon code qu'est ce qui cloche ????
Private Sub KMS_Validate(Cancel As Boolean)
'
If KMS.Value = "" Then
Exit Sub
If Not IsNumeric(KMS.Text) Then
Cancel = True
Else
NBKMSFAIT.Caption = KMS.Value + Sheets("INDKMS").Range("C8").Value
'
End If
End If
End Sub
Merci de votre Aide , bon WE . Cordialement GDS35