code couleur vba

Version imprimable

15/11/2016, 16h11
mia.555

code couleur vba

Bonjour,

J'aimerais que vous m'aidiez à ajouter dans mon code des codes couleurs. En faite j'ai déjà crée un code archivage qui m'archive toutes les lignes qui sont à 5 mois avant l'échéance dans un classeur fermé. Chose faite. A partir de ce code,

j'aimerais à chaque fois archivage qu'il me met ma cellule 6 de la feuille 1 de mon classeur fermé en vert et en orange si on est à 3 mois avant l'échéance.

Merci d'avance
15/11/2016, 20h43
Philippe Tulliez

Bonjour,

Citation:

J'aimerais que vous m'aidiez à ajouter dans mon code des codes couleurs. En faite j'ai déjà crée un code archivage qui m'archive toutes les lignes qui sont à 5 mois avant l'échéance dans un classeur fermé. Chose faite. A partir de ce code,

Un code qui brille par son absence.

Pas besoin de code VBA pour cela, voir du côté de la mise en forme conditionnelle.
16/11/2016, 09h02
Menhir

Je suis entièrement d'accord avec Philippe :plusser: pour ce qui est de l'usage de mise en forme conditionnelle dans ce cas et, comme lui, je déconseille l'usage du VBA pour ça.

Néanmoins, si tu persistes à vouloir établir cette couleur en VBA :
https://msdn.microsoft.com/fr-fr/lib.../ff196598.aspx
https://msdn.microsoft.com/fr-fr/lib.../ff840499.aspx

Mais ce sont des informations que tu aurais pu obtenir sans difficulté avec l'enregistreur automatique de macros.

Bonjour Menhir, Philippe,
Bon je ne veux pas utiliser la mise en forme connditionnelle , j'aimerais que tout se fait en vba. J'ai ouvert les liens que tu m'as envoyés mais y'a des trucs que je ne comprenne pas.Voci mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
LigneEnLecture = 7
    'Déclaration de la variable DateDeFinalisation de type Date
    Dim DateDeFinalisation As Date
    'Déclaration de la variable DateDeFinalisation de type Date
    Dim DateAujourdhui As Date
    'Affection à la variable DateAujourdhui à la date d'aujourd'hui
    DateAujourdhui = Now
    'Cette variable représente le numéro de la ligne où finit le contenu des données (fichier Plan)
    Dim LigneFinDonnees As Long
    'Affectation du numéro de la ligne où termine le contenu des données à la variable FinDonnees
    LigneFinDonnees = LesPlans.[A1048576].End(xlUp).Row
    'On parcours l'ensemble des lignes contenant des entrées
    While (LigneEnLecture <= LigneFinDonnees)
        'Sélection de la feuille "Plans" du classeur de gestion
        LesPlans.Activate
        'Affection à la variable DateDeFinalisation la date se trouvant dans la colonne Date Finalisation
        With Cells(LigneEnLecture, 6)
           If IsDate(.Value) Then
               DateDeFinalisation = .Value
           Else
               'Si la colonne n'a pas un format correct de date
               DateDeFinalisation = Now
           End If
        End With
 
        If (Cells(LigneEnLecture, 40) = "Oui" _
          And DateDiff("m", DateAujourdhui, DateDeFinalisation) = 5) Then
                   'Déclaration de la variable LigneFinDonneesArchive de Type Long
                Dim LigneFinDonneesArchive As Long
                'Déclaration de la variable LigneFinDonneesArchive de Type Long
                Dim LigneFinDonneesArchiveSuivisVisiteSignature As Long
                'Sélection de la feuille "Plans" du classeur de gestion
                LesPlans.Activate
                'On sélectionne la ligne à archiver, cad LigneEnLecture
                LesPlans.Rows(LigneEnLecture).Select
                'Copie de la ligne sélectionnée
                Selection.Copy
                'Affectation du bon classeur
                Set ClasseurPlansSignesArchives = Application.Workbooks.Open("\\mv0\Stag\Sta\projet\Automatisation BDD PP\Documents\Développement\Futur Environnement\Gestion des Plans .xlsm")
                 'Ouverture du classeur où seront collées les données de la ligne sélectionnée
                ClasseurPlansSignesArchives.Activate
                'Sélection de la feuille "Plans" du classeur ouvert
                ClasseurPlansSignesArchives.Sheets("Plans ").Activate
                'Affectation du numéro de la ligne où finit le contenu des données à la variable NouvelleLigneDebutDonnees
                LigneFinDonneesArchive = ClasseurPlansSignesArchives.Sheets("Plans").[A1048576].End(xlUp).Row
                'Selection de la ligne où sera copiée l'entrée à archiver
                ClasseurPlansSignesArchives.Sheets("Plans").Rows(LigneFinDonneesArchive + 1).Select
                'Puis on colle le tout sur la fauille
                Selection.PasteSpecial

16/11/2016, 11h32
Philippe Tulliez

Bonjour,
Autre lien Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB

Citation:

Bon je ne veux pas utiliser la mise en forme connditionnelle , j'aimerais que tout se fait en vba. J'ai ouvert les liens que tu m'as envoyés mais y'a des trucs que je ne comprenne pas.Voci mon code

Tu es libre de ton choix mais j'ai renoncé à aider des personnes qui utilisent des usines à gaz au lieu d'utiliser les outils natifs d'excel voir dans le cas où malgré tout ils souhaiteraient utiliser du VBA n'utiliseraient pas les méthodes propres à ces objets car j'ai l'impression de perdre mon temps.
En guise d'exemple, voir le chapitre V. La manipulation des MFC par macro
16/11/2016, 11h46
Menhir

Citation:

Envoyé par mia.555

J'ai ouvert les liens que tu m'as envoyés mais y'a des trucs que je ne comprenne pas.

"un truc", c'est plutôt vague pour pouvoir t'expliquer... :?
16/11/2016, 11h54
mia.555

Citation:

Envoyé par Menhir

"un truc", c'est plutôt vague pour pouvoir t'expliquer... :?

https://msdn.microsoft.com/fr-fr/lib.../ff196598.aspx C'est juste que je ne sais pas comment l'adapter dans le code que je vous ai envoyé.
16/11/2016, 11h55
mia.555

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Autre lien Les couleurs en VBA Excel: Les équivalences Hex-Long-RGB

Tu es libre de ton choix mais j'ai renoncé à aider des personnes qui utilisent des usines à gaz au lieu d'utiliser les outils natifs d'excel voir dans le cas où malgré tout ils souhaiteraient utiliser malgré tout du VBA n'utiliseraient pas les méthodes propres à ces objets car j'ai l'impression de perdre mon temps.
En guise d'exemple, voir le chapitre V. La manipulation des MFC par macro

Merci Philippe, j'ouvrirai vos liens pour mieux comprendre
16/11/2016, 12h38
unparia

Bonjour et un salut à Philippe Tulliez
Il arrive (je le sais par expérience) que les "exigences" exprimées correspondent à des méthodes imposées dans un exercice scolaire.
Reste à savoir si "coller" à ces "cadres" est la vocation fondamentale d'un forum de développement.
Voilà.
Amitiés.
16/11/2016, 15h36
mia.555

Je viens de trouver le code qu'il me faut. J'ai juste inséré Cells(LigneFinDonneesArchive + 1, 6).Interior.ColorIndex = 10 après selectionPasteSpecial.

Merci