Affichage d'un message en fonction du résultat de la formule

kjin

XLDnaute Barbatruc
Re : Affichage d'un message en fonction du résultat de la formule

Bonsoir,
Dans le module de la feuille 1
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3:H33")) Is Nothing Then
    If Cells(36, Target.Column) > 10 Then
        MsgBox "il y a plus de 10... !"
        Application.Undo
    End If
End If
End Sub
stanwas06; fichier joint a dit:
A la deuxième tentative, si cette valeur est dépassée, le fichier se ferme automatiquement en avertissant l'opérateur que ses données n'ont pas été sauvegardées
Un peu dure non ?
A+
kjin
 

Dranreb

XLDnaute Barbatruc
Re : Affichage d'un message en fonction du résultat de la formule

Bonsoir
Pourquoi ne pas empêcher la sélection de la cellule avant même qu'elle ne soit renseignée:
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Me.[B3:H33], Target) Is Nothing Then
   If Me.Cells(36, Target.Column).Value >= 10 And Target.Value = "" Then
      MsgBox "Choisissez une autre cellule"
      Me.Cells(1, 1).Select
      End If
   End If
End Sub
À+
 

phlaurent55

XLDnaute Barbatruc
Re : Affichage d'un message en fonction du résultat de la formule

Bonjour stanwas,

ton fichier en retour
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
For Each cellule In Range("B36:H36")
If cellule.Value > 10 Then
MsgBox ("Votre choix ne sera pas pris en compte")
Target.Value = ""
End If
Next cellule
End Sub
à+
Philippe

Edit: Bonjour Kjin, Dranreb
 

Fichiers joints

Victor21

XLDnaute Barbatruc
Supporter XLD
Re : Affichage d'un message en fonction du résultat de la formule

Bonsoir,stanwas06

Début de réponse, pour le msg :
VB:
Private Sub Worksheet_Calculate()
    With Worksheets("Feuil1").Range("B36:H36")
        Set c = .Find(10, LookIn:=xlValues)
        If Not c Is Nothing Then
            MsgBox "Modifiez votre choix"
        End If
    End With
 ActiveCell = ""
End Sub
Edit : Bonsoir, kjin, DranreB, phlaurent55. Désolé, j'ai raté mon train...:p
 
Dernière édition:

stanwas06

XLDnaute Nouveau
Re : Affichage d'un message en fonction du résultat de la formule

Je reviens sur le forum et surprise, des personnes ont réfléchi pour moi et surtout ont trouvé la solution que je ne parvenais pas à écrire.
Merci à vous.
Bonne soirée
Stanwas06
 

Discussions similaires


Haut Bas