Discussion :

[mia.555]

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

[Philippe Tulliez]

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,

Un code qui brille par son absence.

Pas besoin de code VBA pour cela, voir du côté de la mise en forme conditionnelle.

[Menhir]

Je suis entièrement d'accord avec Philippe 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.

[mia.555]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

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

[Menhir]

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

[mia.555]

"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é.

[mia.555]

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

[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.

[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