pointer l'objet défini par le bloc with

Bonjour à tous,

j'ai écrit ce code qui fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub tata (ligne As Integer, colonne As Integer)   With Feuil1.Cells(ligne, colonne) .Value = "toto" .Offset(0, 1) = "titi" End With   ecritureRaccourci Feuil1.Cells(ligne, colonne)   End Sub

---

en sachant que

Code:

---

Sub ecritureRaccourci(ByRef Target As Range)

---

Ma demande est la suivante:
j'aimerais ne pas avoir à réécrire Feuil1.Cells(ligne,colonne) lors de l'appel de ecritureRaccourci

en général je triche en utilisant .value quand j'ai besoin de la valeur des cellules définies par le bloc with.

Mon code fonctionne avec le premier code présenté, j'aimerais juste améliorer mon écriture.

Merci d'avance!

Bonjour,
Il suffirait de déclarer une variable objet de type Range et d'utiliser celle-ci

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub tata(ligne As Integer, colonne As Integer) Dim rng As Range Set rng = Feuil1.Cells(ligne, colonne) With rng .Value = "toto" .Offset(0, 1) = "titi" End With ecritureRaccourci rng Set rng = Nothing End Sub

---

Petite remarque : Le nombre de lignes d'une feuille dépassant 32767, il serait préférable de travailler avec une variable ligne de type long et pourquoi ne pas utiliser déjà un argument de type Range en lieu et place de ligne et colonne. Vous pourriez ainsi déclarer d'emblée la feuille

Hello,

Sauf erreur de ma part, tu peux également imbriquer les blocs With:

Code:

---

1 2 3 4 5 6 7 8 9

Sub tata (ligne As Integer, colonne As Integer) With Feuil1 With .Cells(ligne, colonne) .Value = "toto" .Offset(0, 1) = "titi" End With ecritureRaccourci .Cells(ligne, colonne) End With End Sub

---

Bonjour Philippe et deedolith, merci pour vos réponses.

Philippe: ligne ne dépassera jamais la valeur 50, c'est pourquoi je n'ai pas eu de problèmes en utilisant un entier, mais je note ta remarque pour mes prochains codes.
j'avais pensé à transmettre un Range en argument de ma procédure, mais c'était plus pratique de garder ligne et colonne pour le reste du code. Je n'avais pas pensé à déclarer le Range directement dans la procédure. Je vais faire comme ça.


deedolith: merci pour cette solution, mais ce n'était pas l'optimisation que je cherchais.


J'imagine que le coeur de ma question n'est pas possible en vba. Merci à tous les deux!

Citation:

---

Envoyé par Cap'taineSamSam

J'imagine que le coeur de ma question n'est pas possible en vba. Merci à tous les deux!

---

Effectivement, le bloc With étant un raccourcit anonyme vers une référence, il n'est pas possible de récupérer cette dernière a l'intérieur du bloc.

re
Bonjour

Citation:

---

Effectivement, le bloc With étant un raccourcit anonyme vers une référence, il n'est pas possible de récupérer cette dernière a l'intérieur du bloc

---

qu'est que j'entends là ????:koi:

.cells(x,y) étant l'object du with est un range par défaut dans vba

et l'object .cells est un membre de range (entre autre)et "aussi bizarrement que cela puisse parraitre .cells renvoie un range

pour la simple et bonne raison que .cells est une collection

alors comment simplifier ton appel à ecritureRaccourci

et bien c'est simple

l'appel a ecritureRaccourci tu le met dans le bloc with

et tu envoie la collection tout court elle renverra une seule cellule bien entendu

démonstration de mes dires

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub tata(ligne As Integer, colonne As Integer) With Feuil1   MsgBox TypeName(.Cells(ligne, colonne)) 'juste pour vérifier mes dires   With .Cells(ligne, colonne) .Value = "toto" .Offset(0, 1) = "titi"   ecritureRaccourci .Cells 'l'appel dans le bloc with End With End With End Sub   Sub ecritureRaccourci(rng) 'ici même si l'argument n'est pas typé le type est bien un range MsgBox "type :" & TypeName(rng) & " : " & rng.Address End Sub   Sub test() tata 8, 5 End Sub

---

Le raccourci est anonyme, pas l'objet lui même.
De plus, le raccourci est typé.

Attention à ne pas confondre.

Bonsoir patmeziere,

.Cells .... c'est exactement ce que je cherchais. Merci beaucoup!

Sam

Bonjour deedolith
je ne f"ait que répondre a une affirmation erronée
je te cite

Citation:

---

Effectivement, le bloc With étant un raccourcit anonyme vers une référence, il n'est pas possible de récupérer cette dernière a l'intérieur du bloc

