Explication de code If Not Intersect .. is Nothing

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

---

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.

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

Bonjour,

Exact ... :ccool:
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.