XL 2010 Regrouper plusieurs labels

[Magic_Doctor]

Bonjour,

J'ai plusieurs labels et je voudrais leur assigner à tous la même couleur.
J'ai écrit ceci qui fonctionne (pour l'exemple, je ne prends que 2 labels) :

       With Worksheets("Hoja1").Label1
            .BackColor = &H614025  'bleu marine
        End With
        With Worksheets("Hoja1").Label2
            .BackColor = &H614025  'bleu marine
        End With

J'ai essayé de regrouper tous ces labels comme ceci :

ActiveSheet.Shapes.Range(Array("Label1", "Label2")).BackColor = &H614025  'bleu marine

Ça na marche pas.

Comment s'y prendre ?

 

[fanfan38]

Bonjour et bonne année

With Worksheets("Hoja1")
  .Label1.BackColor = &H614025  'bleu marine
  .Label2.BackColor = &H614025  'bleu marine
End With

A+ François

 

[eriiic]

Bonjour,

Mes meilleurs voeux pour 2021 à tous.
Avec un début de nom identique :

Dim ctrl As Control
For Each ctrl In Me.Controls
    If Left(ctrl, 5) = "Label" Then ctrl.BackColor = &H614025 'bleu marine
Next ctrl

eric

 

[Staple1600]

Bonjour le fil

Une autre syntaxe

Sub Traitement_Labels()
For k = 1 To ActiveSheet.OLEObjects.Count
Set obj = ActiveSheet.OLEObjects(k)
Set oo = obj.Object
If TypeName(oo) = "Label" Then
oo.BackColor = &H614025
End If
Next
End Sub

 

[mapomme]

Bonjour à tous, bonne année et bonne santé:

Sub Macro1()
Dim x
   For Each x In Split("Label1,Label2", ",")
      Sheets("Feuil1").OLEObjects(x).Object.BackColor = &H614025
   Next
End Sub

 

[mapomme]

Bonjoue @Staple1600 ,

à une seconde près, tu m'as grillé

NB : petite différence, je choisis les Labels à colorier.

 

[Staple1600]

Re

Avec des endives

Sub Traitement_Labels()
With ActiveSheet
    For k = 1 To .OLEObjects.Count
    Set oo = .OLEObjects(k).Object
        If TypeName(oo) = "Label" Then
        oo.BackColor = &H614025
        End If
    Next
End With
End Sub

EDITION: Bonjour mapomme (pas vu mon MP?)

 

[Staple1600]

Re

=>mapomme

J'ai plusieurs labels et je voudrais leur assigner à tous la même couleur.

L'être humain étant programmer pour croire
J'ai fait le choix de croire que plusieurs veut ici dire tous et tous et plusieurs, ce n'est pas rien
et que mine de rien, tout est en rien et rien n'est dans tout
Amen

 

[M12]

Bonjour à tous
Une de plus

Dim Obj As OLEObject
  For Each Obj In ActiveSheet.OLEObjects
    If TypeOf Obj.Object Is MSForms.Label Then
          Obj.Object.BackColor = &H614025  'bleu marine
    End If
  Next

 

[mapomme]

J'ai fait le choix de croire que plusieurs veut ici dire tous et tous et plusieurs, ce n'est pas rien
et que mine de rien, tout est en rien et rien n'est dans tout

Trois fois rien, c'est déjà plusieurs "petits riens"...
D'ailleurs rien n'est pas rien. Ne dit-on pas "rien de rien" ? Ce qui montre bien que le rien contient d'autres riens (autres riens qu'il faut ôter de rien si on veut vraiment de rien avoir).
D'ailleurs "ne rien avoir", est ce posséder rien ? Si oui, alors ne rien avoir c'est posséder quelque-chose ???

 

[patricktoulon]

re
bonjour a tous
ha ben maintenant ils sont 2 a phillesoeufer

rien n'est pas rien tel est la question

 

[Staple1600]

Re, Bonjour M12

=>mapomme
Rien d'autre qu'une réponse à la dernière question du message#7 eut suffit à ne rien laisser transparaitre de mon état d'âme.
Mais rien n'est venu pour autant tout espoir n'est pas perdu.


Sinon pour la question, il nous reste le module de classe

 

[eriiic]

Ah oui, je n'avais pas prêté attention que c'était sur feuille et non dans un userform.
eric

 

[Staple1600]

Re, Bonjour patrictoulon, eriiiic

Puisque tout est dans tout, et qu'un WorkBook est un tout.
Et pour faire un petit coucou aux Munchkins

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim L_Bl As Object, OverTheRainBow
Randomize 1600
For Each L_Bl In ActiveSheet.OLEObjects
OverTheRainBow = RGB(Int(Rnd * 255), Int(Rnd * 121), Int(Rnd * 67))
'syntaxe classique
'If TypeName(L_Bl.Object) = "Label" Then L_Bl.Object.BackColor = OverTheRainBow
' pour le fun
L_Bl.Object.BackColor = IIf(TypeName(L_Bl.Object) = "Label", OverTheRainBow, 0)
Next
End Sub

Parce que Dorothy vaut bien Isabelle A., et que j'aime pas les pulls, fussent-ils marine.


Nb: Code VBA à mettre dans ThisWorkBook, et ce serait mieux si avant vous avez inséré tout plein de labels sur vos feuilles.
Ce qui n'est pas rien, niveau temps.
Mais ... au pays d'Oz, le temps c'est rien, et picétou

 

[Magic_Doctor]

Bonjour à tous,

Il faut donc passer par une boucle...