[XL-2003] Explication de code If Not Intersect .. is Nothing

[Alfred23]

Bonjour à tous,

Est-ce que l'un d'entre vous pourrait m'expliquer le code suivant ? Je ne comprends pas la double négation... (entre autre)

Merci d'avance.

Cordialement,
Alfred

Code :

1
2
If Not Intersect(Target, Range("A3", "A" & Range("A65536").End(xlUp).Row)) Is Nothing Then
If Target.Count > 1 Then Exit Sub

[gFZT82]

Bonjour,

Code :

If Not Intersect(Target, Range("A3", "A" & Range("A65536").End(xlUp).Row)) Is Nothing Then

Un objet « Not Nothing » est un objet qui existe (puisqu’il est non-rien).
Tu peux donc traduire ce code par : « si la plage sélectionnée (Target) se trouve dans la plage A3:An (avec n, dernière ligne renseignée de la colonne A), alors … »

Code :

If Target.Count > 1 Then Exit Sub

Si le nombre de cellules sélectionnées est supérieur à 1, alors sors de la procédure.

Cordialement.

[Alfred23]

Bonjour,

Merci beaucoup gFZT82 !

Est-ce que c'est la partie de code :

Code :

.End(xlUp).Row

qui indique la dernière ligne renseignée de la colonne ?

Cordialement,
Alfred

[gFZT82]

Bonjour,

Exact ...
Traduction : je pars de la dernière ligne du classeur, je remonte jusqu'à trouver une cellule renseignée et je retourne le numéro de ligne.

Cordialement.