---

et bien c'est faux
là en l’occurrence pour récupérer l'object c'est l'object collection .cells tout court qui renvoie un range
démonstration

Code:

---

1 2 3 4 5 6 7 8

Sub test3() With Feuil1 MsgBox "object de la feuille : " & TypeName(.Cells) & " : " & .Cells.Address With .Cells(10, 10) MsgBox "object du with : " & TypeName(.Cells) & " : " & .Cells.Address End With End With End Sub

---

conclusion :
non seulement on peut identifier l'object mais on peut le variabiliser dans un bloc anonyme(with) contrairement à ce que tu prétends

Citation:

---

Envoyé par patmeziere

pour récupérer l'object c'est l'object collection .cells

---

Je ne suis pas d'accord.
Ce que tu indiques, c'est l'accès aux propriétés / méthodes de l'objet référencé par le bloc With.
Pas l'objet lui même.

re
bonjour deedolith
tu irais juste qu'a contredire le return de typename ?
peut être que si j'utilise typeof tu y vera plus clair

Code:

---

1 2 3 4 5 6 7

Sub test() With Feuil1 With .Cells(8, 5) MsgBox TypeOf .Cells Is Range End With End With End Sub

---

Ton exemple est biaisé en plus d'être un cas particulier.
La propriété Cells renvoie un objet de type Range qui possède une propriété Cells qui renvoie un objet de type Range qui possède une propriété Cells ect ect ... (c'est infini).
La syntaxe suivante est parfaitement valide:

Code:

---

Feuil1.Range("A1").Cells(1).cells(1).cells(1).cells(1).cells(1).Value

---

Prend une classe simple comme La Collection:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub DoSomething(ByVal Col As Collection) End Sub   Sub Main() Dim Col As Collection Set Col = New collection   With Col '// A l'intérieur du bloc, accès aux propriété et méthodes de l'objet référencé par le bloc .Add "Something" .Add "Someone" .Remove 1 Debug.Print .Count '// Impossible de référencer l'objet à l'intérieur du bloc '// Sauf de façon explicite DoSomething Coll End With End Sub

---

re
ce n'est pas biaisé c'est toi qui visiblement connait mal ton environnement
cells est un membre de range , de l'application,de worksheet

Pièce jointe 659586

et

Pièce jointe 659585

alors oui tu peux faire

msgbox cells(8,5).cells(1).cells(1).cells(1) à l'infini ça fonctionnera et c'est normal

je le redit le membre (cells) est une collection de cellule et par conséquent une range

il n'existe pas de membre "Cell"(pour une cellule)
par conséquent pour identifier et variabiliser une variable range dans son propre bloc with on utilise la collection tout court pour une cellule

donc exemple

Code:

---

1 2 3 4

with cells(8,5) set rng=.cells(1)'comme il y a qu'une cellule set rng=.cells'valable aussi puisque l'on récupère la collection de cells et il y en a une end with

---

Dsl, tu fais une fixette sur la classe Range.
C'est en cela que c'est biaisé et un cas particulier.

Prend n'importe quel autre classe, et ton raisonnement ne tient plus.

PS: La propriété Cells renvoie un objet de type Range, lequel possède, comme propriété par défaut, la propriété Items qui est une collection de type Range (c'est ce qu'indique l'explorateur d'objets).

Bonjour deedolith
ben si justement
prenons l'exemple du listobject (tableau structuré)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test()   'ici du listobject on va au range With Feuil1.ListObjects("TABLEAU1") MsgBox .Range.Address 'MsgBox .Name 'pas utile on le sait MsgBox .Range.ListObject.Name End With   'ici du range on va vers le listobject With Range("A1:B5") MsgBox .ListObject.Range.Address MsgBox .ListObject.Name End With   End Sub

---

comme tu le voit on peut remonter a l’élément range ou listobject comme on veut
le membre listobject est donc un membre de feuille , de range
et inversement
le membre range est bien un membre de worksheet mais aussi de listobject

et c'est pareil pour cells par autoconversion (merci VBA)
dans la def il y est bien écrit "As Range"voir capture une nouvelle fois ;)

Pièce jointe 659617Pièce jointe 659618
Pièce jointe 659619

donc en ce qui concerne (dans cette discussion) ( l'objectisation par variabilisation pour transmission) (si je puis m'exprimer ainsi)
de l'object du bloc with lui même , je pense avoir donné une réponse claire; c'est "oui"

C'est encore un cas particulier.

