interdire valeur non numérique dans cellule

mariobross · 14 Septembre 2008

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 · 15 Septembre 2008

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 · 15 Septembre 2008

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 · 15 Septembre 2008

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):

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 · 15 Septembre 2008

Re : interdire valeur non numérique dans cellule

Bonjour,

A voir (et tester).

mariobross · 15 Septembre 2008

Re : interdire valeur non numérique dans cellule

Lii , hasco , le forum merci pour vos solutions.

interdire valeur non numérique dans cellule

mariobross

XLDnaute Occasionnel

BERRACHED said

XLDnaute Accro

mariobross

XLDnaute Occasionnel

Guest

Guest

Lii

XLDnaute Impliqué

Pièces jointes

mariobross

XLDnaute Occasionnel

Discussions similaires

interdire valeur non numérique dans cellule

mariobross

XLDnaute Occasionnel

BERRACHED said

XLDnaute Accro

mariobross

XLDnaute Occasionnel

Guest

Guest

Lii

XLDnaute Impliqué

Pièces jointes

mariobross

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency