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