Worksheet_Change sur plusieurs cellules

....mais si c'est une plage de cellule, elle me fait l'erreur suivante

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
'blablabla
end sub

AV

Merci pour ta réponse,
J'aurais préféré que l'on m'explique comment faire pour gérer la plage
complète ;)
plutot que de n'autoriser que la sélection simple!

@+
philippe

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
e%23V8k5ylFHA.3256@tk2msftngp13.phx.gbl...

....mais si c'est une plage de cellule, elle me fait l'erreur suivante

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
'blablabla
end sub

AV

plusieurs possibilités selon ce que tu veux faire:

agir pour toutes les cellules modifiées une à une:

dim cell as Range
for each Cell in Target
next Cell


sinon, la possibilité de découper colonne à colonne

dim col as Range
for each col in Target.Columns
next column


( tu vois le genre )


sinon compliquer les tests :
Target.columns.count = 1

ou alors vérifier l'intersection entre les changements et ta colonne:

dim inter as range, cell as range
set inter = intersect (columns(7),Target)
if not inter is nothing then
for each cell in inter
next cell
end if

Merci abcd !

c'est exactement ce que je cherchais :)
ça fonctionne au poil !

philippe


"abcd" <fake.email@nospam.fr> a écrit dans le message de news:
Osa3ByzlFHA.4056@TK2MSFTNGP10.phx.gbl...
plusieurs possibilités selon ce que tu veux faire:

agir pour toutes les cellules modifiées une à une:

dim cell as Range
for each Cell in Target
next Cell


sinon, la possibilité de découper colonne à colonne

dim col as Range
for each col in Target.Columns
next column


( tu vois le genre )


sinon compliquer les tests :
Target.columns.count = 1

ou alors vérifier l'intersection entre les changements et ta colonne:

dim inter as range, cell as range
set inter = intersect (columns(7),Target)
if not inter is nothing then
for each cell in inter
next cell
end if

de rien