Private Sub Worksheet_Change(ByVal Target As Range) 'code pour mettre soit une croix rouge ou une croix noir selon si ont est dans la tolerence du textbox et la cote trouve en rouge si ont est hors tolerence et une croix noir si ont est dans la tolerence
 
 
Dim Valeur As Double
Dim Tolerance As Double
bonjour
voila sur une feuille excel dans la cellule ("C3" ) j aurais une cote tolerence exemple 12.00+/-0.10
et dans la cellule (C"4" ) un resultat trouve mais je voudrais que le resultat si il est dans la tolerence exemple de 11.90 a 12.10 le resultat reste en noir
sinon si il est hors tolerence exemple 11.85 ou 12.15 le resultat en rouge
voici mon code mais cela ne marche pas
 
If (Target.Row = 4) And (Target.Column = 3) Then
    'Assigner Valeur et Tolerance
    Valeur = Left(Range("C3" ).Value, InStr(Range("C3" ).Value, "+" ) - 1)
    Tolerance = Right(Range("C3" ).Value, (Len(Range("C3" ).Value) - InStr(Range("C3" ).Value, "-" )))
     
    'Compare le contenu de target (F41) avec la valeur et tolerance
    If (Target.Value > (Valeur + Tolerance)) Or (Target.Value < (Valeur - Tolerance)) Then
        'Si c'est à l'extérieur de l'intervale
        Range("C4" ).Font.Color = 255
    Else
        'sinon c'est à l'intérieur de l'intervale
        Range("C4" ).Font.Color = 0
    End If
End If
End Sub
 
merci pour votre aide urgent

Salut (ca mange pas de pain de saluer les gens qui liront ton post)
 
Il y a une section programmation, ta demande y serait certainement plus à sa place et du coup il y aurait des personnes pour y répondre

mille excuse bonjour a tous
oui j ais trouve apres avoir valide se message
donc j ais refais le message dans la section programmation
merci quand meme de votre aide