Vérifier l'identité de deux variables Range

Bonjour,

N'y a-t-il que des moyens indirects (comparer les propriétés) pour vérifier l'identité de deux variables Range ou plus généralement Objet?

J'écrirais la chose comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Test   Dim a As Range Dim b As Range   Set a = Range("A1") Set b = Range("A1")   If a Is b Then MsgBox """a"" se réfère à la même cellule que ""b"""   End Sub

---

mais la condition ne se remplit pas.

Cordialement

Bonjour
a et b sont deux variables distinctes, même si elle se réfèrent au même objet. a n'EST donc pas b.
L'égalité de deux objets se fait par utilisation du signe d'égalité (=) et non par utilisation de Is

NB : je saisis cette occasion pour montrer (à ce propos) combien il est important de ne jamais utiliser les "largesses" de VBA (les propriétés utilisées par défaut).
Il y a très récemment eu une discussion à ce sujet et un exemple avait été donné. En voilà un autre très criant :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim a As Range, b As Range Set a = Range("A1") Set b = Range("B1") If a = b Then MsgBox "oui" Else MsgBox "non" End Sub

---

les objets a et b n'étant pas les mêmes, "non" s'affichera ... SAUF SI ... sauf si le contenu des cellules A1 et B1 est par malheur le même, car VBA, dans sa grande volonté de se montrer "bon" (et finalement tellement "faux-ami") pensera qu'on a parlé du contenu par défaut !
EDIT : et ce sera encore pire dans d'autres cas. Prenons par exemple celui des boutons de commande -->> imaginons que a en soit un --->> en le "lisant" que a, notre "ami le généreux" VBA se substituera à nous pour décider que nous voulons utiliser sa valeur par défaut, qui est .... une booléenne.
Et en comparant a et b (si deux boutons de commande) on trouvera une égalité du seul fait de l'égalité de leur état. ;)

Bonjour

:plusser: unparia

Heureusement pour l'auteur de la discussion, tu n'as pas poussé le vice avec le mélange des genres entre .Value et .Text ... et que tu as tout simplement parlé de "contenu" sans expliciter si c'est le contenu affiché ou le contenu présent dans la barre de formule

:aie:


Pour en revenir à la problématique initiale, tu as mis le doigts sur la bonne méthodologie : utiliser une propriété de ces objets pour les comparer

des exemples en vrac :

- l'adresse de ces objets range (attention à ne pas oublier de vérifier le .Parent)
- l'intersection de ces deux objets range (attention à le croiser avec le .Cells.Count pour que ça soit conforme)
- etc..

Bonjour joe.levrai

J'y avais également pensé, mais relisons la demande :

Citation:

---

pour vérifier l'identité de deux variables Range ou plus généralement Objet?

---

(on n'est à ce train-là pas sortis de l'auberge des expressions conditionnelles selon le type d'objet) ...;)

C'est certes fastidieux, mais possible :

1) lister tous les objets qu'il souhaite pouvoir comparer (oui faut savoir se dire qu'on pourra pas TOUT tester puisque les combinaisons sont infinies avec les objets externes)
2) pour chacun des objet : trouver la méthode de comparaison

avec ça, une petite function dans laquelle on envoie les deux objets et qui retournera un variant
un select case pour identifier leur type (?)
on fait la comparaison
dans le case Else : on renvoie un String avec pour message "Objet non supporté"
dans les autres case : on renvoie un Booléen

et dans la procédure appelante, on teste le type de retour avant d'agir ?

Ouais ...
On peut "remercier" Microsoft de nous conduire à de telles usines au prétexte de nous "faciliter la vie". :pleure:
Il aurait mieux valu imposer l'utilisation systématique des propriétés
Amitiés

Je remarque que tu voles toujours à mon secours unparia

... avec beaucoup de patience.

Merci!!! :ccool:

Edit: Pour les boutons de commande, je ne suis pas, mais je pense que ce n'est pas grave à mon niveau ;)
ReEdit: En fait, je comprends pour les boutons (d'ailleurs, ça pourrait m'être utile).
Il y a juste une petite faute de frappe: "en ne "lisant" que a" à la place de "en le "lisant" que a".

En y réfléchissant bien, les objets sans propriété Name (c'est le cas, par exemple, d'un objet Range) sont peu nombreux.
On peut dès lors tenter de s'en sortir par une fonction du genre :

Code:

---

1 2 3 4 5 6 7 8 9

Private Function meme_objet(obj1 As Object, obj2 As Object) As Boolean If TypeName(obj1) <> TypeName(obj2) Then Exit Function Select Case TypeName(obj1) Case "Range" If obj1.Address = obj2.Address Then meme_objet = True Case Else If obj1.Name = obj2.Name Then meme_objet = True End Select End Function

---

Que l'on appellerait par exemple ainsi :

Code:

---

MsgBox meme_objet(a, b)

---

où a et b sont des variables auxquelles ont été affectés des objets.
Je n'ai pas fait l'inventaire des objets de Excel qui ne possèderaient pas de propriété Name. Je n'ai pour l'instant vu que l'objet Range (si non nommé)
Si l'on en découvrait d'autres, il faudrait alors ajouter des clauses case dans le bloc select case.

EDIT (après un café salvateur) :
Il faudrait être encore plus précis car, sait-on jamais, les deux variables pourraient finalement pointer vers des objets partageant une même propriété de même valeur, mais non situés dans le même conteneur !
Et donc --->>
modifier la ligne disant :

Code:

---

If TypeName(obj1) <> TypeName(obj2) Then Exit Function

---

en la remplaçant par :

Code:

---

If TypeName(obj1) <> TypeName(obj2) Or obj1.Parent.Name <> obj2.Parent.Name Then Exit Function

---

A Dédé6621 : juste pour satisfaire une curiosité personnelle :
Dans quelles circonstances éprouves-tu ce besoin ? (exigence, peut-être, d'un chef de projet ayant découvert qu'un projet dont il a la responsabilité a été construit "en tour de Babel" par plusieurs intervenants successifs et nécessite dépoussiérage, réorganisation et rédaction du cahier des spécifications techniques qui aurait permis d'éviter certains errements ?).
Tu n'es pas tenu de répondre à cette question, bien entendu.