Programme excel

Résolu
loufact -  
Bonjour,

Je voudrais organiser mon planning qui est sous forme d'un tableau.
Pour cela je souhaiterai développer un petit programme qui permet de comparer une date avec celle d'aujourd'hui.

Par ex :
donnée date : 01/08/08
date d'aujourd'hui : 28/07/08.

Avec le programme comparaison, j'aimerai sortir un résultat "critique" car moins d'une semaine d'intervalle.
Ainsi de suite avec des écarts de plus en plus grand et donc une criticité de moins en moins élevée.
Est-il possible de faire apparaitre un code couleur pour le résultat : écart faible : rouge = moins d'une semaine, écart moyen : orange = entre une semaine et deux semaines, etc...

J'espere que vous pourrez m'aider.

LOUFACT
Configuration: Windows XP
Internet Explorer 6.0

18 réponses

  1. michel_m Contributeur
    MERCI DE RESTER SUR LE FORUM, MAJAX, TES PROPOSITIONS PEUVENT INTERESSER TOUT LE MONDE, SINON LE PRINCIPE DES FORUMS NE SERT A RIEN...

    Excuse ma colère, mais il n'y a plus guère d'espaces de solidarité gratuite; il serait dommage de les détruire...

    Michel
    2
    1. majax
      Ma propale etait plus pour des raisons de facilité car passer un exemple de fichier par le forum .....
      0
  2. loufact Auteur
    Un grand MERCI, ma macro fonctionne à merveille.

    Loufact
    0
    1. lermite222 Contributeur
      Ce qui plantait c'était la réinitialisation de >> i = 10000, ce qui fait que la boucle n'avais jamais de fin.

      Application.ScreenUpdating = False : ne pas actualiser l'affichage des modifications pour accélérer la macro,

      For i = Range("C65536").End(xlUp).Row To 3 Step -1 : renseigne la dernière ligne non vide de la colonne , ici C mais peut-être une autre colonne.
      A+
      0
      1. loufact Auteur
        Merci beaucoup.
        Vu que je n'ai pas envie e mourir bete, peux-tu m'expliquer ce qui plantait, ainsi que les deux lignes suivantes de codes :

        Application.ScreenUpdating = False

        For i = Range("C65536").End(xlUp).Row To 3 Step -1

        Encore merci.

        Loufact
        0
        2. lermite222 Contributeur
          Ca plante parce que tu tourne en rond en supprimant une ligne qui revient aussi sec.
          Essaye, 

          Sub SuppRow()
Dim i As Long
    Application.ScreenUpdating = False
    For i = Range("C65536").End(xlUp).Row To 3 Step -1
        If Cells(i, 3) <> "POS-TRADE" Then
            Rows(i).Delete
        End If
        DoEvents
    Next
    Application.ScreenUpdating = True
