[VBA] Besoin d'aide
Ykarul
-
Msylvain Messages postés 11 Statut Membre -
Msylvain Messages postés 11 Statut Membre -
Bonjour,
Je débute en VBA (en fait j'apprend tout seul) et j'aurais donc besoin de votre aide pour mon petit problème :
Lorsque je rempli la cellule "B15", cela entraine le remplissage d'autres cellules, dont la cellule "F16" sur laquelle une formule renvoi le bouléen VRAI ou FAUX.
Malgré des tonnes de recherche sur internet, je n'arrive pas a faire en sorte que:
Une fois la cellule B15 renseignée, si F16 renvoie FAUX, alors B15 est effacée (le contenu), et un message d'erreur s'affiche.
Ca parait pourtant assez simple mais j'ai toujour un bug quelquepart....
Je débute en VBA (en fait j'apprend tout seul) et j'aurais donc besoin de votre aide pour mon petit problème :
Lorsque je rempli la cellule "B15", cela entraine le remplissage d'autres cellules, dont la cellule "F16" sur laquelle une formule renvoi le bouléen VRAI ou FAUX.
Malgré des tonnes de recherche sur internet, je n'arrive pas a faire en sorte que:
Une fois la cellule B15 renseignée, si F16 renvoie FAUX, alors B15 est effacée (le contenu), et un message d'erreur s'affiche.
Ca parait pourtant assez simple mais j'ai toujour un bug quelquepart....
7 réponses
Bonjour,
pour ton problème essais:
Sylvain
pour ton problème essais:
If Range("F16") = "FAUX"
Sheets("ta feuille").Select ' tu met le nom de ta feuille
Application.ActiveSheet.Range("B15").ClearContents
Msgbox("message d'erreur") 'tu met le message que tu souhaite
End If
Sylvain
En fait j'ai déja réussi a faire ca en ajoutant ce code à mon bouton final de validation, cependant j'aimerais que cette macro se déclenche juste après la saisie de la case B15 (si cette saisie a renvoyé FAUX sur F16, donc).
Comment je dois procéder pour cela?
Comment je dois procéder pour cela?
il faut que tu gere la gestion d'evenement sur ta feuille : voilà un très bon tuto qui te permettra de faire ce que tu souhaite.
il te suffira de colle le code Msylvain dans l'evenement "change"
http://silkyroad.developpez.com/VBA/EvenementsFeuille/
il te suffira de colle le code Msylvain dans l'evenement "change"
http://silkyroad.developpez.com/VBA/EvenementsFeuille/
Je ne suis pas pro en VBA mais si tu place ce bout de code juste derrière le moment où dans ton code la cellule se remplit alors si c'est faux cela déclenchera le IF et le message apparaîtra.
En espérant être clair ^^
Sylvain
En espérant être clair ^^
Sylvain
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bon, ba avec "FAUX" ca ne marche pas. J'ai mis FAUX (sans les "), et la ca marche, sauf si c'est N/A qui apparait (au lieu de vrai ou faux, quand la comparaison n'est pas possible), ce qui me lance le débogage....