Les exemples que tu donnes ne fonctionnent que parce que les classes que tu cites proposent une mécanique permettant aux objets retournées par les propriétés ou méthode, de remonter vers le parent.
C'est tout sauf un comportement standard.
Collection, Dictionnaire, FileSystemObject, les classes personnalisées ne proposent pas se comportement.

Je t'invite à prendre du recul (voir l'exemple que j'ai donnée précédemment avec la collection).

re
Bonjour deedolith
j'ai très bien compris ton point de vue je te rassure

ce que je te dis moi c'est que pour certaines classes le membre parent ou enfant direct peut renvoyer l'object lui même ou un autre object etant le même
voir dans ce cas présent être interprété par vba sous une autre classe

c'est vrai que si je te suis dans ton raisonnement pour renvoyer l'object lui même il faudrait que je passe par un object enfant puis remonter au parent
par exemple comme ceci (mais là il n'y a plus de simplification )

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() With Feuil1 With .Cells(8, 5) MsgBox .Borders(1).Parent.Address   End With End With     End Sub

---

donc envoyer un autre object représentant fondamentalement le même est une bonne alternative


et la question était "est ce possible de réduire l'appel a la sub ...dans le contexte ou l'object est dans un bloc anonyme
j'ai bien démontré que oui

d'ailleurs dans ma demo la sub qui reçois l'appel ne déclenche pas une erreur d'incompatibilité de type avec l'argument "Target as range " alors que je lui envoie la collection "Cells"

et l'exemple de cells/range en est l'exemple le plus courant

merci pour nos échanges de points de vue ils m'aideront la prochaine fois a mieux argumenter la démarche dans un cas similaire

Bonjour,

Citation:

---

ce que je te dis moi c'est que pour certaines classes le membre parent ou enfant direct peut renvoyer l'object lui même
voir dans ce cas présent être interprété par vba sous une autre classe

---

Faut l'objet range ne connait pas la notion de Me qui permettrait de ce passer en tant qu'objet à une variable ou en paramètres à un méthode.

Il ne voit que ses enfants ou ses parents.

Dans ce qui à été abordé dans le with par exemple

Code:

---

with seets("Feuille1"). range("A1:A20")

---

On à accès aux enfants . celles ou aux parents sheets("Feuille1") mais pas à sheets("Feuille1"). range("A1:A20")

On pourra tenter de démontrer le contraire en modifiant telle ou telle valeur il n'en reste pas moins que une variable virtuelle qui fait référence à un objet fisique ce comporte comme un objet fisique et non virtuelle.

Un range c'est comme un verre d'eau il est fisiquemement vide ou plein.

Edite :
Je t'invite à faire la comparaison avec Byval Target as range.

re

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() With Feuil1.Cells(8, 5) fonction .Cells ' ou .Cells(1) End With End Sub   Sub fonction(ByVal target As Range) MsgBox target.Address End Sub

---

Pièce jointe 659630

et même sans typer l'argument target ça fonctionne

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() With Feuil1.Cells(8, 5) fonction .Cells(1) End With End Sub   Sub fonction(target) MsgBox target.Address End Sub

---

si j'obtien( l'address c'est que target est bien un range
et E8 c'est bien la cells(8,5)

Ça confirme ce que j' ai dit .Celles est bien un enfant de With Feuil1.Cells(8, 5) et se positionne fisiquemement, car un range ne peut en aucun cas être virtuel, a l'adresse $E$8 c'est bien ce que j'ai affirmé ce n'est pas l'objet Feuil1.Cells(8, 5) mais son enfant .Cells

Code:

---

1 2 3 4 5

Sub test() With Feuil1.Cells(8, 5) fonction .Cells ' ou .Cells(1).cells.cells' enfant de With Feuil1.Cells(8, 5) End With End Sub

---

Tu l'a très clairement écrits dans ton code [.Cells]

Code:

---

1 2 3

With Feuil1.Cells(8, 5) .address 'aurait fait référence direct à With Feuil1.Cells(8, 5) mais en tant qu'enfant

---

Fais la même chose avec un module de classe et tu verras que tu n'as accès qu'à ses enfants ou aux parents si tu les gère dans la classe !

Tu confonds emplacement fisique de l' objet et sa déclinaison de la source de l'objet.

Tu n'as en occun ca accès à la source de l'objet Feuil1.Cells(8, 5) tu ne peux que décliner ses enfants .Cells

. parents aussi bizarre que ça paresse est un enfant.

Code:

---

1 2 3 4 5 6 7 8 9

Sub test() Dim colec As New Collection colec.Add colec testcolec colec(1) End Sub Sub testcolec(colec As Object)     End Sub

---

ou est la vérité chaque enfant {item} est l'objet de lui même!

Pièce jointe 659638