Lancer une macro lorsque une cellule contient une valeur précise

Résolu

Valeur
Macro

roouumm Messages postés 7 Statut Membre -
roouumm Messages postés 7 Statut Membre - 7 févr. 2017 à 23:14

Bonjour,

J'ai besoins de votre aide!

Est il possible de lancer une macro lorsuq'une cellule contient une valeur précise?

Je vous explique mon cas:
Dans une feuille j'aimerais lancer une macro (Ajouter) lorsque la cellule L3 contient la valeur "Valider" ou bien lancer une macro (effacer) lorsque cette même cellule contient "annuler"

Merci d'avance pour votre aide

Afficher la suite

A voir également:

Déclencher une macro en fonction de la valeur d'une cellule
Fonction si et - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
Excel : Remplir une cellule en fonction d'une autre ✓ - Forum Excel

2 réponses

Réponse 1 / 2

michel_m Messages postés 18903 Statut Contributeur 3 317

Bonjour

comment est formé valider - effacer dans la cellule L3: résultat de formules saisies, liste de validation..... ?

roouumm Messages postés 7 Statut Membre

Annuler et valider sont renseignés à l'aide d'une douchette (lecteur de code barre)
C'est du format standard

michel_m Messages postés 18903 Statut Contributeur 3 317 > roouumm Messages postés 7 Statut Membre

excuse moi mais c'est ta douchette qui écrit directement valider ou effacer dans la cellule ?

roouumm Messages postés 7 Statut Membre

Oui exactement

michel_m Messages postés 18903 Statut Contributeur 3 317 > roouumm Messages postés 7 Statut Membre

merci, je regarde dans 2 ou 3 heures

roouumm Messages postés 7 Statut Membre > michel_m Messages postés 18903 Statut Contributeur

MErci :)

Réponse 2 / 2

michel_m Messages postés 18903 Statut Contributeur 3 317

et voilà:
en validant valider ou effacer dans L3

Option Explicit
'dans le module feuille concerné
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$L$3" Then
        If LCase(Target) = "valider" Then Call validez
        If LCase(Target) = "effacer" Then Call effacez
    End If
End Sub
'----------------------------------------------
'dans  un module standard
Sub validez()
    MsgBox "Validation"
End Sub

Sub effacez()
    MsgBox "effacement"
End Sub

Michel

roouumm Messages postés 7 Statut Membre

Merci ! Je teste cela ce soir et te dis le resultat

roouumm Messages postés 7 Statut Membre

super merci beaucoup!! ça marche parfaitement bien !

Discussions similaires

rechercher texte dans colonne puis afficher une cellule

Lien cellule dans pied de page

Formule Excel : "SI" une cellule contient un mot, alors ?

Exécuter une macro lorsque la valeur d'une cellule change.

Conversion chiffre en lettres excel 2016

chercher une valeur dans une colonne précise

Votre réponse

Discussions similaires