1 seule boucle au lieu de 2 pour paramétrer des boutons sur feuille

[Chrige]

Bonjour le Forum



Je souhaitais réaliser une macro en boucle pour paramétrer des boutons placés sur une feuille Excel
J’y suis bien parvenu
Mais j’ai été obligé de réaliser 2 boucles
Certaines propriétés ne pouvant se gérer que par une boucle et par l’autre et vice versa.

Ma macro fonctionne très bien,
Mais si quelqu’un de plus doué que moi voit une manière de faire tout cela en une seule boucle ??

Je joins ma macro avec un exemple

Merci

 

[Staple1600]

Bonjour le fil, le forum

@Chrige
A tester
(test OK sur mon fichier test avec Excel 2003)

Sub test()
Dim sh As Shape, Gauche%, Clr%
Clr = 500
Gauche = 30
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoOLEControlObject Then
       With sh.OLEFormat.Object.Object
       Clr = Clr + 2000
        .BackColor = Clr: .Caption = ""
       End With
    ElseIf sh.Type = msoFormControl Then
        With sh
        .Top = 40: .Width = 20: .Height = 20
        Gauche = Gauche + 30
        .Left = Gauche
        End With
    End If
Next
End Sub

 

[ChTi160]

Bonjour Chrige
Bonjour Jean marie
Bonjour le Forum
Une autre version excel 2010(JM Trop rapide lol)
Bonne journée
Amicalement
jean marie

 

[Chrige]

Bonjour Staple
Tu est sur de toi ?
Chez moi avec Excel 2007
C'est Ok pour la 1ère partie (Couleur et Caption)
Mais par pour la suite !
A+

 

[ChTi160]

Re
JM , chez moi après test .
j'ai constaté (avec ta procédure) que si je déplace les Boutons sur la feuille , ils ne se repositionnent pas a leur place.
Bonne journée
Jean marie

 

[Chrige]

Bonjour Ce lien n'existe plus

Merci pour ta macro
C'est court, simple et cela fonctionne très bien

J'étais pas loin !
Mais peut tu m'expliquer pourquoi Obj.Object. ou simplement Obj. ??
A+

 

[Staple1600]

Re, Bonjour JM

Comme je disais en préambule

Bonjour le fil, le forum

@Chrige
A tester
(test OK sur mon fichier test avec Excel 2003)

Car j'ai du enregistrer sous en *.xls le fichier joint (et suite à conversion -> bug de la macro intiale)
D'ou la création de mon propre fichier de test.

Mon code distingue le type de bouton
1) issue de la barre d'outils Formulaire
2)issue de la barre d'outils Contrôles

Mais je viens de voir que sur le fichier exempe de Chrige, il n'y avait que des CommandButton issus de la barre d'outils Controles et deux zones de Texte (Shapes)

 

[MJ13]

Bonjour à tous

@JM, c'est bizarre, tu parles d'Excel 2003, hors, tu as l'air d'avoir Excel 2013?

 

[Staple1600]

Bonjour M13

@MJ13
Un XLdnaute peut avoir plusieurs PC
Un XLdnaute peut être en villégiature
Un XLDnaute peut avoir préciser au courant de cette semaine (dans plusieurs posts)
"actuellement sous Excel 2003"
Un XdDnaute peut donc ne pas avoir envie de changer son profil tous les quatres matins mais simplement préciser dans ses réponses la version d'Excel utilisée lors de ses tests de formules ou VBA.

 

[MJ13]

Re JM

Donc j'en conclue que tu fais bien les tests sur Excel 2003, même si tu n'as pas répondu à la question.