Boucle sur labels

[lio]

Bonjour le forum,

Grace à l'aide d'une personne de ce forum, j'ai pu faire des boutons tout jolis.

Mais lorsque j'insère un objet 'image' ou 'gif89', je rencontre un problème. Il vient d'une procédure qui boucle sur tout mes controles.

J'ai tenté de mettre une ligne du type :

If TypeOf ctrl Is MSForms.Label

Mais ça ne marche pas !

Merci pour votre aide. [file name=Bouton_20060218185511.zip size=11288]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Bouton_20060218185511.zip[/file]

 

[Eric C]

Bonsoir le forum
Bonsoir Lio

Si si cela fonctionne très bien :

Private Sub Mise_forme(numero As Byte)
Dim CTRL As Control

For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.Label Then
        With CTRL
            .Font.Size = 14
            .ForeColor = &HFF8080
            .BackColor = &H80000016
        End With
    End If
Next

With Controls('Label' & numero)
.Font.Size = 16
.ForeColor = &H800080
.BackColor = &H80000013
End With


End Sub

Bonne soirée à toutes & à tous

 

[lio]

Bonjoir Eric C,

Merci beaucoup, ça fonctionne impec. :woohoo:

En fait, j'avais enlevé la boucle For et Next
lors de mon essai. Erreur de débutant

Merci encore et bon Week end.

 

[Bebere]

bonsoir Lio
ton code corrigé
à bientôt [file name=bouton_20060218192751.zip size=11420]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/bouton_20060218192751.zip[/file]

 

[lio]

Bonsoir Bebère,

Merci beaucoup pour ta solution, je ne connaissais pas !


Bonne soirée.

Message édité par: lio, à: 18/02/2006 19:36