MsgBox Avec conditions
Résolu
Benoit_Lyon
Messages postés
98
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonsoir à tous,
Je cherche à créer une message box qui apparaitrait quand une certaine case indique "FAUX" et n'apparaitrait pas si les données saisies sont correctes. (C'est une case où l'on doit saisir une date comprise entre deux date).
Merci pour votre aide.
Benoit
Je cherche à créer une message box qui apparaitrait quand une certaine case indique "FAUX" et n'apparaitrait pas si les données saisies sont correctes. (C'est une case où l'on doit saisir une date comprise entre deux date).
Merci pour votre aide.
Benoit
A voir également:
- MsgBox Avec conditions
- Mise en forme conditionnelle excel plusieurs conditions - Guide
- Excel reporter des données sur une autre feuille avec conditions ✓ - Forum Excel
- Je ne suis pas un robot confidentialité - conditions ✓ - Forum Mail
- Excel champ calculé avec condition - Forum Excel
- Mise en forme conditionnelle avec 2 conditions ✓ - Forum Bureautique
10 réponses
Si bien sur, et je sais comment la faire,
mais pourquoi faire simple quand on peut faire compliqué...Lol
mais pourquoi faire simple quand on peut faire compliqué...Lol
Quand je rentre une date dans une certaine case ("P1"), j'ai fait une formule dans une autre case ("P3")pour savoir si la date rentrée est valable (bien comprise dans la plage de date prévue).
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonsoir,
Oui toujours à l'écoute. J'ai trouvé une solution. Je la poste tout à l'heure si vous voulez donner un avis.
Cdt
Benoît
Oui toujours à l'écoute. J'ai trouvé une solution. Je la poste tout à l'heure si vous voulez donner un avis.
Cdt
Benoît
Bonjour,
Code sur la page
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("O1:U1")) Is Nothing Then
Call Boitededialogue
End If
End Sub
Code macro
Sub Boitededialogue()
'informe l'utilisateur d'une mauvaise saisie de date
If Range("P3") = "Faux" Then
Retour = msgbox("Saisir une date entre le premier jour et le dernier jour de l'année scolaire", 48)
End If
End Sub
Voilà. Ca fonctionne.
Des idées d'améliorations ?
Merci
Benoit
Code sur la page
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("O1:U1")) Is Nothing Then
Call Boitededialogue
End If
End Sub
Code macro
Sub Boitededialogue()
'informe l'utilisateur d'une mauvaise saisie de date
If Range("P3") = "Faux" Then
Retour = msgbox("Saisir une date entre le premier jour et le dernier jour de l'année scolaire", 48)
End If
End Sub
Voilà. Ca fonctionne.
Des idées d'améliorations ?
Merci
Benoit
Bonjour,
Ca c'est votre demande post 4
Quand je rentre une date dans une certaine case ("P1"), j'ai fait une formule dans une autre case ("P3")
Maintenant c'est:
Range("O1:U1"))
Ca fait 7 "case"!!!!!!!!
Correspond peut-etre au jours de la semaine ?
avec ceci un peu mieux mais pas suffisant, il est possible de changer de cellule meme mal remplie, c'est pour cela que je demande des precisions sur le "a quoi ca sert"
Ca c'est votre demande post 4
Quand je rentre une date dans une certaine case ("P1"), j'ai fait une formule dans une autre case ("P3")
Maintenant c'est:
Range("O1:U1"))
Ca fait 7 "case"!!!!!!!!
Correspond peut-etre au jours de la semaine ?
avec ceci un peu mieux mais pas suffisant, il est possible de changer de cellule meme mal remplie, c'est pour cela que je demande des precisions sur le "a quoi ca sert"
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin:
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Range("O1:U1")) Is Nothing And Range("P3") = "Faux" Then
Target.Select
Application.EnableEvents = False
Target = ""
Retour = MsgBox("Saisir une date entre le premier jour et le dernier jour de l'année scolaire", 48)
End If
fin:
Application.EnableEvents = True
End Sub
Pour des raisons de présentation j'ai fusionné les cases o1 a u1. Dans le code de page il ne voulait pas prendre p1. Donc j'ai mis o1:u1 et ca fonctionne.
donc c'est un tableau qui calcule les moyennes de mes élèves : moyenne annuelle et moyenne par trimestre. Ma macro sert à détecté les fautes de saisies des dates de devoirs et donc de bien calculer les moyennes par trimestre.
donc c'est un tableau qui calcule les moyennes de mes élèves : moyenne annuelle et moyenne par trimestre. Ma macro sert à détecté les fautes de saisies des dates de devoirs et donc de bien calculer les moyennes par trimestre.
Re,
Ma macro sert à détecté les fautes de saisies des dates de devoirs et donc de bien calculer les moyennes par trimestre.
Oui, tout a fait Thierry, je vous ai mis un exemple de code qui, comme le votre, n'est pas suffisant pour controler les cellules
Vous pouvez mettre votre fichier a dispo sans donnees confidentielles car je ne comprends pas tout
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Ma macro sert à détecté les fautes de saisies des dates de devoirs et donc de bien calculer les moyennes par trimestre.
Oui, tout a fait Thierry, je vous ai mis un exemple de code qui, comme le votre, n'est pas suffisant pour controler les cellules
Vous pouvez mettre votre fichier a dispo sans donnees confidentielles car je ne comprends pas tout
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Bonsoir
Voilà
https://www.cjoint.com/c/GAwuPPE4btD
Merci.
Voilà
https://www.cjoint.com/c/GAwuPPE4btD
Merci.
Bonjour,
Une facon de voir pour votre fichier. Doit y avoir petite confusion Trimestre/Semestre!!!
Vous avez teste rajout intero ??
https://www.cjoint.com/c/GAxhQg42Zxf
Une facon de voir pour votre fichier. Doit y avoir petite confusion Trimestre/Semestre!!!
Vous avez teste rajout intero ??
https://www.cjoint.com/c/GAxhQg42Zxf
Re,
Le fait que vous effaciez la zone du premier devoir seme la pagaille pour un rajout(je peux palier a cet anomalie) et votre code pour O1 n'ira pas pour les devoirs suivants, faudra revoir votre copie (pas mal pour un "enseignent")
D'ailleur, pourquoi effacez vous le premier devoir?
Autre question, un devoir par trimestre ou plus ?
Le fait que vous effaciez la zone du premier devoir seme la pagaille pour un rajout(je peux palier a cet anomalie) et votre code pour O1 n'ira pas pour les devoirs suivants, faudra revoir votre copie (pas mal pour un "enseignent")
D'ailleur, pourquoi effacez vous le premier devoir?
Autre question, un devoir par trimestre ou plus ?