Renseignements sur les MEFC !

cedinfo · 13 Octobre 2008

Bonjour à tous et à toutes !
Je m'adresse à vos talents d'excel afin de m'aider sur la création d'un tableau avec des MEFC ou du VB.

J'ai un tableau avec un nombre de lignes illimitées. Je souhaite colorer la ligne complète suivant le mois ou mes dépenses sont effectuées. (voir tableau ci-joint).

J'ai trouvé un module me permettant de compter les lignes qui sont colorées mais j'ai pas trouvé comment colorer mes lignes complétements avec les MEFC.

Le fichier qui est joint n'est qu'un exemple et ne ressemble pas à mon travail final.

ex: j'effectue un achat le 15 janv 2008 et j'indique dans la colonne "mois" la date ou est prévu le prelevement, si le prevelement est prévue en janvier alors ma ligne complète se colore en une couleur ou si le prevelement est en février c'est une autre couleur ainsi de suite pour chaque mois ...

Merci de votre aide.

Kotov · 13 Octobre 2008

Re : Renseignements sur les MEFC !

Bonjour Cedinfo,

Bienvenue sur ce forum.

Je te propose la macro suivante en VBA

Code:

Sub Coloriage()
Dim n&, i&
Dim M&
n = Cells(65536, 1).End(3).Rows
For i = 4 To n
If IsDate(Cells(i, 4)) Then
    Mois = Month(Cells(i, 4))
    Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Mois + 2
Else
    Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = 0
End If
Next i

End Sub

Cette macro te colorie automatiquement ton tableau, qu'importe sa longueur

Si tu souhaites choisir une couleur précise pour chaque mois, demandes le, ce n'est pas un problème.

A+
Kotov

cedinfo · 14 Octobre 2008

Re : Renseignements sur les MEFC !

Bonjour,
Merci KOTOV pour cette astuce.
Elle marche assez bien mais c'est vrai que je souhaite avoir une couleur perso pour chaque mois.
Petite remarque qui aura peut etre son importance mes Achats ne se suivent pas, c'est à dire je peux rentrer une donnée dans Janv ensuite Mars et revenir à Fev.

Peux-tu me proposer une petit script ?
J'aimerai que tu y ajoutes des commentaires afin que je comprenne un peu le systeme.

Merci D'avance.

Kotov · 14 Octobre 2008

Re : Renseignements sur les MEFC !

Bonjour Cedinfo,

Voici une macro te permettant d'attribuer une couleur spécifique à chaque mois (couleur de 1 à 56, à toi de faire des essais selon tes goûts)
L'ordre chronologique de ta saisie n'a pas d'importance.

J'ai commenté la macro (commentaire précédé d'une apostrophe)

Code:

Sub Coloriage()
'Déclaration de constantes : à chaque mois une couleur
Const Jan = 4
Const Fev = 5
Const Mar = 6
Const Avr = 7
Const Mai = 8
Const Jun = 9
Const Jul = 10
Const Aou = 11
Const Sep = 12
Const Oct = 13
Const Nov = 14
Const Dec = 15

'Déclaration de 2 variables (n= nombre de lignes du tableau, i = boucle sur chaque ligne)
Dim n&, i&
'Déclaration d'une variable numérique correspondant au mois
Dim M As Byte
'Trouve la dernière ligne écrite de la colonne A = nbre ligne du tableau
n = Cells(65536, 1).End(3).Rows

'Passe en boucle sur chaque ligne
For i = 4 To n
'Si la valeur en D est une date
If IsDate(Cells(i, 4)) Then
    'M= la valeur du mois
    M = Month(Cells(i, 4))
    'En fonction de la valeur du mois, on affecte la couleur désignée
    Select Case M
        Case 1
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Jan
        Case 2
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Fev
        Case 3
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Mar
        Case 4
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Avr
        Case 5
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Mai
        Case 6
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Jun
        Case 7
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Jul
        Case 8
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Aou
        Case 9
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Sep
        Case 10
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Oct
        Case 11
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Nov
        Case 12
        Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = Dec
    End Select
    'Si la valeur de la colonne D n'est pas une date, alors pas de couleur
    Else
    Range(Cells(i, 1), Cells(i, 9)).Interior.ColorIndex = 0
End If
Next i

End Sub

' + un bouton qui lance la macro
Private Sub CommandButton1_Click()
Coloriage
End Sub

Et je te joins un fichier test. Cliques sur le bouton rouge pour lancer la macro

Bonne soirée
Kotov

cedinfo · 14 Octobre 2008

Re : Renseignements sur les MEFC !

Kotov à dit:
Bonjour Cedinfo,

Voici une macro te permettant d'attribuer une couleur spécifique à chaque mois (couleur de 1 à 56, à toi de faire des essais selon tes goûts)
L'ordre chronologique de ta saisie n'a pas d'importance.

Bonne soirée
Kotov

Bonsoir Kotov,
Merci pour ton travail c'est sympa de ta part.
Je vais y regarder le code de plus prêt 🙂

Bonne soirée.
CédriC

Renseignements sur les MEFC !

cedinfo

Guest

Pièces jointes

Kotov

XLDnaute Impliqué

cedinfo

Guest

Kotov

XLDnaute Impliqué

Pièces jointes

cedinfo

Guest

Discussions similaires

Renseignements sur les MEFC !

cedinfo

Guest

Pièces jointes

Kotov

XLDnaute Impliqué

cedinfo

Guest

Kotov

XLDnaute Impliqué

Pièces jointes

cedinfo

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency