Pb sur les dates et ou taper le codeRésolu

Question

Bonjour &#224; tous, voil&#224; je suis super d&#233;butant en vb et je cherche &#224; faire un truc tout simple :
Dans excel, j'ai une colonne avec des dates en couleur noire et j'aimerai que celles qui ont une diff&#233;rence sup&#233;rieure &#224; 12 jours avec la date courante passent en rouge.
De plus j'aimerai que &#231;a se lance &#224; l'ouverture du fichier excel, sans avoir &#224; cliquer sur un bouton ou quoi que ce soit!!
Y a-t-il un code tout pr&#234;t?  Quelqu'un a-t-il une solution?

Aidez moi merci!!!!

cs_CanisLupus · Accepted Answer

Salut,

Menu "Outils/Macro/Visual basic editor" ou Alt+F11.

Dans ThisWorkBook, tu colles ce code :

Private Sub Workbook_Open()
Dim i As Long
dim col as Long

   col = 1 ' colonne A, tu mets la colonne que tu veux


    ' activation de la feuille, tu mets le nom de la tienne
    Sheets("Feuil1").Activate


    ' on parcourre les lignes jusqu'&#224; la derni&#232;re renseign&#233;e
    For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
        If IsDate(Cells(i, col).Value) Then 'si c'est une date
            If Cells(i, col).Value > Date + 12 Then
                Cells(i, col).Font.ColorIndex = 3 ' couleur police en rouge
            End If
        Else
            Exit For
        End If
    Next


End Sub



-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

jsem2k1 · Answer

The J


Bon Voil&#224; Moi aussi j'ai d&#233;ja eu un truc de se genre la ma solution est la suivante
Supposons que Les date a traiter se trouve dans la Colone 1 sur la feuille du nom &#171;Sheet1&#187; il suffi de mettre le code suivant dans la section &#171;Thisworkbook&#187; et le tour est jouer.


Private Sub Workbook_Open()

Dim interval As Integer 'Contien la diff&#233;rance entre la date du jour et celle de la Cellule

'On commence par s&#233;lectionner touts les cellule non-vide de la colone A1
Sheets("Sheet1").Range("A1", Range("A1").End(xlDown)).Select


'On boucle sur toutes les cellues s&#233;lectionn&#233;es et on v&#233;rifie la condition
For Each Cell In Selection
   If IsDate(Cell.Value) = True Then 'On v&#233;rifi si c une date
         interval = (Date - Cell.Value)
         Select Case interval
                 Case Is = 12 ' S'il y a une diff&#233;rance de 12 jours exactement
                      Cell.Font.ColorIndex = 4 'On met la date en Vert Clair
                 Case Is > 12 ' S'il y a une diff&#233;rance de plus de 12 jours
                      Cell.Font.ColorIndex = 3 'On met la date en Rouge
                  Case Is < 12
                           'Ici tu peux mettre ce que tu veux
                           'Si tu veux faire un traitement particulier quand &#171;interval&#187;
                           'plus petit que 12
         End Select

   Else


         'Ici si la valeur de la cellule n'est pas une date
         'Tu peux faire le traitement que tu veux ici




   End If


Next


End Sub

jsem2k1 · Answer

The J

Ha Zut D&#233;sol&#233; je n'avais pas vue que CanisLupus avais d&#233;ja r&#233;pondu il faut dire que nos code sont pas mal ressemblant!!!! Au moins il y a sa de bon Je suis sure que je ne suis pas aussi nul que sa

Molenn · Answer

Je peux faire une petite r&#233;flexion toute b&#234;te ? Il n'y a pas forc&#233;ment besoin de passer par un code VB pour faire &#231;a, il y a beaucoup plus simple. Une fonctionnalit&#233; d'Excel 

Ca s'appelle la mise en forme conditionnelle.
Donc, sur une cellule donn&#233;e, faire le Menu\Affichage\Mise en forme conditionnelle

Mettre comme condition :
La formule est : =JOUR(AUJOURDHUI()-Case s&#233;lectionn&#233;e contenant la date)>12
Et avec le bouton Format, d&#233;finir l'effet voulu (changement de couleur, de police, de fond, ...)

Puis avec le superbe est magnifique outil Pinceau, copier ce format conditionnel sur toutes les cases qui int&#233;ressent voire la colone.

Ca a l'avantage de fonctionner d&#232;s que le fichier Excel est ouvert, la mise &#224; jour est en temps r&#233;el d&#232;s une modification de date (il faut que l'option Calcul automatique soit coch&#233;e tout de m&#234;me, sinon, il faudra faire F9 pour rafraichir les formats).

Voil&#224; voil&#224;

jsem2k1 · Answer

H&#233; oui c tout b&#234;te je l'avais oblier sa... Voir qu'a force de tapper du code on fini par oblier qu'il y a plus simple (une sorte de d&#233;formation professionelle)

The J

cs_CanisLupus · Answer

Ouaip, moi aussi j'avais oubli&#233; cette fonction. Je ne fais pas trop de bureautique.
Par contre la formule donn&#233;e par Molenn ne fonctionne pas, il faudrait faire :
=AUJOURDHUI()-$A$1>12
sinon ce n'est qu'une diff&#233;rence entre des jours et non pas des dates (par ex, 25/06/04 compar&#233;e avec aujourd'hui ne changerait pas de couleur, et pourtant ...).

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Bon sang de copier/coller 

AUJOURDHUI()-Case s&#233;lectionn&#233;e contenant la date >12

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Pb sur les dates et ou taper le code

7 réponses

Discussions similaires