Renseignements sur les MEFC !

  • Initiateur de la discussion Initiateur de la discussion cedinfo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

cedinfo

XLDnaute Nouveau
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.
 

Pièces jointes

Dernière édition:
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
 
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.
 
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
 

Pièces jointes

Dernière édition:
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.

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
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
822
Réponses
0
Affichages
1 K
Réponses
19
Affichages
19 K
Retour