Executer une macro sans bouton
Résolu
Aurelie
-
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
Vaucluse Messages postés 26496 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Executer une macro sans bouton
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment faire une capture d'écran sur un samsung sans bouton ? - Guide
- Réinitialiser chromecast sans bouton - Guide
- Bouton reinitialisation pc - Guide
- Hard reset samsung sans bouton home - Guide
6 réponses
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
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question