MFC en VBA sur une plage
Bonsoir,
Voici mon problème
la cellule B2 est la date d'aujourd'hui
je cherche à mettre plusieur MFC en fonction de la date de la colonne B
plus exactement l'année
en clair :
si B3 > annee(B2) + 2 alors B D E 3 en rouge
si B3 > annee(B2) + 3 alors B D E 3 en VERT
si B3 > annee(B2) + 4 alors B D E 3 en BLEU
si B3 > annee(B2) + 5 alors B D E 3 en ORANGE
si B3 > annee(B2) + 6 alors B D E 3 en VIOLET
si B3 > annee(B2) + 10 alors B D E 3 en BRUN
et sa pour toute la plage des dates.
merci de votre aide j'ai mis plus d'explication dans le fichier
bonsoir
voici un premier jet pour être sûr que ça répond bien à la question
heu pris par le temps (coupe du monde oblige j'ai mis des valeurs de couleur au hasard ) mais promis je compléterai avec les couleurs demandées
Sub mfc()
'by bemann 11/07/2010
today = Range("b2").Value
For Each cell In Range("b3:b23")
Select Case Year(cell) - Year(today)
Case 2
Range(cell, cell.Offset(0, 3)).Interior.ColorIndex = 3
Case 3
Range(cell, cell.Offset(0, 3)).Interior.ColorIndex = 4
Case 4
Range(cell, cell.Offset(0, 3)).Interior.ColorIndex = 5
Case 5
Range(cell, cell.Offset(0, 3)).Interior.ColorIndex = 46
Case 6
Range(cell, cell.Offset(0, 3)).Interior.ColorIndex = 18
Case 10
Range(cell, cell.Offset(0, 3)).Interior.ColorIndex = 45
End Select
Next cell
End Sub
ne vous moquez pas de mon code les experts en développement je ne suis qu'amateur en VBA !!!
cordialement
et bien bemann
je viens d'essayer effectivement sa marche !
donc merci beaucoup
maintenant afin d'affiner le truc je ne souhaite pas que la colonne C soit colorisée
et si la cellule A2 est égal à toto alors les condition change
exemple B2 + 5 au lieu de B2+2
est il possible de le faire
mais encore merci
re
pour la colonne C qui est vide (jamais de colonne vide dans un tableau)
rajouter avant le end sub
Range("c:c").Interior.ColorIndex = -4142
pour ce qui se passe si A contient "toto" ou jene saisquoi l'hypothèse n'a pas encore été évoquée alors il faudrait, pour un code adapté, une vue d'ensemble du projet
faut il tester si les cellules de la colonne B contiennent des dates ? par exemple
quelle est la finalité du projet ?
A vous lire
cordialement
et bien en fait pour l'histoire du toto et du reste j'ai trouvé une soluce
je passe par un copier coller de la macro en y ajoutant
if range("A2").value="toto" then
....;
end if
en ce qui concerne les colonne vide c'est afin d'avoir un affichage claire
la finalité est un tableau financier d'amortissement récapitulant les dernières 20ène d'année
merci beaucoup de ton aide car le visuel est nickel même si peut être le code peut être allégé par des pros
bonne soirée à toi
bonjour
merci de bien vouloir cloturer le sujet si vous êtes satisfait des propositions
cordialement
Ok dsl
merci encore pour l'aide