Discussion :

[sharox]

Bonjour a tous,

Je n'arrive pas trop a me schématiser comment faire.

J'ai la formule qui m'interdit de mettre dans une cellule (enfin je pense) :

Code :

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

1
2
3
4
5
6
7
8
9
    If Range("C5").Value = "" Then
    Else
        Range("C5").Value = Replace(Range("C5").Value, ".", ",")
        If Not IsNumeric(Range("C5").Value) Then
             MsgBox " saisir des chiffres"
             Range("C5").Value= ""
        Else
        End If
    End If

mais je ne sais pas dans quoi le mettre , c'est a dire dans quel fonction :

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

ou autre, vue que ces fonctions doivent renvoyer une valeur.. et que je suis pas super doué la dedans, je m'en remet a vous

Merci

[sharox]

en faite, ce que je voudrais c'est un fonction sub... qui s'exécute toute les 10 sec par exemple ou une fonction sub qui s'exécute quand la valeur d'une cellule change.

voila, merci

[Philippe Tulliez]

Bonjour,
Pour intercepter le changement d'une valeur dans une cellule, il faut placer ton code dans la procédure événementielle Worksheet_Change(ByVal Target As Range) où l'argument Target représente la cellule où a eu lieu le changement.
Cependant tu peux aussi te passer de VBA en utilisant l'outil Validation de données.