probleme de macro - Matériels & problèmes divers - Hardware
Marsh Posté le 04-12-2014 à 10:43:06
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
Marsh Posté le 04-12-2014 à 14:09:42
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
Marsh Posté le 03-12-2014 à 16:16:35
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