Apparition d'une msgbox

[Kickback]

Bonjour,
Comment faire pour qu'à chaque fois qu'un chiffre dépasse une certaine valeur dans une colonne, une msgbox apparaisse avec un message de confirmation. Merci.

 

[dg62]

Bonjour


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Message = 'Valeur hors limites dans la cellule : '
If ActiveCell.Value > 10 Then ' valeur limite
message1 = ActiveCell.Address
message2 = Message & message1
reponse = MsgBox(message2)
End If
End Sub


Cela fonctionne quand on revient dans une cellule mais pas lors de la saisie

 

[Eric C]

Bonsoir le forum
Bonsoir Kickback, bonsoir dg62

A placer dans le code de ta feuille. Le code ici est actif pour la colonne A. Si la valeur entrée dans l'une des cells de la col A,
est > ou égale à 10 alors le MsgBox s'affiche.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value >= 10 Then
MsgBox 'La valeur atteint ou dépasse le seuil autorisé'
End If
End If
End Sub

@ + Eric C 😉

 

[myDearFriend!]

Bonsoir Kickback, dg62, Eric_C, le Forum.


Heu... ne croyez-vous pas que le message d'avertissement ou d'information de validation de données serait ici tout à fait suffisant ?

[li]Sélection des cellules[/li]
[li]Menu Données / Validation...[/li]
[li]Onglet 'Options' : [/li]
- Autoriser / Nombre entier (ou Décimal)
- Données / Inférieur à
- Maximum : 11
[li]Onglet 'Alerte d'erreur' :[/li]
[li]'Quand des données non valides sont tapées' : Coché[/li]
[li]Style : 'Information' (ou 'Avertissement')[/li]
[li]Titre et Message d'erreur : (ce que tu souhaites)[/li]


Cordialement.