Discussion :

[Anzoletto]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

[Igloobel]

Bonjour,

... 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 !

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Anzoletto]

A force d'essayer j'ai tenté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.