Modifier le texte sur un bouton affecté à une macro

Version imprimable

23/10/2014, 06h49
Un Internaute

Modifier le texte sur un bouton affecté à une macro

Bonjour le forum,
J'ai un classeur de 12 onglets (Janvier 2014 à Décembre 2014). J'ai un bouton affecté à une macro et dessiné avec la barre d'outils dessin (rectangle)
Je voudrais modifié le texte du bouton car le modifier 12 fois * par 16 classeurs... ça fait du monde!!!
Après des recherches je n'ai pas trouvé mon bonheur... peut-être ai-je mal cherché!!!
Merci d'avance pour vos éventuelles réponses
Cordialement

tu peux explorer cette piste:

Code:

1
2
3
4
5
6
7
8
Sub Update_Bouton()
Dim CTL             As Shape
On Error Resume Next
    For Each Ctrl In ActiveSheet.Shapes
        Debug.Print Ctrl.AlternativeText
        Debug.Print Ctrl.TextEffect.Text
    Next Ctrl
End Sub

23/10/2014, 09h21
Nico Chg
Bonjour !

Est ce que tu as plusieurs forme insérer sur ton classeur ?

Sinon, pour parcourir une forme, ou un shape, il faut faire une boucle FOR.
Code:

1 2 3 For each shape in Worksheets("MaFeuille").shapes shape.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Bonjour" Next Shape
Après, je ne suis pas tout à fait sûr du code, car je l'ai obtenu avec l'enregistreur de macro. Il y a sans doute des paramètre à modifier. Ensuite, il faut que tu parcours toutes les feuilles, puis tous les classeurs, de la même façon.

Pour les classeurs, il faudra te pencher vers les FileSystemObject, un peu de doc >> par là <<
23/10/2014, 11h36
Un Internaute

Bonjour lucasgaetan,
Ton code n'accroche pas mais n'agit pas!
Connaît pas du tout cette façon de faire.
Il n'y a pas le texte existant et celui à mettre?
Cordialement

Code:

1 2 3 4 5 6 7 8 Sub Update_Bouton() Dim CTL As Shape On Error Resume Next For Each Ctrl In ActiveSheet.Shapes Ctrl.AlternativeText = "toto" Ctrl.TextEffect.Text = "tata" Next Ctrl End Sub
Le Debug.Print est pour voir texte existant dans la fenêtre exécution (Ctrl + G)
si tu a dessiné avec la barre d'outils dessin (rectangle) , tu devrais voir apparaître "tata"
si tu a inséré un bouton, tu devrais voir apparaître "toto"

Attention, ce code modifie toutes les Shape de ta feuille (Shape : Cet objet représente un objet sur le calque de dessin, par exemple une forme automatique, une forme libre, un objet OLE ou une image.)

Bonsoir lucasgaetan,
je me suis inspiré de ton code et "gratté" un peu partout fait un "savant mélange" et ça a l'air de fonctionner.
Encore merci à toi et aux autres membres du forum qui ont bien voulu participer à la "création du code ci-dessous

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
 Option Explicit
 
Sub Update_Bouton()
Dim Ctrl As Shape, I As Integer
Dim OldNom As String, NewNom As String
Dim Ws As Worksheet
Dim nombre As Integer
 
  'Début Macro pour Ouverture Onglets
  nombre = ActiveWorkbook.Sheets.Count
  Application.ScreenUpdating = False
  OldNom = "Insertion Ligne"
  NewNom = "Toto"
 
  For I = 1 To nombre
    With Worksheets(I)
      .Unprotect Password:=""
      For Each Ctrl In .Shapes
        If Ctrl.TextFrame.Characters.Text = OldNom Then
          Ctrl.TextFrame.Characters.Text = NewNom
        End If
      Next Ctrl
      .Protect Password:=""
    End With
 Next I
  'Fin Macro pour Ouverture Onglets
 
End Sub