calendrier colonne

tototiti2008

XLDnaute Barbatruc

• 7 Avril 2011

• #2

Re : calendrier colonne

Bonjour terpick,

à tester

Code:

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Address = "$E$7" Then

 

Vote positif 0 Vote négatif

T

terpick

XLDnaute Occasionnel

• 7 Avril 2011

• #3

Re : calendrier colonne

Ca fonctionne très bien, merci beaucoup!

Par contre, je crois comprendre sans vraiment compredre.

Si pour vous ce n'est pas trop long, pourriez-vous m'expliquer cette ligne svp?

Cordialement

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 7 Avril 2011

• #4

Re : calendrier colonne

Bonjour à tous,

ou alors avec:

Code:

If Not Intersect(Target, Range("A1:A10", "E7")) Is Nothing Then

à+
Philippe

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Avril 2011

• #5

Re : calendrier colonne

Re,

Application.Intersect permet de renvoyer les cellules communes de plusieurs plages de cellules (Range)
Si aucune cellule commune, Application.Intersect renvoie Nothing

Application.Intersect(Target, Range("A1:A10"))

Cliquez pour agrandir...

renvoie donc la cellule sur laquelle on a double cliqué si elle appartient à A1:A10, ou Nothing si on a double cliqué ailleurs

Not Application.Intersect(Target, Range("A1:A10")) Is Nothing

Cliquez pour agrandir...

renverra donc True si on a double cliqué dans la plage, et false si on l'a fait en dehors

En espérant que ce soit plus clair 🙂

Edit : Bonjour phLaurent, en effet, plus court

 

Vote positif 0 Vote négatif

T

terpick

XLDnaute Occasionnel

• 7 Avril 2011

• #6

Re : calendrier colonne

Merci à vous deux !!!

J'espère que c'est acqui maintenant pour moi.

A+

 

Vote positif 0 Vote négatif