format conditionnel et VBA

igor · 18 Mai 2006

Bonjour,
Je rencontre un probléme de formatage conditionnel sous VBA .pouvez vous m'aider?

Voir fichier joint

MERCI

igor [file name=Test_20060518121509.zip size=9454]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060518121509.zip[/file]

Hellboy · 18 Mai 2006

Bonjour igor

Je me demande pourquoi du met une boucle dans ton code ? Je ne vois pas comment elle sert !
Pour ce qui est de l'arrondissement, la façon de t'en sortir est d'utiliser la fonction de Excel. Soit:

val = Application.WorksheetFunction.Round(.Value, 3)

Voici ma suggestion:

Sub worksheet_change(ByVal Target As Range)

Dim val, val2, val3 As Variant
With Target
val2 = Sheets('Objectifs').Cells(.Row, .Column - 2).Value
val3 = Sheets('Objectifs + ou - 5%').Cells(.Row, .Column - 2).Value
'val = Round(cell.Value, 3)
val = Application.WorksheetFunction.Round(.Value, 3)
If .Value = Empty Then
MsgBox 'L'arrondi VBA est : ' & val, vbOKOnly
.Interior.ColorIndex = 2
.Font.ColorIndex = 1
ElseIf .Value >= 0 And val = val2 + 0.001 And val <= val3 + 0.001 - 1E-16 Then
MsgBox 'L'arrondi VBA est : ' & val, vbOKOnly
.Interior.ColorIndex = 36
.Font.ColorIndex = 1
Else: MsgBox 'L'arrondi VBA est : ' & val, vbOKOnly
.Interior.ColorIndex = 40
.Font.ColorIndex = 1
End If
End With
End Sub

format conditionnel et VBA

igor

Guest

Pièces jointes

Hellboy

XLDnaute Accro

Discussions similaires