macro test format numerique

[chryss]

Bonjour,

J'ai fait une page excel avec macro validant la saisie et la recopiant dans un tableau sur une autre feuille.
Dans ma macro, je mets des test sur les differentes zones de saisie.
Et la je bute sur un des tests.
Je souhaiterais que la zone E12:E25 n'accepte que des nombres.
Je pense qu'il faut se servir de If Not IsNumeric mais je n'arrive pas à l'ecrire (je debute dans les macros....)
Pourriez vous m'aider ?
Merci d'avance

Chryss

 

[Lionel]

Bonsoir chryss,

Je ne comprends pas bien ce que tu souhaites, je m'explique :

1) Souhaites-tu que l'utilisateur ne puisse saisir que des nombres dans la plage spécifiée ?

2) Souhaites-tu ne reporter dans ton tableau que les valeurs numériques de la plage ?

Un petit fichier serait le bienvenu...

Sinon, ta condition me semble correspondre, à priori !

Amicalement
Lionel

 

[myDearFriend!]

Bonsoir chryss, Lionel,

Lionel a raison, ce n'est pas vraiment très clair ta question...

Bon, si tu souhaites que seules des valeurs numériques puissent être saisie dans la plage E12:E25, tu peux essayer cette procédure évènementielle dans le module de code de ta feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
      With Application
            If Not .Intersect(Target, Range('E12:E25')) Is Nothing Then
                  If Not IsNumeric(Target.Value) Then
                        .EnableEvents = False
                        .Undo
                        .EnableEvents = True
                  End If
            End If
      End With
End Sub

Cordialement,

Message édité par: myDearFriend!, à: 14/10/2005 21:22

 

[chryss]

merci de m'avoir repondu

Donc je souhaite que l'utilisateur ne puisse saisir que des chiffres.
Dans ma macro'MAJRECAP' qui correspond au bouton validation, j'ai fait en sorte que mes cellules se copient dans mon tableau RECAP.
Tout marchait bien avant que je ne veuille faire ce test sur le format numerique.
J'ai ecrit ma condition mais elle ne doit pas etre bonne (ou mal formuler) car que je mettes des chiffres, des lettres ou rien, la msgbox s'active.
Je joins le fichier si ça peut aider pour les explications
Merci d'avance,

Chryss [file name=tabbord.zip size=37163]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/tabbord.zip[/file]

 

[chryss]

Désolée si je n'ai pas été très clair......
Je te remercie pour le code
Ca marche et c'est mieux que ce que j'avais prévue !
Faut dire que je debute et je galère un peu ...
Merci encore

Chryss