interdire l'utilisation de certaines touches du clavier

M

michel

Guest

• 5 Mars 2004

• #2

bonjour Fred

plutot que de désactiver une partie du clavier , la macro ci dessous annule la saisie lorsque la valeur n'est pas numerique .


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not IsNumeric(Target) Then
MsgBox "Saisie incorrecte . "
Application.Undo
End If
End Sub

j'espere que cela pourra t'aider

bon apres midi
michel

 

Vote positif 0 Vote négatif

F

fred

Guest

• 5 Mars 2004

• #3

Merci Michel,
je teste tout de suite avant même de déjeuner!!
@+

 

Vote positif 0 Vote négatif

F

fred

Guest

• 5 Mars 2004

• #4

Re-bonjour,
j'ai testé ta macro Michel,
mais elle ne me convient pas ou alors j'ai merdé quelque part.
En effet j'aurai souhaité, dès la touche entrée enfoncée,
que la Msgbox apparaisse, or là, le message ne s'affiche que
lors de la re-sélection de la cellule contenant des données non numériques.
Help...

 

Vote positif 0 Vote négatif

F

fred

Guest

• 5 Mars 2004

• #5

Je suis confus : ta macro fonctionne très bien.
@+

 

Vote positif 0 Vote négatif

F

fred

Guest

• 5 Mars 2004

• #6

Re-bonjour,
Je n’arrive pas à utiliser la macro de sélection de plage de cellules avec suppression des données ci-dessous comprise dans un module
Sub nettoyage
Sheets("feuil1").Select
Range("a1:m6").Select
Selection.ClearContents
End Sub
avec la macro proposée par Michel sur la feuil1
alors qu’avec
Range("a1"). Select
Selection.ClearContents
il n’y a aucun problème. On dirait que la sélection d’une plage de cellules est incompatible avec la surveillance de la saisie.
Et encore merci.

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 5 Mars 2004

• #7

Salut Fred

En regardant je me suis apperçu que la formule que t'as donné Michel ne marchait que si une seule cellule était activé.
Par exemple tu sélectionnes 3 cellules tu rentres un nombre et tu fais Ctrl Entrée et là tu rentre dans une boucle dont tu ne peux sortir. Et je pense que ton problème pour effacer viens de là.
Donc voici un petiot ajout à la macro de michel

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cell In Target
If Not IsNumeric(cell) Then
MsgBox "Saisie incorrecte . "
Application.Undo
End If
Next
End Sub

Bon courage

Pascal

 

Vote positif 0 Vote négatif

M

michel

Guest

• 5 Mars 2004

• #8

bonsoir Pascal , bonsoir Fred

Pascal , merci d'avoir complété la macro

bonne soirée
michel

 

Vote positif 0 Vote négatif