Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

création message alerte cellule si dépassement

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

urbanito1

XLDnaute Occasionnel
bonjour le forum
j'ai trouvé ceci dans un des fils
du forum

Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value = 6 Then
MsgBox ' attention valeur maxi atteinte '
End If
End Sub salutations

pour la création d'un message simple d'alerte...
mais ça ne donne rien sur mon fichier, quel paramètre modifier ?

un connaisseur peut-il regarder ?

merci

urbanito
 

Pièces jointes

Trier par date Trier par votes
Re : création message alerte cellule si dépassement

Salut urbanito1, Le Forum

d'un ton code est dans le mauvais Module. il faut le placer dans le module de la Feuille
et de deux après MsgBox il faut remplacer les cotes ' par des guillemets "

Bonne Journée
 
Vote positif 0 Vote négatif
Re : création message alerte cellule si dépassement

le forum
dull merci
voici mais j'ai l'impression qu'il y a encore une anomalie...? il ne s'active pas Merci

Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then
MsgBox " attention valeur maxi atteinte "
End If
End Sub salutations
 

Pièces jointes

Vote positif 0 Vote négatif
Re : création message alerte cellule si dépassement

Bonsoir,
il faut le placer dans le module de la Feuille
et de deux après MsgBox il faut remplacer les cotes ' par des guillemets "
Cliquez pour agrandir...

Click droit sur l'onglet test, puis visualiser le code.

j'ai modifié le code et l'ai mis dans la feuille, par contre je n'ai pas supprimé ton module dans lequel tu à mis le code.


cordialement.
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : création message alerte cellule si dépassement

Le forum, dull, aspe salut et merci

j'ai essayé de mettre un deuxième argument mais j'ai erreur de compilation

Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then
MsgBox " attention valeur maxi 6 ANS atteinte "
If [d49].Value > 12 Then
MsgBox " attention valeur maxi 12 ANS atteinte "
End If
End Sub

le code doit-il être seulement dans la feuille, dan le module ou dans les deux ?

merci
urbanito
 

Pièces jointes

Vote positif 0 Vote négatif
Re : création message alerte cellule si dépassement

Bonjour, urbanito1, Dull 😀, aspe, le Forum,

Un essai avec le code ci-après :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then MsgBox " attention valeur maxi 6 ANS atteinte "
If [d49].Value > 12 Then MsgBox " attention valeur maxi 12 ANS atteinte "
End Sub

A bientôt 🙂
 
Vote positif 0 Vote négatif
Re : création message alerte cellule si dépassement

Le forum,dull, aspe, double zéro c'est bon

juste petite question :
j'ai laissé le code dans la feuille et supprimé le module

mais si je laisse code dans la feuille et le module ça fonctionne également...

que est l'intérêt du module?

merci
urbanito
 
Vote positif 0 Vote négatif
Re : création message alerte cellule si dépassement

Re-bonjour,

Quelques précisions que je n'ai pas apportées 🙁 dans mon précédent message...


Il manque un End If après la première condition.

Le code devient :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If [g28].Value > 6 Then
MsgBox " attention valeur maxi 6 ANS atteinte "
End If
If [d49].Value > 12 Then
MsgBox " attention valeur maxi 12 ANS atteinte "
End If
End Sub

Il est l'équivalent de celui déposé en #6.

urbanito1 à dit:
... le code doit-il être seulement dans la feuille, dan le module ou dans les deux ?..
Cliquez pour agrandir...

Il doit figurer uniquement dans le module de l'onglet.

A bientôt 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
457
un internaute
U
T
  • Question Question
Microsoft 365 alerte si cellule change de valeur
Réponses
14
Affichages
705
thenesol
T
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
344
PRy
P
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
820
thunder23
P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
643
pat66
P
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
434
fredl
F
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
  • Résolu(e)
XL 2019 SI date < à aujourd'hui = message
Réponses
3
Affichages
373
Sellig
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
691
Yvan1
Y
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
463
Gégé-45550
E
  • Question Question
Autres VBA - Erreur d'exécution '13'
Réponses
4
Affichages
652
Elisa47
E
  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
740
R3n0W
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
700
ChTi160
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
866
pat66
P
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
687
Lu76Fer
P
  • Résolu(e)
Microsoft 365 Msgbox qui doit s'afficher une seule fois
Réponses
5
Affichages
597
mapomme
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
  • Question Question
XL 2013 Réduire un code
Réponses
0
Affichages
664
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Efface automatiquement le contenu d'une cellule en fonction d'une autre cellule
Réponses
9
Affichages
784
chaelie2015
M
  • Question Question
XL 2013 changement de couleur de police qd cellule modifiée
Réponses
10
Affichages
833
michel.dupont
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…