XL 2010 Regrouper plusieurs labels

fanfan38

XLDnaute Barbatruc

• 2 Janvier 2021

• #2

Bonjour et bonne année

VB:

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

A+ François

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Janvier 2021

• #3

Bonjour,

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

VB:

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

eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2021

• #4

Bonjour le fil

Une autre syntaxe

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Janvier 2021

• #5

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

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Janvier 2021

• #6

Bonjoue @Staple1600 ,

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

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2021

• #7

Re

Avec des endives

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2021

• #8

Re

=>mapomme

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 2 Janvier 2021

• #9

Bonjour à tous
Une de plus

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Janvier 2021

• #10

Staple1600 à dit:

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

Cliquez pour agrandir...

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 ???

 

Dernière édition: 2 Janvier 2021

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Janvier 2021

• #11

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

rien n'est pas rien tel est la question

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2021

• #12

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Janvier 2021

• #13

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2021

• #14

Re, Bonjour patrictoulon, eriiiic

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

VB:

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

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

• 2 Janvier 2021

• #15

Bonjour à tous,

Il faut donc passer par une boucle...

 

Vote positif 0 Vote négatif