Bonjour à tous,
J'ai un soucis pour imbriquer 2 macros
Dans plusieurs colonnes j'ai des dates qui correspondent à la dernière MAJ d'un document ...
En fonction d'un pré requis qui est la révision régulière du document, je voudrais
afficher un texte et un clignotement dans une autre colonne
Exemple : la dernière date de MAJ est le 01 octobre 2011 .. et le document doit être mis à jour tous les ans
=> quand la date système est à M-2 (01 août 2012), je voudrais afficher RETARD en orange clignotant
=> quand la date système est à M ou M> cad 01 octobre 2012 ;; je voudrais afficher RETARD en rouge clignotant
j'ai trouvé deux commandes mais il faut les adapter et je ne vois pas comment, d'autant plus que j'ai plusieurs colonnes qui contiennent des dates à vérifier ???
1) Comment intégrer dans une formule "si la date en B2 est postérieure au 1 mai 2002 alors..."
Les arguments de la fonction DATE() sont respectivement Année;Mois;Jour Ainsi, j'indique le 1er mai dans l'exemple ci-dessous (pas d'ambiguité possible).
=SI(A1>DATE(2002;5;1);"Retard"; "OK")
2) Comment faire clignoter une cellule si sa valeur dépasse 100 ?Dans cet exemple, la mise en forme conditionnelle met un nombre supérieur à 100 en rouge. et la macro de feuille : fait passer la couleur de remplissage du blanc au rouge 300 fois.
Private sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
end sub
sub Clignotement()
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
end sub
Un grand merci pour votre aide
J'ai un soucis pour imbriquer 2 macros
Dans plusieurs colonnes j'ai des dates qui correspondent à la dernière MAJ d'un document ...
En fonction d'un pré requis qui est la révision régulière du document, je voudrais
afficher un texte et un clignotement dans une autre colonne
Exemple : la dernière date de MAJ est le 01 octobre 2011 .. et le document doit être mis à jour tous les ans
=> quand la date système est à M-2 (01 août 2012), je voudrais afficher RETARD en orange clignotant
=> quand la date système est à M ou M> cad 01 octobre 2012 ;; je voudrais afficher RETARD en rouge clignotant
j'ai trouvé deux commandes mais il faut les adapter et je ne vois pas comment, d'autant plus que j'ai plusieurs colonnes qui contiennent des dates à vérifier ???
1) Comment intégrer dans une formule "si la date en B2 est postérieure au 1 mai 2002 alors..."
Les arguments de la fonction DATE() sont respectivement Année;Mois;Jour Ainsi, j'indique le 1er mai dans l'exemple ci-dessous (pas d'ambiguité possible).
=SI(A1>DATE(2002;5;1);"Retard"; "OK")
2) Comment faire clignoter une cellule si sa valeur dépasse 100 ?Dans cet exemple, la mise en forme conditionnelle met un nombre supérieur à 100 en rouge. et la macro de feuille : fait passer la couleur de remplissage du blanc au rouge 300 fois.
Private sub Worksheet_Change(ByVal Target As Excel.Range)
Target.Select
If IsNumeric(Target) Then
If ActiveCell.Value > 100 Then Call Clignotement
End If
end sub
sub Clignotement()
Set plage = ActiveCell
Fond = ActiveCell.Interior.ColorIndex
For i = 1 To 300
plage.Interior.ColorIndex = 2
plage.Interior.ColorIndex = 3
Next i
plage.Interior.ColorIndex = Fond
end sub
Un grand merci pour votre aide