Macro à l'entrée sur une cellule

Bonjour j'ai créé un fichier excel avec une macro VBA qui se lance lors de la validation d'une plage de cellules je l'ai installé sur la feuille
et non sur le module comme j'avais lu dans d'autres forums mais je n'arrive pas à ce que cela fonctionne sur une autre plage de la même feuille

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range)   If Intersect(Target, Range("N2:N37")) Is Nothing Then Exit Sub   Call Saisie   End Sub

---

j'aurai voulu que cela fonctionne en T2:T37 puis en Z2:Z37 puis en AF2:AF37 ainsi toutes les six colonnes

Merci d'une aide éventuelle

Citation:

---

Envoyé par Anzoletto

je n'arrive pas à ce que cela fonctionne sur une autre plage de la même feuille

---

Il suffit de rajouter un second Intersect Is Nothing lié au premier par un And

Bonjour,

Citation:

---

Envoyé par Anzoletto

... j'aurai voulu que cela fonctionne en T2:T37 puis en Z2:Z37 puis en AF2:AF37 ainsi toutes les six colonnes ...

---

Et tu t'arrête quand ? parce ce que il y a plus de 16 000 colonnes !

Bonjour
Ma manière de te mettre sur les rails et te laisser comprendre et utiliser :

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column >= 14 And Target.Row > 1 And Target.Row < 38 Then If (Target.Column - 14) Mod 6 = 0 Then MsgBox "bingo" End If End Sub

---

A force d'essayer j'ai tenté

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("N2:N36")) Is Nothing Then Saisie End If If Not Application.Intersect(Target, Range("T2:T36")) Is Nothing Then Saisie End If If Not Application.Intersect(Target, Range("Z2:Z36")) Is Nothing Then Saisie End If If Not Application.Intersect(Target, Range("AF2:AF36")) Is Nothing Then Saisie End If   End Sub

---

et cela fonctionne
par contre je vais essayer ce que vous m'avez proposé et je vous remercie d'avoir essayé de résoudre mon problème.