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

2 réponses

Réponse 1 / 2
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

Bonjour

comment est formé valider - effacer dans la cellule L3: résultat de formules saisies, liste de validation..... ?
1
1. 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
  
  0
  1. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320 > roouumm Messages postés 7 Statut Membre
    
    excuse moi mais c'est ta douchette qui écrit directement valider ou effacer dans la cellule ?
    
    0
2. roouumm Messages postés 7 Statut Membre
  
  Oui exactement
  
  0
  1. michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320 > roouumm Messages postés 7 Statut Membre
    
    merci, je regarde dans 2 ou 3 heures
    
    0
  2. roouumm Messages postés 7 Statut Membre > michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention
    
    MErci :)
    
    0

michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention 3 320

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
0
roouumm Messages postés 7 Statut Membre

super merci beaucoup!! ça marche parfaitement bien !
0

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

2 réponses

Discussions similaires

Newsletters