interprétation littéraire

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Range("a3:e100")) Is Nothing Then UserForm1.Show
End Sub

Si l'intersection entre la cellule (sur laquelle je double-clique)
et la plage A3:E100 n'est pas vide, alors veuillez afficher mon UserForm.

Serge


"dadda" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 1690c01c44805$a10df7a0$a301280a@phx.gbl...
Bonsoir ;

Souvent pour comprendre une expression il faut savoir la
lire. Est-ce que quelqu'un peut avoir l'amabilité de me
dire comment peut-on "lire littérairement" cette
expression :
"If Not Intersect(Target, Range("a3:e100")) Is Nothing
Then UserForm1.Show"
end if
Merci

bonsoir,

si je ne m'abuse :

"If Not Intersect(Target, Range("a3:e100")) Is Nothing
si il n'est pas vrai que

l'intersection de la plage "target"
( probablement un cellule retournée
par un quelquechose_change )
avec la plage "A3:E1OO"

n'est pas vide

alors

Then UserForm1.Show"

afficher ( et donc donnez le focus à )
un userform nommé (avec goût) UserForm1

end if

sinon rien ...

c'est à dire si la plage Target possède au moins une cellule dans "A3:E100"
afficher le formulaire prévu ...

humberto B wrote:

bonsoir,

n'est pas vide
Non : EST VIDE

( j'avais oublié la négation du haut ...)

:o(((

Bonjour,

"If Not Intersect(Target, Range("a3:e100")) Is Nothing

Not (Non)

Tester le contraire de la condition écrite.

Intersect:

s'apparente à l'intersection logique de la théorie des ensembles en
mathématique. Recherche d'un point commun entre deux plages de feuille
de calcul.

Target (cible)

C'est généralement le paramètre qui désigne la plage en cours dans les
procédures événementielles.

Is Nothing (est rien)

Similaire à n'existe pas, ou retourne un ensemble vide

Donc:

Si le contraire (Not) de l'intersection (Intersect) de la plage en
cours et de la plage "a3:e100" n'existe pas

ou en rephrasant quelque peu

si l'union (contraire de l'intersection), n'existe pas

Donc :

Si la plage en cours n'est pas dans la plage "a3:e100", afficher
l'UserForm1