Excel - Sélectionner_certaines_valeurs_dans_une_colonne_mais_qui_sont_des_formules_avec_un_if_then_?

Bonjour,
J'essaye de s=E9lectionner seulement certaines valeurs dans une colonne dan=
s le but de les colorier, mais celles-ci sont seulement des formules du typ=
e (A/B).
Ces valeurs doivent seulement =EAtre sup=E9rieure =E0 la moyenne par cons=
=E9quent je dois absolument garder les formules !

Par cons=E9quent, avec Cells.Value, cela ne fonctionne pas !

Ex:
iColonne =3D 3=20
For iLigne =3D5 to 65
If Cells(iLigne,iColonne).Value > Cells(68,iColonne).Value then
Cells(iLigne, iColonne).Interior.Color =3D 42120
Next iLigne

Ce code ne fonctionne pas !
Je vous remercie de votre aide !
Cordialement,

Bonjour,
Utilise la mise en forme conditionnelle.
Cordialement.
Daniel

bonsoir,=20


essaie ceci.

Sub test()
iColonne =3D 3
m =3D Cells(68, iColonne)

For iLigne =3D 5 To 65
If Cells(iLigne, iColonne) > m Then
Cells(iLigne, iColonne).Interior.Color =3D 42120
End If
Next iLigne
End Sub




ans le but de les colorier, mais celles-ci sont seulement des formules du t=
ype (A/B).
=E9quent je dois absolument garder les formules !


bonsoir,=20


essaie ceci.

Sub test()
iColonne =3D 3
m =3D Cells(68, iColonne)

For iLigne =3D 5 To 65
If Cells(iLigne, iColonne) > m Then
Cells(iLigne, iColonne).Interior.Color =3D 42120
End If
Next iLigne
End Sub

Bonjour,

Tu vas la lancer chaque fois...et celles qui ?taient d?j? colori?es mais qui
ont chang? de valeur???

''''''''
For Each c In [c5:c65].Cells
With c.Interior
If c < [c68] Then
.Color = 42120
Else
.ColorIndex = xlNone
End If
End With
Next
''''''''''
Sinon utiliser evenement changement de valeur donc cette fois pas dans un
module standard mais
dans le modulecode de la feuille
'''''
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iSect As Range, c As Range
Set iSect = Intersect(Target, [c5:c65])
If iSect Is Nothing Then Exit Sub
For Each c In iSect.Cells
With c.Interior
If c < [c68] Then
.Color = 42120
Else
.ColorIndex = xlNone
End If
End With
Next
End Sub
''''''
'--
'LSteph



Bonjour,
J'essaye de s?lectionner seulement certaines valeurs dans une colonne dans
le but de les colorier, mais celles-ci sont seulement des formules du type
(A/B).
Ces valeurs doivent seulement ?tre sup?rieure ? la moyenne par cons?quent je
dois absolument garder les formules !

Par cons?quent, avec Cells.Value, cela ne fonctionne pas !

Ex:
iColonne = 3
For iLigne =5 to 65
If Cells(iLigne,iColonne).Value > Cells(68,iColonne).Value then
Cells(iLigne, iColonne).Interior.Color = 42120
Next iLigne

Ce code ne fonctionne pas !
Je vous remercie de votre aide !
Cordialement,

...ceci dit  c'est juste pour l'exercice en VBA,
car il est bien ?vident comme dit Daniel que la MEFC d'excel est
prioritairement plus simple!

Cordialement.

--
LSteph