Problème Création forme et label - erreur 424

Bonjour,

Je souhaite mettre en place un programme qui change de couleur mais voilà j'ai un problème au niveau de la ligne en rouge qui m'indique avec le mode debug erreur 424 Objet requis. Mais je ne comprends vraiment pas ce qui bug alors que mon Program initiale dans un autre classeur marchait parfaitement et j'ai bien un Objet avec le label Vert1 .... Avez vous une solution ? cordialement

Merci pour votre aide !

Bon je planche toujours sur le sujet mais je ne vois ma ma faute, j'ai trois carré (donc objet) avec pour label :

Rouge1

Jaune1

Vert1

Cela ne suffit-il pas à faire marcher le programme, ai-je oublié quelque chose ?

Cordialement

Bonjour,

Ci-joint fichier suivant ton code.

Pour pouvoir utiliser "Private Sub Worksheet_Calculate()", tu dois être en calcul manuel, soit :

Option Explicit
Private Sub Workbook_Open() [à placer dans ThisWorkbook]
    With Application
        .Calculation = xlCalculationManual
    End With
End Sub

Ensuite, il te faut un calcul dans ta feuille. Sans formule dans cette feuille, J'ai mis la fonction "Aujourdhui()" qui se met à jour avec l'appui sur la touche F9 de ton clavier.

L'appui sur cette touche, si tu as modifié les valeurs de seuils et de référence, modifieront les couleurs des labels.

J'espère être clair

Option Explicit
Public seuilBas As Double, seuilHaut As Double, Référence As Double
Public Couleur As String
Private Sub Worksheet_Calculate()

    Application.ScreenUpdating = False

    seuilBas = [I2]
    seuilHaut = [I3]
    Référence = [I4]

    If Référence < seuilBas Then
        Couleur = "vert"
    ElseIf Référence >= seuilBas And Référence < seuilHaut Then
        Couleur = "jaune"
    ElseIf Référence >= seuilHaut Then
        Couleur = "rouge"
    End If

    If Couleur = "rouge" Then
        lbJaune.BackColor = RGB(100, 100, 50)
        lbVert.BackColor = RGB(0, 100, 50)
        lbRouge.BackColor = RGB(255, 0, 50)
    ElseIf Couleur = "jaune" Then
        lbVert.BackColor = RGB(0, 100, 50)
        lbRouge.BackColor = RGB(100, 0, 50)
        lbJaune.BackColor = RGB(250, 250, 50)
    ElseIf Couleur = "vert" Then
        lbJaune.BackColor = RGB(100, 100, 50)
        lbRouge.BackColor = RGB(100, 0, 50)
        lbVert.BackColor = RGB(0, 255, 50)
    End If

    Application.ScreenUpdating = True

End Sub

Bon, j'ai interprété mais j'ai tenté. Cdlt

Et si on veut que cette opération soit automatique ?

Je souhaiterais que si je change de valeur, alors l'ensemble soit mis à jour directement.

Merci en tout cas pour ton aide

Cordialement

Re,

Et si et si...

Plus d'informations sont nécessaires. J'ai répondu à une question mal formulée. A toi de la reformuler avec un fichier joint, avec des données représentatives, significatives, et les résultats attendus.

Cdlt

Bon je vais poser une toute autre question alors et si je bloque à nouveau, je balance le fichier représentatif de ma situation désespérée.

Alors voilà, j'ai l'impression que je bloque sur les formes avec comme label :

Rouge1

Jaune1

Vert1

Ou lors du debbugage j'ai droit à "variable non définie"

Pour ma part, j'ai pris des formes déjà existantes que j'ai transféré dans un autre fichier mais ça ne marche pas.

Ma question est donc, comment avez-vous procédé pour créer vos formes avec vos label dans le fichier darkkain1 ?

En effet, peut être que si je fais moi même ces formes alors ça marchera beaucoup mieux.

Cordialement