manip worksheet change simple

Bonjour,

Plusieurs d'entre vous m'ont conseillé d'utiliser une manip "worksheet change" mais je ne sais toujours pas comment ça s'écrit.

j'ai un tableau sous Excel qui va de G9 à J13 et je voudrais faire les choses suivantes :
- si on efface une cellule de la colonne G je veux que les cellules de même ligne en colonne H, I et J soient automatiquement effacées
- si on écrit "Oui" en colonne G, je veux que la valeur de la cellule de même ligne en colonne H soit égale à 0

Pouvez-vous m'aider ?

Merci beaucoup,

Emily.

Code:

---

1 2 3

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   End Sub

---

A placer dans le module ThisWorkbook
Tu places ton code à l'intérieur

ok je veux bien mais comment j'écris mes conditions du type "si une cellule entre G9 et G13 a été modifiée" :?

Propose un code on verra pour faire des corrections éventuelles.
Maintenant si tu n'y connais rien, il faut prendre les choses à la base et commencer par apprendre par soi-même pour progresser

Je viens de trouver la solution ... :D ... par contre ça ralentit beaucoup les autres macro que je fais tourner sur la même feuille.

en tout cas merci !

pour les autre macro tu peu commencer tes macro par

Code:

---

Application.EnableEvents = False

---

et fini par

Code:

---

Application.EnableEvents = True

---

Cela désactivera le worksheet change

Montre nous ton code Workbook_SheetChange
Si tu test la zone ca ne devrais pas poser trop de problème ou ralentir ton code a moins que tes macro modifi la plage en question

bonjour le fil le forum une solution

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("g9:g13")) Is Nothing Then If Target = "" Then Target.Offset(0, 1) = "": Target.Offset(0, 2) = "": Target.Offset(0, 3) = "" If Target = "OUI" Then Target.Offset(0, 1) = 0 End If End Sub

---

pour le ralentissement si tu travailles pas sur ces cellules il y a peut etre un autre pb... il faudrait voir ton code!!!