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

Usine à gaz · 29 Décembre 2019

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 · 29 Décembre 2019

Bonjour

arthour973 à dit:
et ça ne fonctionne plus....

Et plus précisément ????

patricktoulon · 29 Décembre 2019

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

LE ".PARENT" !!!!!!

VB:

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

ou encore

VB:

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 · 29 Décembre 2019

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

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

Usine à gaz

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires

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

Usine à gaz

XLDnaute Barbatruc

chris

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency