Discussion :

[pepesese]

Bonjour à tous,
D'abord merci à ceux qui prendront de leur temps pour m'aider.
Lorsque je rentre une valeur dans une cellule de la colonne B(cellule active) et que celle-ci est supérieur à la cellule A1, alors afficher dans une message box ERREUR.

[Bear the french]

Bonjour,

Sans code ou sans copie d'écran, c'est difficile de comprendre le sujet.
Est-ce possible d'illustrer la question ? Merci.

Bonne journée.

[Phil333250]

Bonjour,

Sans VBA à mettre en C1

Code :

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

=SI(B1>$A$1;"Erreur";"")

Tu peux traduire la ligne de code ci-dessus dans la fenêtre d'exécution de l'éditeur VBA.

En espérant que cela aide

Philippe

[pepesese]

Merci Phil333250,
Cette proposition ne correspond pas à mon attente.
Je ne souhaite pas utiliser une autre colonne avec des formules.
Je souhaite avoir l'information au moment de la saisie pour la cellule active par une message box.

[BENNASR]

bonjour
teste ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row)) Is Nothing Then
        If Cells(Target.Row, 2) > Cells(1, 1) Then
        Cells(Target.Row, "B").ClearContents
        MsgBox "ERREUR"
        End If
    End If
    Application.EnableEvents = True
End Sub

[Philippe Tulliez]

Bonjour,

Cette proposition ne correspond pas à mon attente.
Je ne souhaite pas utiliser une autre colonne avec des formules.
Je souhaite avoir l'information au moment de la saisie pour la cellule active par une message box.

Je suppose que vous évoquez la fonctionnalité Validation de données ?
Merci d'être plus explicite dans votre demande

[jurassic pork]

Hello,
tu peux utiliser la validation de données :


[EDIT] Hello Philippe, bonne synchronisation

Ami calmant, J.P

[pepesese]

Merci BENNASR pour ta proposition.
Ok pour une feuille;
J'ai essayé de mettre la macro dans "ThisWorkbook" pour qu'elle s'applique à toutes les feuilles, mais là ça ne marche pas.