Convertir une string en object

Bonjour a tous
Voici mon probleme, j'ai 30 boutons nommer de Bt_1 à Bt_30 et je desires effacer leur text via.Caption
L'instruction ActiveSheet.Bt_01.Caption = "" ca marche tres bien.
mais je desire la reproduire dans une boucle pour eviter d'avoir a repeter 30 fois l'instruction.
apres avoir lu dans les forums certaine indication j'ai fait ce programme que je documente toujours pour ma gouverne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub Efface() ' ' Efface 'Efface les boutons de facon manuel 'nous avond 30 bouton bt_1 a Bt_30 'on va faire une boucle avec une incrementation 30 fois 'compteur va etre la variable qui va etre incrementée a chaque boucle '************************************************************ ' 'definition des variables ' 'compteur est une variable integer Dim compteur As Integer 'lettre est la variable text pour la fin du nom de bouton Dim lettre As String 'nom_du_bouton est une variable text pour le nom du bouton au debut Dim nom_du_bouton As String Dim nom_du_bouton_complet As String 'attribution des variables au debut nom_du_bouton = "Bt_" compteur = 1 'atribution a la variable string lettre, de la valeur integer compteur 'on ne peut pas attribuer en temp normal une valeur integer a une variable string 'la fonction CStr, fait le travail 'donc en l'etat la variable string "lettre" prend la valeur "1" lettre = CStr(compteur) 'utilisation de la boucle while....wend 'while verifie que la valeur du compteur soit a 30 et s arrette While compteur < 30 lettre = CStr(compteur) nom_du_bouton_complet = nom_du_bouton & lettre ActiveSheet.Controls("nom_du_bouton_complet").Caption = "" compteur = compteur + 1 Wend

---

Seulement voila, j'ai le message d'erreur 438 proprietée ou méthode non gérée par cet objet.
La je comprend pas car caption est géré

Au secoure
Bon j'ai déjà regarder sur le forum des indications, mais j'ai rien pigé:oops:

Bonjour,

Code:

---

1 2 3

for i =1 to 30 ActiveSheet.controls("Bt_" & frormat(i,"00")).Caption = "" Next

---

Bonjour et un salut à Robert
Le code écrit par dave1000 est lourd et maladroit et peut être en effet écrit plus simplement, comme le montre Robert.
Attention, cependant, à la collection d'objets utilisée. S'agissant d'objets sur une feuille de calcul, c'est à la collection Shapes et non Controls, qu'ils appartiennent --->>

Code:

---

1 2 3

for i =1 to 30 ActiveSheet.Shapes("Bt_" & format(i,"00")).Caption = "" Next

---

C'est CETTE erreur, que dénonçait le message reçu, à savoir :

Citation:

---

Seulement voila, j'ai le message d'erreur 438 proprietée ou méthode non gérée par cet objet.

---

"cet objet" ? --->> ActiveSheet
"propriété ou méthode" ? --->> Controls

Bonjour Dysorthographie ( :coucou: )
Petite faute de frappe : format à la place de frormat.

Bonjour Menhir( :coucou: )
merci

Bonjours messieurs

tout d'abord merci de m'avoir répondue si vite.
Mais :
le bouton est un bouton Contrôle active x
ActiveSheet.Shapes("Bt_" & Format(i, "00")).Caption = "" me fait une erreur de type l'élément portant ce nom est introuvable ( ce qui me fait douter de la classe du bouton).

et

ActiveSheet.Controls("Bt_" & Format(i, "00")).Caption = "" me donne pour erreur 438 Propriété ou méthode non gérée par cet objet

Au secours:aie:

et que te dit l'enregistreur de macro?

je ne vois pas ce que vous me demander, je n'utilise pas l'enregistreur de macro a ce stade:weird:

Tu ne réfléchis vraiment pas beaucoup, dave1000
Tu n'iras pas loin si tu te contentes de copier/coller sans même analyser !
Le message reçu est pourtant on ne peut plus clair !
Bon ..-->>
Le code qui t'a été montré suppose que tes boutons sont nommés "Bt_01", "BT_02", ... "BT_0n"
s'ils sont nommés "Bt_1", "BT_2", ... "BT_n", le code est à modifier ainsi :

Code:

---

ActiveSheet.Shapes("Bt_" & i).Caption = ""

---

Est-ce vraiment si dur que cela, que d'analyser, comprendre, adapter ? :pleure:

j'avais meme renomez les boutons Bt_01 etc, le probleme est ailleur

Allez -->> réflexe à ta place, puisque tu n'en a pas : --->>

Code:

---

1 2 3

for each sh in me.shapes msgbox sh.name next

---

Tes boutons apparaissent-ils dans ces msgbox ? Si oui --->> quel nom est affiché pour chacun d'eux ?

Code:

---

ActiveSheet.Shapes("CommandButton1").AlternativeText = "titi"

