Evenement change créé boucle sans fin

Question

Je suis en train de réaliser une petite macro pour mon fichier Excel. Celle-ci doit faire deux choses : Si l'utilisateur sélectionne une valeur dans la case F8 (soit F8&lt;&gt;""), alors les cases F9 à F20 doivent se vider. Si l'utilisateur choisi "No surface treatment/Coating" dans la case F14, les cases F16, F18 et F19 doivent avoir cette même valeur "No surface treatment/Coating" Or, avec le code que j'avais fait, après avoir choisi No surface treatment/Coating" dans la case F14, il fallait cliquer sur une autre case pour que cela se mette à jour (mis à part ça, ça fonctionnait). J'ai donc changé l'evenement de "Selection change" à "Change". Mais depuis, j'ai un soucis d'espace de stockage qui me fait beuguer le tout (mais avant que le beug se produise, on peut voir que l'action fonctionne. Voici ce code : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("F8").Address Then Range("F9:F20").Value = "" End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Range("F14").Value = "No Surface Treatment/Coating" Then Range("F16,F18,F20").Value = "No Surface Treatment/Coating" End If End Sub Je pense donc que je créé une boucle sans fin quelque part. Quelqu'un aurait-il une idée comment résoudre cela? Merci par avance! Elise...

h2so4 · Accepted Answer

Essaie ceci, arreter les procédures événementielle le temps de l'exécution de la procédure change Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = Range("F8").Address Then Range("F9:F20").Value = "" End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) application.enableevents=false If Range("F14").Value = "No Surface Treatment/Coating" Then Range("F16,F18,F20").Value = "No Surface Treatment/Coating" End If application.enableevents=true End Sub...