Microsoft 365 condition qui ne fonctionne plus avec Range("q7", Range("q1048576").End(xlUp)))

[Usine à gaz]

Bonjour à toutes et à tous,

Tjrs dans mon fichier que je tente d'améliorer, j'ai modifié une condition :
If Not Application.Intersect(Target, Range("q7:q100000")) Is Nothing Then
comme ceci :
If Not Application.Intersect(Target, Range("q7", Range("q1048576").End(xlUp))) Is Nothing Then
et ça ne fonctionne plus

Auriez-vous la bonne correction ?
Un grand merci encore une fois
Amicalement,
lionel,

 

[chris]

Bonjour

et ça ne fonctionne plus....

Et plus précisément ????

 

[patricktoulon]

re
Bonjour arthour973
purré c'est dur a rentrer hein!!!

LE ".PARENT" !!!!!!

with sheets("toto")
If Not Application.Intersect(Target, .Range("q7", .Range("q1048576").End(xlUp))) Is Nothing Then
'...
'...
end with

ou encore

with target.parent
If Not Application.Intersect(Target, .Range("q7", .Range("q1048576").End(xlUp))) Is Nothing Then
'...
'...
end with

et de surcroit je remplacerais .Range("q1048576") par .Range("q" & rows.count) histoire d’être compatible excel inf a 2007

 

[Usine à gaz]

Bonjour Pariki,
Merci à toi
OUI c'est dur LOl
lionel,