Message d'alerte

Résolu/Fermé
eric2027 - 7 avril 2017 à 10:40
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 - 9 avril 2017 à 17:29
Bonjour le Forum,

Comment mettre un message d'alerte quand dans une cellule il y a le mot "FAUX"

J'essaye par validation des données mais ça ne marche pas, je dois faire une bêtise mais je ne vois pas laquelle.

Merci pour vos réponses

Bien cordialement

12 réponses

thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
7 avril 2017 à 11:12
Bonjour,

La validation de données ne me parait pas adaptée à ta demande. Elle envoie un message dès lors qu'une donnée saisie ne correspond pas à la liste de valeurs possibles.

L'utilisation de la mise en forme conditionnelle me parait plus adaptée. La cellule où il y a "FAUX" peut par exemple apparaître en rouge.
0
ça je l'ai déjà fait, mais le problème est que mon tableau est donné à d'autres personnes qui rentre des données et que je dois vérifier pour faire des stats, ils ne comprennent pas qu'ils faut qu'ils regardent si c'est ok ou faux d'où l'emploi d'un message qui viendrait au milieu de l'écran leur disant qu'ils doivent revérifier ce qu'ils ont rentré, un gain de temps énorme pour moi,
tu vois le problème

Bien cordialement
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
7 avril 2017 à 11:57
Bonjour,

Dans ce cas, je ne vois pas d'autre moyen que de passer par VBA.
0
mais alors là, je ne sais pas faire, beaucoup trop compliqué
je ne comprends rien à la macro
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
7 avril 2017 à 18:59
Peux-tu me donner un coup de main ?
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
7 avril 2017 à 20:42
Bonsoir,

Certes, mais fournis alors un exemple ou un extrait du classeur.
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
8 avril 2017 à 08:17
Bonjour thev

Voilà le fichier ou il y a une explication

En espérant que ce soit clair pour toi pour travaillé

Je te remercie pour la solution que tu pourras m'apporter parce que je suis prêt de l'implosion avec ces énergumènes

Le lien : https://www.cjoint.com/c/GDigpiVJxj2

Bien cordialement
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
Modifié le 8 avril 2017 à 22:53
Bonsoir,

ci-jointe proposition de solution avec contrôle d'une erreur
1- à l'ouverture du fichier
2- au changement de feuille
3- à tout changement opéré sur la feuille A

https://www.cjoint.com/c/GDiuVNbyAOw

 
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
9 avril 2017 à 08:10
Bonjour,

C'est exactement ça, et mette l'erreur sur le nom, je n'y avais pas pensé, génial, mais il met erreur que sur un seul nom, est-il possible de mettre ce message sur toute la colonne.

Quand je mets ton code sur mon fichier réel, il me beug à ce niveau,

Erreur.Top = Cells(i_lig, "C").Top

Je ne vois pas pourquoi, est ce qu'il se met en conflit avec les autres macro, je ne sais pas parce que je ne connais rien au macro
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
9 avril 2017 à 09:35
Bonjour,

mais il met erreur que sur un seul nom, est-il possible de mettre ce message sur toute la colonne.

Non. En fait, il met l'alerte sur le nom correspondant à la première ligne en erreur. Si cette ligne est corrigée, il mettra l'alerte ou non sur la ligne suivante éventuellement en erreur.

Quand je mets ton code sur mon fichier réel, il me beug à ce niveau,
Erreur.Top = Cells(i_lig, "C").Top
--
Normal car l'alerte est liée à un contrôle ActiveX installé sur la feuille A.
Il faut donc recopier ce contrôle ActiveX
Menu --> Développeur --> cliquer sur Mode Création
1- sélectionner le contrôle
2- le copier
3- le coller sur ta nouvelle feuille 
Dans la nouvelle feuille, Menu --> Développeur --> cliquer sur Propriétés
1-renommer le contrôle (Name)= Label1 en (Name)= Erreur
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
9 avril 2017 à 10:52
J'ai renommer la nouvelle en "eric"

Mais je ne vois pas le Label 1 et = erreur, je ne vois pas
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
9 avril 2017 à 11:38
J'ai renommer la nouvelle en "eric"
Il ne s'agit pas de la feuille mais du contrôle ActiveX copié

Le bouton Propriétés de l'onglet Développeur t'a renvoyé celles de la feuille et non celles du contrôle ActiveX copié car tu as dû perdre la sélection de ce dernier. Pour visualiser ses propriétés, il doit être sélectionné.
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6 > thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024
Modifié le 9 avril 2017 à 12:11
J'ai bien copié le contrôle ActiveX, et ça me beug toujours

Erreur.Top = Cells(i_lig, "C").Top

J'aimerais comprendre mais là, c'est le néant? c'est juste pour ma culture

Ah oui, j'essaie de changer la couleur du message mais je ne trouve pas, peux tu me dire ou cela se passe, sinon comme je te l'ai écris sur le post 12, ça fonctionne du tonnerre

Franchement, c'est trop bien, que de temps je vais gagner, c'est un truc de malade ton code
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681 > eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017
Modifié le 9 avril 2017 à 12:15
Quand tu le copies, il ne s'appelle plus "Erreur" mais "Label1".
Deux solutions :
1- le renommer en "Erreur" en affichant ses propriétés et en changeant "Label1" en "Erreur"
2- modifier le code en remplaçant "Erreur" par "Label1"
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6 > thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024
9 avril 2017 à 13:26
Quand tu le copies, il ne s'appelle plus "Erreur" mais "Label1"

Je ne sais pas de quoi tu parles, est ce que tu parles de la palette avec les horaires ?

Excuse moi mais là, déjà que je ne comprends rien aux macro, pour toi c'est limpide, parce que, la macro que m'a crée est génial de chez génial et encore je pèse cet écrit.

Peux tu être plus explicite dans tes écris, parce que moi, je suis complètement largué
0
thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681 > thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024
9 avril 2017 à 13:30
Pour changer la couleur du message, il faut aller dans les propriétés du contrôle ActiveX et jouer avec 3 paramètres :
1- "Font" pour la couleur de la police
2- "ForeColor" et "BackColor" pour le remplissage. Pour accéder à la palette de couleurs, la police doit être remise en taille 8 via le paramètre "Font"
0
eric2027 Messages postés 289 Date d'inscription vendredi 25 juin 2010 Statut Membre Dernière intervention 31 août 2017 6
9 avril 2017 à 11:04
En fin de compte, j'ai la feuille avec ton code et j'ai copié cette dernière en la renommant et ça fonctionne
Mais j'aimerais savoir et comprendre si tu pouvais me répondre sur le post 11 stp
0