Executer une macro sans bouton Résolu/Fermé

Question

Bonjour, 

J'essaie de lancer une macro avec exécution automatique dès qu'une cellule est modifiée.

Voici ce que j ai écrit :
  

Private Sub Worksheet_Change(ByVal Target As Range)
' Montantdemande
'     Dim Range As Integer, commentaire As String
       'Commentaire en fonction du montant
    Select Case (Range("c12"))
            Case 500 To 80000
            commentaire = "OK"
            Case Else
            commentaire = "Doit etre compris entre 500CHF et 80'000CHF"
    End Select
  
   ActiveSheet.Unprotect Password:="aaaa"
   Range("i12") = commentaire
   ActiveSheet.Protect "aaaa"


End Sub

Mais vous l'aurez compris... ça ne fonctionne pas... par contre quand je nomme ma macro et que je la joue grâce au bouton "run", elle fonctionne
Je vous remercie grandement par avance pour votre aide!
Aurélie

michel_m · Answer

Bonjour

 Le principe:S ans m'occuper de la feuille protégée

Aurelie · Answer

Merci beaucoup mais il n y a toujours rien qui se lance... je vous avoue que je ne comprends pas du tout pourquoi... je désespère de mon niveau en vba

Vaucluse · Answer

Bonjour
et salut Michel (ça roule?)
juste en aparté après test chez moi, ça ne fonctionne pas non plus mais ça fonctionne quand on remplace:
If target.address="$C$12" Then
par
 If target.Cells = Range("C12") Then

ne me demandez pas pourquoi...!
crdlmnt

Vaucluse · Answer

si vous pouvez déposer un modèle de ce que vous avez testé, macro incluse et qui ne fonctionne pas, on pourra voir chez nous (surtout chez l'ami Michel,  parce que moi et VBA...bof!)
voyez si vous pouvez déposez ici par exemple: http://mon-partage.fr
et revenez coller le lien créé sur le site
une question  idiote (mais elle est de moi, ça ne surprendra personne!): vous avez bien inscrit la macro dans le code de la feuille, pas dans un module VBA?
à vous lire

Aurelie · Answer

la question n etait pas idiote... c etait visiblement moi l'idiote!
Merci bcp à vous deux cela fonctionne désormais

Bien cordialement

Vaucluse · Answer

Pas de quoi
je passe le sujet en résolu
Bonne route
crdlmnt

Executer une macro sans bouton

6 réponses

Discussions similaires