Discussion :

[dave1000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[Menhir]

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

[Invité]

Bonjour Menhir( )
merci

[dave1000]

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

[Invité]

et que te dit l'enregistreur de macro?

[dave1000]

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[dave1000]

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

[unparia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dave1000]

l'element portant ce nom est introuvable

[Invité]

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

[dave1000]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é

[unparia]

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) !

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

voila

[unparia]

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.

[dave1000]

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