Discussion :

[lecaire]

je veux grace à ce code

Code :

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

IF (keyascii < 48 or keyascii> 66) and keyascii<>8 THEN keyascii=0

qui fonctionne sous vb dans un évènement keypress d'un textbox controler la saisie.
mais je sais dans quelle évènement (de la cellule s'il y en a) mettre ce code afin de contrôler.
NB:je suis aussi partant pour toute autre methode permetttant de contrôler la saisie dans une cellule.
merci

[Invité]

Bonjour

Dans une feuille, il faut mettre ton code sur l'évènement Change de celle-ci :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub

Avec Target qui est la cellule où tu viens de faire la saisie.
En fait, le contrôle se fera après la saisie (après validation) et non pendant.

Il y a aussi la validation des données, mais je ne pense pas que cela fonctionnera dans ton cas, ce sera trop limité.

Starec

[ouskel'n'or]

Teste ça tel quel et modifie des données dans la colonne B d'une feuille vierge.
Tu dis si c'est l'idée, aprés on verra

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
Public tag As String, ok As Boolean
 
Private Sub Worksheet_Change(ByVal Target As Range)
tag = Target.Address
ok = False
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ok Then Exit Sub
    ok = True
    If Target.Column <> 2 Or tag = "" Then Exit Sub
    If Range(tag) <> "coucou" And Range(tag) <> "" Then
        Range(tag).Select
        MsgBox "Donnée erronée, remplacer " & Range(Tag) & " par ""coucou"""
    End If
End Sub

A+