Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Actver macros apres modif cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion LAURENTMCB
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

LAURENTMCB

Guest
Bonjour !

Je souhaite pouvoir exécuter des macros au changements de valeur de 2 cellules.

Concrètement, modifier la cellule D7 active la macro EFFACER et la modification de la cellule D23 active la macro EFFACER.

J'arrive à activer une macro. mais pas les deux

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D23")) Is Nothing Then Exit Sub
Call VALIDER
End Sub

Cela me dépasse un peu... D'où mon appel à l'aide

Merci d'avance
 
Trier par date Trier par votes
Re : Actver macros apres modif cellules

Bonjour Laurent, et bienvenue sur le forum

avec ceci:
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D7,D23")) Is Nothing Then Exit Sub
Call VALIDER
End Sub
à+
Philippe
 
Vote positif 0 Vote négatif
Re : Actver macros apres modif cellules

Je suis parvenu à résoudre mon problème avec un goto et en insérant ma 2'eme macro .


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D23")) Is Nothing Then GoTo suite
Call VALIDER
suite:
If Intersect(Target, Range("D7")) Is Nothing Then Exit Sub
' macro EFFACER
Sheets("FEUIL1").Unprotect ("4500") ' feuille non protegee a present

Range("D9").Select
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
Range("D20").Select
Selection.ClearContents
Range("D22").Select
Selection.ClearContents
Range("D23").Select
Selection.ClearContents
Sheets("FEUIL1").Protect ("4500") ' feuille a nouveau protegee


End Sub

merci pour ta réponse hyper rapide Philippe.
 
Vote positif 0 Vote négatif
Re : Actver macros apres modif cellules

Bonjour,

pour alléger le code et éviter de boucler, remplace :
Code: 
Range("D9").Select
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
Range("D20").Select
Selection.ClearContents
Range("D22").Select
Selection.ClearContents
Range("D23").Select
Selection.ClearContents
par :
Code: 
With Application
    .EnableEvents = False
    Range("D9,D18,D20,D22:D23").ClearContents
    .EnableEvents = True
End With

bon après midi
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
508
job75
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
455
un internaute
U
M
  • Résolu(e)
XL 2021 Problème d'activation d'une macro pour transférer des valeurs d'une feuille 1 à une feuille 2
Réponses
3
Affichages
417
MATLEA
M
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
816
thunder23
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
327
PRy
P
S
  • Résolu(e)
Microsoft 365 Déclenchement macro en série suite à cellule fusionnées
Réponses
3
Affichages
534
spike29
S
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
671
Lu76Fer
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
677
sebastien176
S
E
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change ne fonctionne pas
Réponses
5
Affichages
631
Englobe
E
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
795
Julien_B
J
Y
  • Résolu(e)
XL 2013 Macro si changement dans case à cocher
Réponses
6
Affichages
689
Yvan1
Y
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
D
  • Question Question
XL pour MAC [RESOLU]Cacher ou afficher colonnes, sauf colonne selectionné
Réponses
9
Affichages
1 K
Dudy
D
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
838
oguruma
U
  • Question Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
729
un internaute
U
L
  • Question Question
Microsoft 365 Aide pour code protection cellules non vides à la fermeture
2
Réponses
22
Affichages
1 K
crocrocro
C
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
460
Gégé-45550
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
923
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…