End Sub


          A+
          0
          1. loufact Auteur
            En fait j'ai simplifié mon programme, j'ai lu que l'on pouvait comparer deux chaines de caractères directement, mon programme est le suivant :

            Sub f()
            Dim temp As Boolean
            For i = 10000 To 3 Step -1
            If Cells(i, 3) <> "POS-TRADE" Then
            Rows(i).Delete
            i = 10000
            End If
            Next
            End Sub

            J'ai mis 10000, car mon le nombre de lignes varie de jour en jour, j'ai donc pris une grosse marge.

            Malheureusement ça plante et bien en plus, il doit y avoir un problème dans l'itération, il doit réaliser une boucle infinie à un moment.

            Une petite aide ?

            Si vous pouviez essayer sur un ex, voir de quoi je parle.

            En tout cas merci bcp.
            0
            1. lermite222 Contributeur
              ca fonctionne pas 
              Dim mot1 As String = "POS-TRADE"

              faut faire

              Dim mot1 As String
              mot1 = "POS-TRADE"
              A+
              0
              1. loufact Auteur
                Je souhaite juste supprimer les lignes d'un tableau lorsque le mot POS-TRADE apparait dans la cellule correspondant à la ligne.

                Merci de m'aider
                0
                1. loufact Auteur
                  Apparemment, il n'aime toujours pas :

                  la déclaration : Dim mot1 As String = "POS-TRADE" me renvoie une erreur.
                  Votre changement fonctionne, je n'ai plus d'erreur.

                  J'ai maintenant le programme suivant :

                  Sub g()

                  Dim mot1 As String = "POS-TRADE"

                  For i = 200 To 1 Step -1
                  If StrComp((Cells(i, 3)), mot1)=1 Then Rows(i).Delete
                  i = 200
                  Next

                  End Sub

                  cela ne fonctionne toujours pas, qu'en pensez-vous ?
                  0
                  1. lermite222 Contributeur
                    bonjour,
                    le If/Then en VBA c'est... 
                        If  Cells(i, 3) = 1 then   Rows(i).Delete

                    Si c'est en Numérique sinon c'est ="1"
                    A+
                    0
                    1. loufact Auteur
                      Bonjour,

                      J'aimerai développer un programme sous VBA excel qui permettrait de comparer des cellules et un mot donné, si ce mot n'est pas trouvé dans la cellule alors la ligne est supprimée.

                      J'ai déjà fait ça, mais je bloque :

                      Sub g()

                      Dim mot1 As String = "POS-TRADE"

                      For i = 200 To 1 Step -1
                      If StrComp((Cells(i, 3)), mot1)==1
                      Then Rows(i).Delete
                      i = 200
                      Next

                      End Sub
                      0
                      2. loufact Auteur
                        Autre message, désolé.

                        Mon planning se compose en réalité de 2 colonnes de dates :
                        -1ère colonne : date décidée
                        - 2ème colonne : date réelle

                        En fonction des dates décidées, je dois m'organiser : prévoir des actions telles que "organiser" et "prévoir".
                        En fonctiond des dates rélles, je dois réaliser une action "réceptionner".

                        J'aimerai créer un programme en VBA qui permette de prévoir des actions en fonction des dates, un support à la décision.

                        J'espère que je suis assez clair.

                        Je peux vous envoyer un ex de ce tableau, donnez moi votre mail.

                        Loufact.
                        0
                        1. loufact Auteur
                          Un programme en VBA pourrait etre tres intéressant, cel ame permettrait en plus de découvrir.

                          Loufact.
                          0
                          1. loufact Auteur
                            Merci beaucoup pour votre réponse, cela fait toujours plaisir de voir que l'entraide existe bel et bien.

                            Je vous en serai très reconnaissant si vous pouviez m'envoyer un exemple.
                            Le site www.cjoint.com me parait etre une bonne idée.

                            Mon tableau excel est une succession de dates dans une colonne.

                            Merci beaucoup
                            0
                            1. michel_m Contributeur
                              tu peux passer par www.cjoint.com pour mettre des pièces jointes ( maxi 500 Ko je crois mais on peut zipper)

                              mais il estl plus prudent maintenant d'attendre une réaction de loufact

                              Michel
                              0
                              1. majax
                                Il y a 10000 facons de faire ca
                                un mail privé et je t'envoie un exemple
                                j'ai par exemple

                                dates
                                de 01/06/08

                                zzzzz si zzzz=aujourd'hui-30j (la case passe rouge)
                                yyyy si yyyy=aujourd'hui-15j (la case passe en orange)
                                xxxx si xxxx=aujourd'hui (la case passe en vert)

                                a 12/12/08

                                on peut aussi faire des routines en VB pour tester les données , si ce que voulez faire n'est pas trop simpliste et vous donne mal a la tete je suis a votre disposition
                                0
                                1. michel_m Contributeur
                                  Bonjour,

                                  sans faire de programmation, les mises en formes conditionnelles t'offre la possibilité de 3 présentations de cellules (polices, couleurs...
                                  format-mise en forme conditionnelle (MFC) si tu ne connaissais pas

                                  Sinon on peut le faire par macro avec N formats en nous précisant les seuils et la zone d'action ....

                                  Michel
                                  0