interdire valeur non numérique dans cellule

[mariobross]

Bonjour le forum ,je recherche à interdire de rentrer une valeur qui ne soit pas munérique dans une cellule :
pour info pour une texbox cela donne:

Private Sub textbox_code_postal_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'N'autoriser que la saisie des chiffres le point et la virgule
If InStr("1234567890.,", Chr(KeyAscii)) = 0 Then
Beep
KeyAscii = 0
Else
'transformation du point en virgule
If Chr(KeyAscii) = "." Then KeyAscii = Asc(",")
End If
End Sub

cela fonctionne tres bien avec en plus un "beep" si l'on tape du texte , mais comment l'adapter à une cellule de classeur.
merci.

 

[BERRACHED said]

Re : interdire valeur non numérique dans cellule

Salut,mariobross

pour la mise en forme des cellules il faut adapter le code sur l'évènement :
Private Sub Worksheet_Change(ByVal Target As Range)
de la feuille de calcule

Cordialement

 

[mariobross]

Re : interdire valeur non numérique dans cellule

Bonjour.
je suis d'accord avec toi said , mais mon probleme est d'écrire le code.
merci de ta réponse.

 

[Guest]

Re : interdire valeur non numérique dans cellule

Bonjour Mario, Le Forum,

Il n'y as pas moyen sur une feuille de faire comme sur un text box. Mais pour limiter une cellule ou plusieur à des numeriques tu peux utiliser Menu/données/validation->Personnalisée et la formule =EstNum(A1) (si c'est a1 qui est concerné.

Sinon par macro dans le module de code de la feuille (click-droit sur l'onglet, puis visualiser le code):

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(False, False) <> "A1" Or Target.Text = vbNullString Then Exit Sub
 If Not IsNumeric(Target.Value) Then
    Application.EnableEvents = False
    Beep
    Target = CVErr(xlErrValue)
    Application.EnableEvents = True
 End If
End Sub

Cette procédure renverra la Valeur d'erreur #VALEUR dans la cellule après un bip si on rentre autre chose qu'une valeur numérique ou un vide.

A bientôt

 

[Lii]

Re : interdire valeur non numérique dans cellule

Bonjour,

A voir (et tester).

 

[mariobross]

Re : interdire valeur non numérique dans cellule

Lii , hasco , le forum merci pour vos solutions.