Macro pour afficher un message sous candition
Résolu/Fermé
A voir également:
- Macro pour afficher un message sous candition
- Comment recuperer un message supprimé sur whatsapp - Guide
- Message d'absence thunderbird - Guide
- Macro word - Guide
- Diff message ✓ - Forum Mobile
- Laisser un message vocal et raccrocher - Forum Mobile
4 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
8 août 2011 à 11:22
8 août 2011 à 11:22
Bonjour,
Tout dépends comment tu saisis ton mois en B2...
Tout dépends comment tu saisis ton mois en B2...
Bonjour,
mon mois sur B2 sera obtenu de la façon suivante B2= mois(B3).
sachant que B3=AUJOURDHUI().
comme-ça chaque mois j'aurai automatiquement sur B2 le chiffre qui correspond au mois en cours.
merci
mon mois sur B2 sera obtenu de la façon suivante B2= mois(B3).
sachant que B3=AUJOURDHUI().
comme-ça chaque mois j'aurai automatiquement sur B2 le chiffre qui correspond au mois en cours.
merci
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
8 août 2011 à 12:05
8 août 2011 à 12:05
Alors ta macro doit ressembler à ceci :
If CInt(Range("A1").Value) > CInt(Range("B2").Value) Then MsgBox "La valeur saisie en A1 est trop grande" End If
merci pour cette macro, elle fonctionne
mais... comme je voudrais qu'elle s'exicute automatiquement j'ai utilisé : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
le problème c'est que lorsque la liste déroulante génère un chiffre sur la cellule A1 qui est suppérieur à B2 le message ne saffiche pas directement. je suis obligé de cliquer sur une cellule pour que le message s'affiche.
je me demande si on peut améliorer cette macro pour résoudre ce problème.
encore merci beaucoup
mais... comme je voudrais qu'elle s'exicute automatiquement j'ai utilisé : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
le problème c'est que lorsque la liste déroulante génère un chiffre sur la cellule A1 qui est suppérieur à B2 le message ne saffiche pas directement. je suis obligé de cliquer sur une cellule pour que le message s'affiche.
je me demande si on peut améliorer cette macro pour résoudre ce problème.
encore merci beaucoup
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
8 août 2011 à 13:53
8 août 2011 à 13:53
Bien sur que ta macro ne se déclenche que lorsque tu sélectionnes une autre cellule. C'est logique car l'événement que tu as choisit est : Worksheet_SelectionChange.
Si tu veux que ta macro se déclenche dès qu'une valeur de ta feuille change, choisit l'événement : Worksheet_Change comme ceci :
Si tu veux que ta macro se déclenche dès qu'une valeur de ta feuille change, choisit l'événement : Worksheet_Change comme ceci :
Private Sub Worksheet_Change(ByVal Target As Range) If CInt(Range("A1").Value) > CInt(Range("B2").Value) Then MsgBox "La valeur saisie en A1 est trop grande" End If End Sub