---

l'element portant ce nom est introuvable

c'est pourtant ce que me donne l'enregistreur de macro pour un bouton activex!

Je suis d'accord avec toi, mais bon repartons sur la bonne base

Code:

---

1 2 3 4

Dim i As Integer For i = 1 To 30 ActiveSheet.Bt_01.Caption = "" Next

---

ça, ça fonctionne parfaitement ça efface parfaitement et si je change le texte c'est perfect même si ça n’agit que sur le même bouton


pour umparia, j'ai l'erreur utilisation incorrecte de ME

re
je n'en suis pas sur mais il me semble que la propriété caption des activx"commandbutton" n'est pas accessible en ecriture quand ces controls sont sur un sheets

@robert
alternativetext donne rien meme si il n'y a pas d'erreurs déclenchées

Code:

---

1 2	MsgBox ActiveSheet.Shapes("Bt_" & 1).AlternativeText 'le message est vide

---

j'ai bien tenté avec la collection OleObjects mais kifkif

Code:

---

1 2 3 4 5 6

Sub test() For i = 1 To 3 MsgBox ActiveSheet.OLEObjects("Bt_" & 1).Caption Next End Sub 'erreur 438 ne gere pas cette propriété

---

Citation:

---

je n'en suis pas sur mais il me semble que la propriété caption des activx"commandbutton" n'est pas accessible en ecriture quand ces controls sont sur un sheets

---

Bien sûr, qu'elle est accessible en lecture et écriture (et heureusement) !

bon j'avais tords
en fait pour le activx c'est comme ca

Code:

---

1 2 3 4 5

Sub test() For i = 1 To 3 ActiveSheet.OLEObjects("Bt_" & i).Object.Caption = "titi" & i Next End Sub

---

voila

Pièce jointe 334727

A Patrick
Les contrôles activex sont également dans la collection Shapes.
J'ai par ailleurs pu vérifier le bon fonctionnement du code suggéré (utilisant la collection Shapes) -->> aucune faille. ;)

est ce qu il faudrait que le resultat de l incrementation de la boucle soit transformé en "object"
dim test as object

par exemple
et la il faut utilisé set, et la je ne sait pas quoi mettre

car en verité si ca ce trouve ,il ne comprent pas le resultat de notre concatenation Bt_& i qui forme un string

enfin je supose

merci a tous a bientot, je crois que j aurais encore besoin de vo service

re
je voudrais bien, voir comment tu atteint la caption avec la collection shapes ;)

sub test2
Pièce jointe 334730
avant que tu ne reponde
j'ai bien essayé "Shape" avec et sans "s"

Que nous racontes-tu là, Dave1000 ????
Bien évidemment, que l'on passe un "string" à la collection ***** ! Et col étant une collection d'objet, col("toto") est l'objet dont le nom est toto dans la collection col !
***** : en le faisant sans perversité, hein ...:lol:

@Dave regarde le post#18

pour l'accessibilité des propriétés d'un activX
c'est
parents sheet . collection(oleobjects) ("nom du control).object.propriété

Et un rebonjour à Patrick !
Evidemment que tu obtiens un message d'erreur avec ce que l'on voit dans ton "animation" (au demeurant bien inutile ...)
Jusqu'à preuve du contraire, n'existe aucune collection Shape, hein ...

@jacques je te dis que

Code:

---

msgbox activesheet.shapes("Bt_"&1).caption

---

ne fonctionnera pas avec ou sans "s"

teste avant de dire
le seul moyen est de passer par oleobjects(nom).object.propriété
point final

Et pour à la fois parfaire ton information et justifier ce que j'ai dit, Patrick, voilà (extrait de l'aide VBA interne), ce que contient la collection Shapes :

Citation:

---

Shapes, objet
Collection de tous les objets Shape contenus dans la feuille spécifiée.
Remarques


Chaque objet Shape représente un objet du calque de dessin, par exemple une forme automatique, une forme libre, un objet OLE ou une image.

---

Comme je le disais et que tu peux le constater : les Activex (des oleobjects) y sont inclus.
Tu aurais d'ailleurs pu le vérifier, hein ... (ce que j'ai fait). En mettant 2 ou 3 boutons de commande et le code que j'ai mis plus haut.

je le sais ca mais je te dis que pour la caption!! avec la collection shapes c'est pas géré
et pour cause
les commandbutton ont un handle les shapes(forme automatiques,etc...) non!!!!

d'apres toi comment VBA gere la caption et toutes ses sous propriétés( text,windowlong,etc...) .en ayant acces a son handle

Grand merci a vous la routine fonctionne, j ai encore appris un truc, et c'est pas finis, issu du basic de la grande époque, je me met a jour......
a très bientôt

@dave100
quelle routine fonctionne

je suis curieux: en meme temps pas tant que ca :mouarf: