Macro fonction comparae date et couleur cel

fcocotte · 15 Février 2010

Bonjour,

Dans un fichier j' ai une colonne avec une date et une couleur , je mets une couleur pour dire que le traitement été fait
Pour l' instant mon fichier marche avec des fonctions mais je souhaite faire une fonction plus facile a utiliser
Pour l' instant j' ai le resultat souhaite mais avec une procedure ( je debute en VBA) :

Sub couleur()
'Permet de selectionner la plage a examiner'
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
For Each cell In Plage
'Teste la couleur de la cellule à la date du jour qui est en cellule H1'
If cell.Interior.ColorIndex = 44 Or cell.Value > Range("H1") Then
MsgBox ("ok traite")
Else
MsgBox ("Verifie")
End If
Next cell
End Sub

Je voudais la transformer en fonction de maniere a ce que dasn une colonne je mette =couleur(celulle)

Ci joint un exemple

J'espère être assez claire..

Merci d' avance

kjin · 15 Février 2010

Re : Macro fonction comparae date et couleur cel

Bonsoir,
Vraiment besoin d'une macro ?!
Uniquement MFC
A+
kjin

job75 · 15 Février 2010

Re : Macro fonction comparae date et couleur cel

Bonsoir fcocotte, salut kjin,

En restant strictement sur votre schéma,

- avec votre fonction macro Excel 4.0 (adaptée), formule en F3 :

=SI(I3="";"";SI(OU(I3>H$1;couleur=44);"OK";"A traiter"))

- avec cette fonction VBA qui fait exactement la même chose :

Code:

Function Test(cel As Range) As String
If IsDate(cel) Then Test = IIf(cel.Interior.ColorIndex = 44 Or cel > Date, "OK", "A traiter")
End Function

A+

fcocotte · 16 Février 2010

Re : Macro fonction comparae date et couleur cel

Bonjour,

Merci pour votre aide ,
kjin : ça marche bien ta solution, mais je voulais éviter ça
job75 : super c'est exactement ça que je voulais!

Je vais continuer mon apprentissage...

Bonne journée

job75 · 16 Février 2010

Re : Macro fonction comparae date et couleur cel

Bonjour fcocotte, le forum,

Je n'aime pas rester sur un travail incomplet, voici quelque chose de mieux :

- 1er fichier, en F3, il faut traiter le cas où H1 n'est pas une date :

=SI(JOUR(I3)*JOUR(H$1);SI(OU(I3>H$1;couleur=44);"OK";"A traiter");"")

- 2ème fichier, il faut un argument supplémentaire pour que la fonction soit recalculée, avec H1, à chaque ouverture du fichier :

Code:

Function Test(cel As Range[COLOR="red"], jour As Date[/COLOR]) As String
If CDate(cel) > 0 And jour > 0 Then Test = IIf(cel.Interior.ColorIndex = 44 Or cel > jour, "OK", "A traiter")
End Function

Edit 1 : si l'on entre des dates antérieures à 1900, VBA ne renvoie pas une erreur, car il traite les dates depuis l'année 100...

Edit 2 : pour les 2 fichiers, si l'on modifie la couleur d'une cellule en colonne I, les formules ne se recalculent pas : il faut appuyer sur F9 pour obtenir le recalcul.

A+

fcocotte · 16 Février 2010

Re : Macro fonction comparae date et couleur cel

Merci beaucoup pour ton aide

Macro fonction comparae date et couleur cel

fcocotte

XLDnaute Nouveau

Pièces jointes

kjin

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

fcocotte

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

fcocotte

XLDnaute Nouveau

Discussions similaires