Actver macros apres modif cellules

[LAURENTMCB]

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

 

[phlaurent55]

Re : Actver macros apres modif cellules

Bonjour Laurent, et bienvenue sur le forum

avec ceci:

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

à+
Philippe

 

[LAURENTMCB]

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.

 

[Pierrot93]

Re : Actver macros apres modif cellules

Bonjour,

pour alléger le code et éviter de boucler, remplace :

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 :

With Application
    .EnableEvents = False
    Range("D9,D18,D20,D22:D23").ClearContents
    .EnableEvents = True
End With

bon après midi
@+

 

[LAURENTMCB]

Re : Actver macros apres modif cellules

MERCI A TOUS

Faut-il clôturer la discussion?

 

[Pierrot93]

Re : Actver macros apres modif cellules

Bonjour Laurent

pas d'obligation ici, tu le dit et c'est très bien ainsi....

bonne journée
@+