Interdire l'éxécution de macros sur une plage de cellules
37 réponses
Pascal
Bonjour à tous qui pourrait m'aider?
J'ai un tableau Excel ("A1:R37") avec plusieurs macro qui ne doivent
s'éxcuter que sur ("D6:D37").
Comment faire pour qu'elles ne s'éxcécutent pas sur les autres plages, mais
que mes autres macros continuent de s'éxécuter sur l'intégralité du
tableau???
Cela fonctionne chez moi pour toutes les feuille de mon classeur pour la zone D6:D36 ! Tu entre la valeur, tu appuie sur "Enter" et la mise en forme se fait même en ayant la sélection qui se déplace après la validation ;-))) (Suis content, ça marche ;-))
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Dédé As Range) If Selection.Count > 1 Then Exit Sub If Not Intersect(Dédé, [D6:D36]) Is Nothing Then Select Case Dédé.Value Case Is = "" Dédé.Interior.ColorIndex = 0 Dédé.Font.ColorIndex = 0 Case Is = "Presbur" Dédé.Interior.ColorIndex = 40 Case Is = "RVEXT" Dédé.Interior.ColorIndex = 7 Case Is = "CONG" Dédé.Interior.ColorIndex = 6 Case Is = "VAC" Dédé.Interior.ColorIndex = 39 Case Is = "FORM" Dédé.Interior.ColorIndex = 35 End Select End If End Sub
Bonne continuation et à + Dédé -- Pour répondre, enlever les lettres N O S P A M
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Il fonctionne, mais pas si tu te sers de la liste déroulante de validation???
Si, si vérifie que les cellules comprenant la liste de validation sont bien en
D6:D36 et non en C6:C36 !
AV
Salut Pascal !
Essaie de copier cela dans ton ThisWorkbook !!
Cela fonctionne chez moi pour toutes les feuille de mon classeur pour la
zone D6:D36 ! Tu entre la valeur, tu appuie sur "Enter" et la mise en forme
se fait même en ayant la sélection qui se déplace après la validation ;-)))
(Suis content, ça marche ;-))
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Dédé As Range)
If Selection.Count > 1 Then Exit Sub
If Not Intersect(Dédé, [D6:D36]) Is Nothing Then
Select Case Dédé.Value
Case Is = ""
Dédé.Interior.ColorIndex = 0
Dédé.Font.ColorIndex = 0
Case Is = "Presbur"
Dédé.Interior.ColorIndex = 40
Case Is = "RVEXT"
Dédé.Interior.ColorIndex = 7
Case Is = "CONG"
Dédé.Interior.ColorIndex = 6
Case Is = "VAC"
Dédé.Interior.ColorIndex = 39
Case Is = "FORM"
Dédé.Interior.ColorIndex = 35
End Select
End If
End Sub
Bonne continuation et à +
Dédé
--
Pour répondre, enlever les lettres N O S P A M
Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Cela fonctionne chez moi pour toutes les feuille de mon classeur pour la zone D6:D36 ! Tu entre la valeur, tu appuie sur "Enter" et la mise en forme se fait même en ayant la sélection qui se déplace après la validation ;-))) (Suis content, ça marche ;-))
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Dédé As Range) If Selection.Count > 1 Then Exit Sub If Not Intersect(Dédé, [D6:D36]) Is Nothing Then Select Case Dédé.Value Case Is = "" Dédé.Interior.ColorIndex = 0 Dédé.Font.ColorIndex = 0 Case Is = "Presbur" Dédé.Interior.ColorIndex = 40 Case Is = "RVEXT" Dédé.Interior.ColorIndex = 7 Case Is = "CONG" Dédé.Interior.ColorIndex = 6 Case Is = "VAC" Dédé.Interior.ColorIndex = 39 Case Is = "FORM" Dédé.Interior.ColorIndex = 35 End Select End If End Sub
Bonne continuation et à + Dédé -- Pour répondre, enlever les lettres N O S P A M
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Heuuu les remerciements reviennent de droit à Alain !! (AV) ;-))
Salutations Dédé
-- Pour répondre, enlever les lettres N O S P A M
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1 Incrémentation chronologique ? http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3 Chiffres en lettres ? (Word et Excel) http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4 Excel : http://www.excelabo.net/ http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl http://dj.joss.free.fr/faq.htm http://perso.wanadoo.fr/frederic.sigonneau/ http://excel.1.free.fr/
"Pascal" a écrit dans le message de news:
Merci à tous, Décidement vous étes trop forts. La prochaine faut que je trouve un truc plus compliqué....
Merci encore A bientôt. Pascal
"Dédé" a écrit dans le message de news:
oupssss ben j'ai trouvé sans pour autant avoir vu le message de Pascal ....
Excuse-moi si je t'ai "piqué" ta solution mais c'est pas fait exprès !!
J'aurais vu ça à temps, j'aurais pas ôsé ...
Mais bon, je pense que le problème est enfin réglé ;-))
Salutations et à + Dédé
-- Pour répondre, enlever les lettres N O S P A M
Sites de références, Word : http://faq.ms.word.free.fr/ Barre de menu disparues ? voir ici - http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1 Incrémentation chronologique ? http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3 Chiffres en lettres ? (Word et Excel) http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4 Excel : http://www.excelabo.net/ http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl http://dj.joss.free.fr/faq.htm http://perso.wanadoo.fr/frederic.sigonneau/ http://excel.1.free.fr/
"AV" a écrit dans le message de news:bnnvlg$v9s$
Enfin la solution tu dis ???
Tu peux me dire ce que tu as changé par rapport à la proposition faite (voir
message de Pascal) ? "zz" par "Dédé" ?
Effectivement ça change tout ;-) AV
AV
n'est-ce pas pourtant ce même AV qui dit que des Einsteins, il y en a autant qu'un père brossollette peut en bénir?
Hé Diogène ! Vérifie tes notes ! La brulante (tremblante) actualité religieuse te fais emmeler les crayons! J'ai dit (Hugh !) : "On est toujours le cancre de qqu'un et l'Enstein d'un autre !" Hugh !
AV
n'est-ce pas pourtant ce même AV qui dit que des Einsteins, il y en a autant
qu'un père brossollette peut en bénir?
Hé Diogène ! Vérifie tes notes !
La brulante (tremblante) actualité religieuse te fais emmeler les crayons!
J'ai dit (Hugh !) : "On est toujours le cancre de qqu'un et l'Enstein d'un autre
!"
Hugh !
n'est-ce pas pourtant ce même AV qui dit que des Einsteins, il y en a autant qu'un père brossollette peut en bénir?
Hé Diogène ! Vérifie tes notes ! La brulante (tremblante) actualité religieuse te fais emmeler les crayons! J'ai dit (Hugh !) : "On est toujours le cancre de qqu'un et l'Enstein d'un autre !" Hugh !
