Discussion :

[lucas-18]

Bonjour et bonne année 2010,

J'ai un champ numérique où il est impossible de taper des caractères autres que des chiffres ; voici le code utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub GSM_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 8)) Then
Beep
KeyAscii = 0
End If
End Sub

Le problème, c'est que les utilisateurs copient des fois cette valeur d'un autre programme et la colle dans le champ.

Comment pourrais-je faire pour supprimer ces caractères spéciaux tels que / ou .

merci

[miamou]

Bonjour,
pourquoi ne pas penser à utiliser un masque de saisi sans passer par code!

[lucas-18]

Bonjour,
pourquoi ne pas penser à utiliser un masque de saisi sans passer par code!

impossible, ce n'est pas toujours le meme masque de saisie ...

[fgiambelluco]

Bonjour

Comment pourrais-je faire pour supprimer ces caractères spéciaux tels que / ou .

Je vois bien la fonction Replace(), mais cela risque d'être lourd à utiliser.

[lucas-18]

et avec une requete mise a jour ?

[fgiambelluco]

Re

mais cela risque d'être lourd à utiliser.

ce que je voulais dire, c'est que comme il faut lui préciser quel caractère on recherche, ça risque de faire beaucoup de possibilité !

Un autre solution serait de créer une fonction VBA qui scanne chaque caractère et le supprime si il n'a pas le bon code ASCII.

[lucas-18]

Re ce que je voulais dire, c'est que comme il faut lui préciser quel caractère on recherche, ça risque de faire beaucoup de possibilité !

Un autre solution serait de créer une fonction VBA qui scanne chaque caractère et le supprime si il n'a pas le bon code ASCII.

en fait il n'y a ke 2 caractères a suprimer : "/" et "."

aurais-tu un code sur lequel je pourrais me baser par hazard ?

[marsouin_89]

Bonjour Lucas,

Voici un code que j'utilise et qui pourrais te guider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Function fSupprimeCars(ByVal chaine As String) As String
Dim Position As Integer 'Remplace tous les carractères spéciaux
 
For Position = Len(chaine) To 1 Step -1
 
Select Case Mid(chaine, Position, 1)
 
Case "à", "á", "â", "ã", "ä", "å", "Ä"
 
chaine = Left(chaine, Position - 1) & "a" & Mid(chaine, Position + 1)
 
Case "ç"
 
chaine = Left(chaine, Position - 1) & "c" & Mid(chaine, Position + 1)
 
Case "é", "è", "ë", "ê"
 
chaine = Left(chaine, Position - 1) & "e" & Mid(chaine, Position + 1)
 
Case "ì", "í", "î", "ï"
 
chaine = Left(chaine, Position - 1) & "i" & Mid(chaine, Position + 1)
 
Case "ñ"
 
chaine = Left(chaine, Position - 1) & "n" & Mid(chaine, Position + 1)
 
Case "ò", "ó", "ô", "õ", "ö"
 
chaine = Left(chaine, Position - 1) & "o" & Mid(chaine, Position + 1)
 
Case "ù", "ú", "û", "ü"
 
chaine = Left(chaine, Position - 1) & "u" & Mid(chaine, Position + 1)
 
Case "ý", "ÿ"
 
chaine = Left(chaine, Position - 1) & "y" & Mid(chaine, Position + 1)
 
Case "&", "'", """", "~", "{", "[", "-", "|", "`", "_", "\", "^", "@", ")", "(", "]", "=", "+", "}", "^", _
                                        "$", "£", "¤", "*", "µ", "ù", "%", ",", "?", ";", ".", ":", "/", "!", "§"
chaine = Left(chaine, Position - 1) & "" & Mid(chaine, Position + 1)
 
End Select
 
Next Position
 
fSupprimeCars = chaine
 
End Function

Pour utiliser le code :
Me.Monchamp=fSupprimeCars(Me.MonChamp)

En espérant t'avoir aidé.

Marsouin

[LE VIEUX]

Bonjour,
En principe avec ton code, si le champ est numérique à la base, il ne peut accepter autre chose que des chiffres entier en frappe et numérique entier ou double selon sa définition de base en copier coller.
S’il accepte autre chose en copier coller il est probablement Texte, il n’accepte que des chiffres à la frappe et tout en copier/coller – pour empêcher les caractères . et / seulement comme fgiambelluco je mettrais le code suivant par exemple sur l’évènement après mise a jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Private Sub champ_AfterUpdate()
Me.champ = Nz(Replace(Me.champ, "/", ""), 0)
Me.champ = Nz(Replace(Me.champ, ".", ""), 0)
End Sub

[lucas-18]

Merci pour vos réponses mais j'ai préféré passer par une requête et j'ai fini par trouver :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE Elink SET MOBILE = Replace(Mobile,"/","")

Par contre, je suis occupé à chercher comment supprimer toutes les lettres ...

[fgiambelluco]

Bonjour

Je mettais amusé à faire une fonction qui permettait de faire comme ton KeyPress

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function SupAsci(VNumber)
    Dim pos As Integer, i As Integer
    For i = Len(VNumber) To 1 Step -1
        If (Asc(Mid(VNumber, i, 1)) < 48 Or Asc(Mid(VNumber, i, 1)) > 57) And Asc(Mid(VNumber, i, 1)) <> 8 Then
            VNumber = Mid(VNumber, 1, i - 1) & Mid(VNumber, i + 1)
        End If
    Next i
    SupAsci = VNumber
End Function

Fonction que tu peux appeler dans une requète
Genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UPDATE Elink SET MOBILE_PROPRE = SupAsci(Mobile)

[lucas-18]

Bonjour,

Après avoir crée ta requête j'ai comme message : Fonction 'SupAsci' non définie dans l'expression

[fgiambelluco]

Re

As-tu bien copié la fonction SupAsci dans un module ?

[lucas-18]

Merde j'ai oublié