Discussion :

[jayorange]

Bonjour à tous

j'aimerais savoir si la procédure worksheet_change peut s'appliquer uniquement sur une plage de cellule déterminée et non sur chaque cellule de la feuille

les changements sont susceptibles d'être effectués sur la plage by2 à by235 et non ailleurs

Merci pour vos réponses

[Nad-Dan]

Bonjour,

Comme il s'agit de VBA, je pense que tu n'es pas sur le bon forum pour poser ta question mais je vais y répondre tout de même.

Utilise ce code :

Code :

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

1
2
3
4
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("by2:by235")) Is Nothing Then
......ton action....
End Sub

Amicalement

Dan

[Gorfael]

Salut
La macro se lance sur tout changement sur la globalité de la feuille et on ne peut pas le modifier, sauf en refaisant Excel.

Mais tu peux ne traiter qu'une partie de la feuille
if intersect (traget, range("BY2:BY235") is nothing then exit sub
si aucune cellule modifiée (target) n'appartient à la plage 'BY2:BY235 arrêter la macro (sortir)

C'est le plus simple, mais ça ne prend pas compte correctement des modifications mutiples, comme une modification de la plage A2:By2 (effacement des valeurs, coller) une autre solution :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage_T As Range
If Intersect(Target, Range("By2:BY235")) Is Nothing Then Exit Sub
Set Plage_T = Intersect(Target, Range("By2:BY235"))
 
'traitement Plage_T
 
End Sub

Dans cette macro, le traitement ne doit plus se faire sur Target, mais sur Plage_T qui ne contient que les cellules de BY2:BY235 qui ont été modifiées
A+

[jayorange]

Merci les gars! je vous tiens au courant et bravo pour votre rapidité, j'apprécie

[jayorange]

En fait, je veux travailler sur cette plage de cellule car si par exemple, BY14 change, la cellule d'à côté doit être modifée, (BZ14)

J'ai crée une fonction qui fonctionne et qui boucle sur toute la plage BY2 à BY235
j'aimerais éviter la boucle à savoir que dès lors qu'il y a un changement sur la cellule BY233 par exemple, la cellule BZ233 doit être modifée

j'ai pensé à target.address par exemple mais bon...

[Nad-Dan]

re,

Essaye :

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("by2:by235")) Is Nothing Then
Target.Offset(0, 1) = .....
End If
End Sub

Remplace les .... par ce que tu dois mettre dans la cellule BZ

Amicalement

Dan

[jayorange]

ok merci, je vais voir mais quel est le rôle de la propriété Offset exactement? le décalage d'un cellule? de son contenu?