Récupération couleur cellule dans label userfom

Bonjour a tous,

Dans le code suivant, je recherche une données dans un tableau via la fonction VLookup, tout fonctionne très bien, mais je n'arrive pas à récupérer la couleur de la cellule qui correspond à la donnée trouvée.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1.Text) = 0 Then
    Exit Sub
        ElseIf Len(TextBox1.Text) = 10 Then
        On Error GoTo errorHandler
        Label4.Caption = Application.VLookup(Val(TextBox1.Value), Range("Tbl_Produit_avant"), 2, False) 
        Me.Label3.Visible = True
        Me.Label4.Visible = True
        Exit Sub
            Else
            MsgBox "Il faut 10 chiffres pour le numéro de matériel", vbExclamation, "PRODUIT AVANT"
            TextBox1.Value = ""
            Cancel = True
            Exit Sub
    End If
errorHandler:
MsgBox "Numéro de matériel inconnu.", vbExclamation, "PRODUIT AVANT"
TextBox1.Value = ""
Cancel = True
Exit Sub
End Sub

comment faut'il faire pour rapatrier données et couleurs dans mon user.

en vous remerciant.

Bonjour,

Vous pouvez faire une recherche avec Find qui revoie un Range, du coup vous pouvez avoir la valeur, ou son InteriorColor...

@ bientôt

LouReeD

Bonjour LouReeD,

Je ne connais pas encore ce que vous me décrivez, pourriez vous m'en dire plus.

Merci.

Bonsoir,

un essai de structure :

    Dim Trouve As Range
    If Len(TextBox1.Text) = 0 Then
        Exit Sub
    ElseIf Len(TextBox1.Text) = 10 Then
        On Error GoTo errorHandler
        ' Label4.Caption = Application.VLookup(Val(TextBox1.Value), Range("Tbl_Produit_avant"), 2, False)
        Set Trouve = ActiveSheet.Range("Tbl_Produit_avant").Find(Val(TextBox1.Value))
        If Not Trouve Is Nothing Then
            Me.Label3.Visible = True
            Me.label4.Visible = True
            Me.label4.ForeColor = Trouve.Interior.Color
            Exit Sub
        End If
    Else
        MsgBox "Il faut 10 chiffres pour le numéro de matériel", vbExclamation, "PRODUIT AVANT"
        TextBox1.Value = ""
        Cancel = True
        Exit Sub
    End If
errorHandler:
    MsgBox "Numéro de matériel inconnu.", vbExclamation, "PRODUIT AVANT"
    TextBox1.Value = ""
    Cancel = True
    Exit Sub

@ bientôt

LouReeD

Bonjour LouReeD,

Merci pour ton aide, ça fonctionne très bien, suite à tes conseilles sur ton 1er post et après quelque recherche je suis parvenu a un résultat.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim r As Range
Set r = Sheets("Data_Compatibilité_Produit").Range("B2:C15000").Find(Me.TextBox1.Value, , xlValues, xlWhole)

If Len(TextBox1.Text) = 0 Then
Exit Sub
    ElseIf Len(TextBox1.Text) = 10 Then
        If Not r Is Nothing Then
        Me.Label4.Caption = r.Offset(0, 1).Value
        Me.Label4.BackColor = r.Offset(0, 1).Interior.Color
            Else
            Me.Label4.Caption = ""
            TextBox1.Value = ""
            MsgBox "Numéro de matériel inconnu", vbExclamation, "PRODUIT AVANT"
            Cancel = True
        End If
        Exit Sub
            Else
            MsgBox "Il faut 10 chiffres pour le numéro de matériel", vbExclamation, "PRODUIT AVANT"
            TextBox1.Value = ""
            Cancel = True
            Exit Sub
End If
Exit Sub
End Sub

Encore merci pour ton aide et les conseilles.

Bonne journée.

Bonjour,

Merci à vous pour le retour et les remerciements !

@ bientôt

LouReeD

Bonjour LouReed,

sincèrement désolé d'intervenir sur ce post pour un sujet différent. Mais j'ai pu voir que vous aviez proposé des fichiers de gestions de planning et je suis en train de terminer un fichier plan de charge/planning. J'ai tout expliqué dans le post ci-dessous, si vous avez possibilité de m'aider je vous en serais très reconnaissant.

https://forum.excel-pratique.com/excel/coloration-de-cases-terme-a-ajouter-165075

Bonjour

Comme annoncé sur l'autre sujet, je n'ai pas compris le fonctionnement de votre planning.

@ bientôt

LouReeD