XL 2013 injection d'argument array en tant qu'object dans une fonction ou sub

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Novembre 2021

• #2

Bonjour @patricktoulon 😉,

Pas trop compris ce que tu cherches.
Pourquoi ne pas passer par une variable (la Textbox1 est sur Feuil1) ?

VB:

Sub test()
   Dim t(0 To 3) As Object
   Set t(0) = Feuil1.TextBox1
   chosebidule t
End Sub

Function chosebidule(arr)
   MsgBox arr(0).Name
End Function

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2021

• #3

re
Bonjour @mapomme oui j'aurais du précisé c'est dans un userform
tu me dira ta methode peut etre reproduit de la meme maniere dans le userform
j'aurais souhaité ne pas passer par l'intermediaire du remplissage du tableau
c'est juste pour savoir si c'est possible d'une maniere ou d'une autre

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Novembre 2021

• #4

patricktoulon à dit:

j'aurais souhaité ne pas passer par l'intermediaire du remplissage du tableau
c'est juste pour savoir si c'est possible d'une maniere ou d'une autre

Cliquez pour agrandir...

Ah d'accord, il va falloir réfléchir...

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 8 Novembre 2021

• #5

Bonjour patricktoulon, mapomme, le forum

Je le ferai comme ça

Cordialement, @+

VB:

Sub test()
chosebidule Array("TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5")
End Sub
Function chosebidule(arr)
MsgBox Me.Controls(arr(0)).Name & vbLf & Me.Controls(arr(0)).Value, vbOKOnly + vbInformation
End Function

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Novembre 2021

• #6

Re, bonjour @Yeahou 🙂,

En biaisant:

VB:

Private Sub CommandButton1_Click()
   chosebidule Array(Me.Controls("textbox1"), Me.Controls("textbox2"))
End Sub

Function chosebidule(arr)
   MsgBox arr(0).Name
End Function

 

Pièces jointes

• Array et Auguments- v1.xlsm

  16.8 KB · Affichages: 7

Vote positif 0 Vote négatif

Solution

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2021

• #7

re bonjour @Yeahou
oui de toute facon il faut passer en amont ou en aval par une reclassification de l'argument

@mapomme
là c'est intéressant dans le sens ou visiblement(je te fait confiance pour avoir tester ) le value par défaut n'est pas appliqué car l'object envoyé est un object control et comme l'object control n'a pas de propriété ".value" puisque ca peut être un control sans text meme si en lecture on peut le lire

rigolo non ?

étonnant ces petites divergences
merci a tous les deux pour cet éclairage

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2021

• #8

j'adopterais donc cette écriture histoire de raccourcir mes lignes verbeuses

VB:

Private Sub CommandButton1_Click()
   dim cts as object:   Set cts = Me.Controls
   chosebidule Array(cts("textbox1"), cts("textbox2"))
End Sub

on passe donc par la collection controls

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 8 Novembre 2021

• #9

Re,

II y a plus simple à la place de Me.Controls("textboxN")

VB:

Private Sub CommandButton1_Click()
   chosebidule Array(Me.textbox1, Me.textbox2)
End Sub

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 8 Novembre 2021

• #10

re,

sur 365, ça passe direct comme ça, contrairement à ce qui est dit dans le post initial de Patrick, différence de version Excel ?

VB:

chosebidule Array(TextBox1, TextBox2)

Cordialement, @+

 

Pièces jointes

• Test_Patricktoulon - Copie.xlsm

  15.4 KB · Affichages: 0

Dernière édition: 8 Novembre 2021

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 8 Novembre 2021

• #11

Bonsoir.

patricktoulon à dit:

il est bien evident que ce qui est injecté est le ".Value(par defaut)"

Cliquez pour agrandir...

Non, les Variant de Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5) contiennent les objets TextBox.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Novembre 2021

• #12

Bonsoir le Fil
Idem chez moi "sur 365, ça passe direct comme ça" !

VB:

Option Explicit
Option Base 1
Dim i As Byte
Private Sub CommandButton1_Click()
   chosebidule Array(TextBox1, TextBox2, TextBox3)
End Sub

Function chosebidule(arr)
For i = 1 To UBound(arr)
   MsgBox arr(i).Name & vbCrLf & arr(i).Value
   Next
End Function

Bonne fin de Soirée
Jean marie

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2021

• #13

bonsoir à tous
intéressant sur 2007 ok mais 2013 c'est value par default
merci pour ces précieuses contributions je suis conforté dans mon idée d'utiliser la collection controls pour eviler les problèmes de versions

 

Vote positif 0 Vote négatif