couleur de texte d'un label ne s'execute pas (résolu)

[debzac]

Bonjour à tous et merci pour votre attention
Dans ce petit bout de vba j'ai demander que la couleur des label à créer soit blanc cependant il ne réagit pas alors qu'il marque bien le texte demandé. où est l'erreur ?
Merci

Sub couleur()
Dim i, max, val As Integer

On Error Resume Next

oterlabel
oterlacouleur

On Error Resume Next

max = Application.WorksheetFunction.max(Range("ad:ad"))

For i = 1 To Range("NatSal").Count
val = Sheets("carte").Cells(i, 30).Value
With Sheets("carte").Shapes(Range("NatSal")(i).Value)
.Fill.ForeColor.RGB = RGB(Application.WorksheetFunction.RoundDown(255 - (255 / max * val), 0), 0, 0) 'couleur
With Sheets("carte").Labels.Add(.Left + 0.5 * .Width, .Top + 0.25 * .Height, 100, 14)
.Caption = val
.ForeColor = vbWhite
.AutoSize = True
End With
End With
Next i
End Sub

 

[Dranreb]

Bonjour
Je pense que les possibilités sont limitées avec un Label de formulaire.
Essayez plutôt en ajoutant une boîte texte. En tout cas il n'a sûrement pas les propriétés d'un Label ActiveX

 

[debzac]

Ok Dranreb
Merci pour ton attention et ta réponse je ferai avec ce que j'ai.
Bien à toi et bonne journée

 

[job75]

Bonjour debzac, Bernard,

Pourquoi ne pas créer des Labels ActiveX ? Dans la Sub couleur() :

            With Sheets("carte").OLEObjects.Add(ClassType:="Forms.Label.1", Link:=False, _
                DisplayAsIcon:=False, Left:=.Left + 0.5 * .Width, Top:=.Top + 0.25 * .Height, Width:=8, Height:=8).Object
                .Caption = val
                .BackColor = vbBlack
                .ForeColor = vbWhite
                .Font.Size = 6
                .TextAlign = fmTextAlignCenter
            End With

Et bien sûr pour supprimer les Labels :

Sub oterlabel()
Dim o As OLEObject
    For Each o In Sheets("carte").OLEObjects
        If o.Name Like "Label*" Then o.Delete
    Next o
End Sub

A+

 

[debzac]

Merci à tous pour vos réponses Dranreb et Job. je vais donc pouvoir boucler mon projet.
Vous êtes des personnes précieuses.
Bonne continuation.