Probleme sous excel

Question

Bonjour,
 je sui larissa, je découvré votre site et il est vraiment primordial pour aider lew gens en difficulté !!
Aujrdui j'ai moi meme un petit probleme que j'espere que vous pourriez le résoudre !!!

Alr je suis sous excel, et je dois automatiser mon tableau de données a partir de la date cad qu'a chaque changement de mois, on doi prendre en compt les jours etc...ceci est réglé enfin je crois mais mon probleme est d'initilaiser des cases précises de mon tableau et je bloque vraiment la dessus !!!

Encor merci d'avance !!!

amigo · Answer

Bonjour,

Quel est exactement le problème, ça ne marche pas, ou bien tu ne sais pas comment faire. Essaie d'etre plus précis.

A+.

Lala · Answer

Alors hier je me suis rendue compte de mon erreur, la date est un véritable problem car g assigné chaque jour a la date cad, j'ai mon tableau
 
par ex:
             1/6/2008                         dim     lun        mar   mer     jeu.......
                                                    1        2            3     4        5.....

et jai mis la fonction "=AUJOURDHUI()", et cela donne

              2/6/2008                         mar    mer        jeu   ven     sam.......
                                                    1        2            3     4        5.....

mais ce n'est pas du tout ce que je veux en au final je dois avoir qu'un changemnt de date que lorsque l'on change de mois cad : 
                1/6/2008                         dim     lun        mar   mer     jeu.......
                                                    1        2            3     4        5.....
    après changement de mois:
                    1/7/2008                   mar    mer    jeu   ven     sam.......
                                                    1        2        3      4        5..... 

et 2e probleme : en dessou de ces dates justement j'ai des cases a cocher mais qui doivent etre initialiser a chaque nouveau mois mais on le verra eventuellement plus tard !!!

Walaaaaa, j'espere avoir été assez comprehensive et encore miciii ^^ !!!

Lala · Answer

J'ai commencé a réfléchir à mon 2e probleme, je dois taper du code sous visual basic en fait créer une macro qui remplace le caractere 'x' de chaque case de ma plage que j'aurais au préalable sélectionnée par un "" !!! Et au niveau du code je bloque un peu s'il est possible que vous m'aidiez !!!

amigo · Answer

Bonjour,

Si j'ai bien compris, c'est une sorte de calendrier que tu veux faire.
En A1 tu tapes la date manuellement (exemple 01/06/2008)
De B1 à AF1 c'est le nom du jour automatiquement (dim,lun,mar,...)
De B2 à AF2 c'est le numéro du jour (01,02,03,...)

C'est bien ça?

Si OUI, je peux t'indiquer les formules et les formats des dates à utiliser.

Si NON, reformule ta question.

A+.

Lala · Answer

en fait voila, j'ai crée un calendrier pour le mois de juin et ensuitej'ai besoin de 2 choses : 

_seulement quand on arrive au mois de juillet et ainsi de suite, que le calendrier se mette a jour

_aussi je dois initialiser les cases de mon calendrier sur une plage bien précise, pour cela je pense qu'il faut une macro mais j'en susi pas sure !!!

amigo · Answer

re,

Voici les formules à mettre dans ton tableau

La date change automatiquement chaque mois
cellule A1
Formule : =DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI());1)
Format personnalisé : date "jj/mm/aaa"

Le nom du jour change automatiquement
cellule B1
Formule : =A1
Format personnalisé : date "jjj"

cellules B1 à AC1
Formule : =SI(JOUR(B2+1)<JOUR(B2);"";B1+1)
Format personnalisé : date "jjj"

cellules AD1 à AF1
Formule : =SI(AE1="";"";SI(JOUR(AE2+1)<JOUR(AE2);"";AE1+1))
Format personnalisé : date "jjj"


Le numéro du jour change automatiquement (seul le format change)
cellule B2
Formule : =A1
Format personnalisé : date "jj"

cellules B2 à AC2
Formule : =SI(JOUR(B2+1)<JOUR(B2);"";B1+1)
Format personnalisé : date "jj"

cellules AD2 à AF2
Formule : =SI(AE1="";"";SI(JOUR(AE2+1)<JOUR(AE2);"";AE1+1))
Format personnalisé : date "jj"

Si ça marche, on verra pour la suite.

A+.

Lala · Answer

RE,

hey merci bcp bcp bcp amigo, j'ai fait les tests et cela marche à la perfection encore merci.

Ben si tu veux bien on peux toujours résoudre mon 2e probleme, je te réexplique le principe :

alors lorsque l'on passe au mois suivant, je dois avoir une sorte de rafraichissement de la page cad 2 choses : 
 
_ les cases cochées doivent etre vides

_ les cases coloriées doivent retrouvées la meme couleur d'origine car dans mon tableau j'ai des cases de plusieurs couleurs en fait.

^^merci d'avance !!!

amigo · Answer

Ok,

Pour le deuxième problème:

Ce qu'il faut faire, c'est enregistrer une macro qui rénitialise la feuille.
Dans le menu Outils -> Macros -> Nouvelle Macro

Ensuite tu fais manuellement les modifs sur ton tableau comme si tu voulais le remettre à zéro. Tu effaces les "X", tu remets les couleurs originales ...

Quand c'est fini tu arrêtes l'enregistrement de la macro. Fais un test, en remettant quelques coches et des cases en couleur. Executes la macro  pour voir si tout va bien.

Il faut se reserver une cellule dans laquelle on mettra la date de la dernière réinitialisation, ceci pour éviter l'effacement des données plusieurs fois dans le meme mois. Cette cellule peut etre sur une autre feuille, ou dans une cellule masquée,
à toi de voir ou ça ne gènera pas la mise en forme.

Fais tout ça, on continuera après.

A+.

Lala · Answer

euh j'ai rencontré un petit probleme c'est que la macro ne marche que pour les case que l'on a effacé lors de l'enregistrement masi j'ai plus d'une centaine de case à remplir, je dois le faire pour toutes ???

Lala · Answer

J'ai enfin réussi a faire ma macro en entier pfiouuuu c'était long !!! Derniere petite question, juste savoir si c'est possible de lancer la macro en meme temps que le changement de mois ??? Après je n'emebete plus hihi ^^ !!!

amigo · Answer

La macro est au point?

Sinon, tu peux la poster et je regarderais.

J'ai besoin de savoir le nom de la macro que tu as crée et les références de la cellule réservée à la date de dernière réinitialisation pour compléter la procédure qui s'exécutera automatiquement à chaque ouverture du dossier.
On fait le test si la date en A1 est différente de la date de dernière initialisation alors c'est qu'on a changé de mois et on executera ta macro.

A+.

Lala · Answer

Ma macro je l'ai renommé "Rafraichissement" et au niveau de la référence on pourra éventuellement mettre la date de dernière réinitialisation : "formule" au dessus de la date d'aujourd'hui et pour le test faudra que tu me dises quoi faire!!!

 LA j'en suis a "réussite d'effacement des croix et la remise des couleurs initiales" !!!

Lala · Answer

et pour la macro le code, ca donne ca : 

Sub Rafraichissement()
'
' Rafraichissement Macro
' Macro enregistrée le 03/06/2008 par Stagiaire
'
' Touche de raccourci du clavier: Ctrl+r
'
    Range("C11").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C14").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C18").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C20").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C22").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C22").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C22:AW22").Select
    Selection.Interior.ColorIndex = 36
    Range("C24").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C27").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C29").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C29:BC30").Select
    Selection.Interior.ColorIndex = 36
    Range("C32").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C34").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C40").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C40:T40").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C40:BC41").Select
    Selection.Interior.ColorIndex = 36
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("C12").Select
    Selection.Interior.ColorIndex = 44
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 44
    Range("C16").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 44
    Range("C26").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 44
    Range("C37").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C37:BC39").Select
    Selection.Interior.ColorIndex = 44
    Range("C42").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 44
    Range("O13").Select
    Selection.Interior.ColorIndex = 35
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("O15").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("Q17").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("C13").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("C15").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("C17").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("C17:Q17").Select
    Selection.Interior.ColorIndex = 35
    Range("C19").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("C21").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("B23").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("B25").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("B28").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("B31").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("B33").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("B35").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("B35:BC36").Select
    Selection.Interior.ColorIndex = 35
    Range("A36").Select
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
    Range("C36").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 2
    Range("AB34").Select
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("F22").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("H12").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("K22").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("H17").Select
    ActiveCell.FormulaR1C1 = "x"
    Range("J11").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    Range("C11:AW42").Select
    Selection.ClearContents
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    Range("C7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C9").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 36
    Range("C8").Select
    Selection.Interior.ColorIndex = 35
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("C10").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Interior.ColorIndex = 35
    Range("C7:AW10").Select
    Selection.ClearContents
    Range("B7").Select
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 27
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 42
    ActiveWindow.ScrollColumn = 41
    ActiveWindow.ScrollColumn = 40
    ActiveWindow.ScrollColumn = 39
    ActiveWindow.ScrollColumn = 38
    ActiveWindow.ScrollColumn = 37
    ActiveWindow.ScrollColumn = 36
    ActiveWindow.ScrollColumn = 35
    ActiveWindow.ScrollColumn = 34
    ActiveWindow.ScrollColumn = 33
    ActiveWindow.ScrollColumn = 32
    ActiveWindow.ScrollColumn = 31
    ActiveWindow.ScrollColumn = 30
    ActiveWindow.ScrollColumn = 29
    ActiveWindow.ScrollColumn = 28
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
End Sub

amigo · Answer

On continue,

Dans la macro Rafraichissement tu peux supprimer toutes les lignes
ActiveWindow.ScrollRow = ... 
ActiveWindow.ScrollColumn = ...
ça ne sert à rien.

tu peux aussi terminer la macro par 
Range("A1").Select 
End Sub
c'est pour se positionner au début du tableau.

Voici la macro qui s'executera à chaque ouverture du classeur:

Dans l'editeur VisualBasic, Click droit sur ThisWorkbook -> Code (ou double-click sur ThisWorkbook)
Dans la page de code colle cette procédure

Private Sub Workbook_Open()
Dim Date_Init As Date, Date_jour As Date
Dim Mois_Init As Integer, Mois_Courant As Integer
Dim Rep As Integer

If ThisWorkbook.ActiveSheet.Range("formule").Value = "" Then
   Rep = MsgBox("Voulez-vous Initialiser le tableau?", vbQuestion + vbYesNo, "Initialisation")
   If Rep = vbYes Then
        Call Rafraichissement
        MsgBox "Tableau initialisé à la date du " & Date
        ThisWorkbook.ActiveSheet.Range("formule").Value = Date
   End If
   Exit Sub
End If

Date_Init = ThisWorkbook.ActiveSheet.Range("formule").Value
Date_jour = Date

Mois_Init = Month(Date_Init)
Mois_Courant = Month(Date_jour)

If Mois_Courant > Mois_Init Then
   Rep = MsgBox("Voulez-vous Initialiser le tableau?", vbQuestion + vbYesNo, "Initialisation")
   If Rep = vbYes Then
        Call Rafraichissement
        MsgBox "Tableau initialisé à la date du " & Date
        ThisWorkbook.ActiveSheet.Range("formule").Value = Date
   End If
End If
End Sub


Faire le test:
1) mettre la cellule "formule" à vide , sauvegarder, fermer, ouvrir le classeur: un message doit s'afficher, repondre oui

2) sauvegarder, fermer, ouvrir le classeur: aucun message ne doit apparaitre

3) dans la cellule "formule" mettre la date du mois dernier (01/05/2008)
sauvegarder, fermer, ouvrir le classeur: un message doit s'afficher, repondre oui

4) sauvegarder, fermer, ouvrir le classeur: aucun message ne doit apparaitre

A+.

Lala · Answer

Bonjour,

alors je viens de faire le test et à la réouverture il m'affiche le message d'erreur suivant : 

Erreur d'exécution '1004'
Erreur d"finie par l'application ou par l'objet

Qu'est-ce que je dus faire ?

Lala · Answer

Aie je viens de constater un petite probleme en ce qui concerne aussi la réinitialisation, j'ai supprimé toutes les lignes inutiles mais après ca, il y a un décalage des couleurs en fait mais éventuellement je pourrais recommencer ce n'est pas un problème !!!

amigo · Answer

bonjour,

ça doit etre la cellule nommée "formule" qui n'est pas définie.
Tu m'avais dit que "formule" était la cellule réservée à la date de dernière initialisation.
2 solutions: soit tu remplace "formule" par l'adresse de la cellule (par exemple "A2"), soit tu nomme cette cellule formule.

Si ça marche toujours pas dit moi exactement sur quelle ligne ça bloque.
A+.

Lala · Answer

Alors la vraiment ca roule parfaitement mais j'ai ce probleme de décalage de colonnes des couleurs la qui m'emebete vraiment !!! Si y' a un moyen simple de remédier a cela !!!

amigo · Answer

De quel décalage de colonne il s'agit, je n'ai pas le fichier sous les yeux, alors difficile de te conseiller.
Donne plus de détails, ou bien tu met ton fichier sur

http://www.cijoint.fr/

et tu me poste le lien.

A+.

Lala · Answer

Wala ça c'est fait !!!

amigo · Answer

Qu'est ce que tu as fait?, je ne vois rien.

Il faut copier le lien qui est donné quand tu dépose ton fichier, c'est ce qui permet de le retouver.
Si tu as ce lien, il faut le copier ici, sinon à refaire.

A+.

Lala · Answer

Ouuuuups disoulé zavé oubliette ben wala le lien :

http://www.cijoint.fr/cjlink.php?file=cj200806/cijsxIr87Q.xls.

amigo · Answer

J'ai le fichier,

Il y a des "x" marqués dans le tableau, faut-il les laisser?

A+.

Lala · Answer

Nan justement kan on le rafraichit ils doivent disparaitrte !!!

amigo · Answer

J'ai refait la procédure rafraichissement.

Mais il y a un problème dans ton tableau, il y a des jour à 3 colonnes JJN, des lours à 2 colonnes JN et des jours à une colonnes. Quand tu va changer de mois, tout sera décalé, aussi bien tu aura un dimanche à 3 colonnes et un lundi à 1 colonne. Donc tu auras à tout refaire à la main. Il faut absolument que les jours ait le meme nombre de colonnes au départ.

Apres tu peux en masquer certaines qui ne servent pas.
On peut automatiser, mais il faut une logique, par exemple tous les jundis ont 3 colonnes JJN, les mardis 1 colonne N ...

Est ce j'ai bien compris, ou alors c'est au cas par cas.

Je pourrais revoir ton tableau si j'ai un peu de temps, sinon je te donne juste la macro Rafraichissement.

Qu'en penses tu?

Lala · Answer

Rebjr,

alors effectivement le nb de cases doit tj correspondre cad ke le dimanch il a 1 case, le luindi en a 3 etc...et ce tj pareil pr chaque mois ca doit pas changer !!!

Je viens de me rendre compt d'un oubli que mon ami m'a fait part, c'est que en fait on doit garder une trace du mois précédent et en fait, qd on change de mois, il faut créer une nvl page avec le rafraichissement etc, je pense que la il y a une redirection a faire mais je ne sais pas !!!

amigo · Answer

Bonjour,

J'ai analysé ton tableau, et la conclusion est que pour automatiser la mise à jour, il faut revoir pas mal de choses.
Je te proposerai une nouvelle trame. En attendant, reprend le tableau de Mai 2008.
Il faut supprimer la macro Workbook_open().

Voici la nouvelle macro Raffraichissement pour vider le tableau et remettre les bonne couleurs. Il faut l'executer manuellement.

Sub Rafraichissement()

Dim deb As Integer, lig As Integer, col As Integer
Dim i As Integer, couleur As Integer
    Range("A1").Select
    Cells.Find(What:="H. sup", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    col = ActiveCell.Column
    Range("A1").Select
    Cells.Find(What:="NOM", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    deb = ActiveCell.Row + 4
    Range("A1").Select
    Cells.Find(What:="Heure de fin", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate
    lig = ActiveCell.Row - 2
   
For i = deb To lig
     Cells(i, 1).Select
     couleur = Selection.Interior.ColorIndex
     Range(Cells(i, 1), Cells(i, col)).Select
     Selection.Interior.ColorIndex = couleur
Next
     Range(Cells(7, 3), Cells(lig, col)).Select
     Selection.Interior.Pattern = xlSolid
     Selection.ClearContents
     Cells(deb, 3).Select
End Sub

A+.

Lala · Answer

Rah mais la par contre c'est pas bon du tout parce que j'ai fait la meme chose pour le mois de juin et il m'efface toutes les cellules lun, mar,... et 1, 2, 3,.....!!!

amigo · Answer

Re,

Oui, j'ai oublié de parametrer la première cellule du tableau
Faire la correction à la fin de la macro

     Range(Cells(deb, 3), Cells(lig, col)).Select
     Selection.Interior.Pattern = xlSolid
     Selection.ClearContents
     Cells(deb, 3).Select
End Sub
J'espère que tu fais les tests sur une copie.

A+.

lala · Answer

Re,

oui oui, j'ai prise le soin d'en faire une copie afin d'y apporter les nouvelles modif' pr voir ce que cela a comm effet !!!

Mais mise a part peut etre d'une erreur de ma part cela donne tj la mm chose, il m'efface tj mes cases de date lun.... et 1..... !!!

lala · Answer

J'ai fait quelques petits réglages et tout est okay, il ne me reste maintenant que 2 choses a faire :

_ faire correspondre les cases avec les colonnes kan on change de moi

_ et savoir comment apporter les éléments de la page précédente a celle qui a été créé tout en prenant en compte les modifications !!!

lala · Answer

euuuuuuh amigo t'es toujours la ?

lala · Answer

Alors j'ai tout fait, mais un dernier probleme persiste c'est justement cette correspondance des colonnes que je n'arrive pas du tout a trouver de fonction qui correspondent !!!

amigo · Answer

Bonjour,

ça m'a pris un peu de temps, mais j'ai fini la maquette.

http://www.cijoint.fr/cjlink.php?file=cj200806/cijtXpfQE3.xls

Clic droit sur toto.xls et enregistrer la cible

Le calendrier se présente sur 6 semaines
Le mois en cours s'affiche en partie sur la première semaine ,puis sur les 4 suivantes et en partie sur la semaine 6, en fonction du premier jour du mois.

Une fois le mois initialisé, la partie inutilisée peut-etre masquée.

Le module comporte 4 procédures:

Copier_feuille
Cette procédure fait une copie de la feuille active et passe au mois suivant.
Les couleurs sont réinitialisées suivant la couleur de la première cellule de chaque ligne
Le tableau est vidé de son contenu
Apres avoir vérifié que tout bon, il faut executer la procédure Masquer_colonnes pour masquer jours qui n'appartiennent pas au mois courant

Masquer_colonnes
Les jours qui n'appartiennent pas au mois courant sont masqués

Afficher colonnes
Le calendrier est recalculé suivant la date en "B3" et tout le tableau est affiché

Effacer_tableau
Apres confirmation, le tableau est réinitialisé, couleurs et contenu.

ATTENTION!!
Il y a deux cellules qui définissent la taille du tableau
- la cellule "A7" qui contient *debut*
- la cellule "BT47" qui contient *fin*
Le texte ne se voit pas, il ne faut en aucun cas les modifier ou supprimer

Certaines cellules son écrites en rouge, ça veut dire que:
- ces cellules n'ont pas de formule donc il faut les renseigner manuellement
- ces cellules ont des formules qui doivent etre adaptées au cas par cas
- ces cellules ont des valeurs qui ne sont pas effacées automatiquement et risquent de perturber les calculs

Voilà pour le moment.
Fait des essais et si ça te convient, je ferai la macro qui crée automatiquement une nouvelle feuille à chaque mois.

Salut et bon week end.

lala · Answer

Alors les procédures marchent à la perfection, vraiment un grand merci d'y avoir accordé un peu de ton temps c'est très gentil, mais il y a un détail que j'ai ormis de te préciser, c'est qu'il ne faut plus que le tableau de gauche figure, donc moi j'ai revu toutes les fonctioncs et tout mais il y a un petit probleme c'est par exemple, je prends le cas de la cellule     "NB Jour de travail", alors pour pouvoir avoir le résultat il faut taper : 

=NBVAL(B8:BM8)

mais dès lors que je sélectionne une case il est censé m'afficher "1" dans la case correspondante mais il ne m'affiche rien

lala · Answer

Mais bon on verra ca la semaine prochaine si tu n'y voit pas d'inconvénient en tout cas encore merci pour ton aide ca m'a été d'un énooooorme secours miciiii !!!

amigo · Answer

Re,

En ce qui concerne le tableau de droite, rien ne t'empèche de le masquer si tu ne veux plus qu'il apparaisse, ça fonctionnera tout aussi bien.

Et pour ta fonction =NBVAL(B8:BM8) , sur mon tableau ça serait plutôt =NBVAL(F8:BM8) et ça marche bien.
Dès que je coche une case le resutat augmente de 1.

De toutes façons, si tu remanie ton tableau, il faut partir sur le même principe, affichage sur 6 semaines, et le mois en cours qui se déplace dans cet intervalle. Sinon je ne vois pas comment l' automatiser. De plus, les formules doivent tenir compte de ça, je pense à la fonction NBVAL() qui renvoie 1 même quand la cellule contient une formule avec un resultat vide "".

Salut.

lala · Answer

OUah lool j'me suis rendue compte de mon erreur mais tu vois quand je veux sélectionnéechaque case N de la cellule "NB heures nuit" ben il m'indique qu'il y a trop de valeurs saisies, ca par cntr ca me pose vraiment probleme parce que aussi j'ai essayé de fr une préselection cad : "=somme.si(f7:bm7;"=N") rah ben il me retourne rien dans ma case après la !!!

lala · Answer

alr dison ke je cache simplement la feuille c'est etre assez maline en fait ca me facilite un peu le travail c vré hihi !!!

la je viens de remarquer une chose c'est que qd je lance la procédure "effacer_tableau" beeeeh il m'efface aussi ma colonne "NB jour de travail du cp je dois a chaque fois retaper la formule !!!
Dans ce cas qu'est-ce que je dius faire ?

amigo · Answer

re,

dans la procédure Effacer_tableau, tout à la fin, mettre c_fin - 7 à la place de c_fin - 6

     Range(Cells(l_deb + 1, c_deb + 2), Cells(l_fin - 1, c_fin - 7)).Select
     Selection.ClearContents

En plus juste après, il y a écrit Private initialise_mois()
Chez moi, avec la version 2003, le VBA rejette, il veut Private Sub initialise_mois()
Mais cette procédure ne sert pas, je l'avais laissé à tout hasard. Si à plante chez toi, tu sauras quoi faire.

Dis moi si tu as as réglé les problèmes de formules et si on peut continuer le développement.

A+.

lala · Answer

Bonjour bonjour c'est re mwa,

alors j'ai donc comme tu m'as dit, modifier les formules nécessaires et j'ai mis la procédure initialise_mois() en commentaire car il ne m'est d'aucune utilité en fait, mais bon je l'ai gardé toujours au cas ou qui sait !!!

Donc a partir de la, on peut donc continuer il n'ya a pas de problème, je pense qu'on en étais à la mise à jour automatique de la feuille a chaque changement de mois !!!

lala · Answer

Aussi, je souhaiterais savoir comment tu t'y est pris pour les procédures "copier-feuille" et "masquer_tableau" au nuveau du code, la démarche enfin juste un petit détail pour pouvoir comprendre si c'est poissible merci !!!

lala · Answer

Alors je me suis chargée de faire l'automatisation du changement de date avec toutes les fonctionalités qui vont avec et 

j'y suis arrivée sans problème, il m'a fallu pour cela simplement me baser sur le mm principe de la derniere fois et le tour est joué !!! 

Par contre j'aimerais toujours savoir pour les procédures si possiblle merci bcp !!!

amigo · Answer

Bonjour,

D'accord, alors voila la procédure qui initialise le tableau à chaque changement de mois.

Comment ça marche:

- A chaque ouverture du classeur on vérifie dans toutes les feuilles si le tableau du mois en cours exite. On regarde dans la cellule "B3", donc il ne faut pas que la date initiale soit déplacée ou effacée.(D'ailleurs il serait bon de protéjer les formules et quelques cellules importante du tableau)

- Si le mois existe alors on active la feuille et c'est tout.

- Si le mois n'exite pas, on demande confirmation, et on copie la feuille du mois précedent (ou le mois le plus proche) puis on initialise le tableau au mois courant (c'est la procédure copier_feuille qui s'en charge).

Cette procédure est à placer dans le code de ThisWorkbook (supprimer l'ancienne Workbook_Open)

Pour faire le test, suipprimer la feuille Juin 2008, enregistrer, fermer, reouvrir.
Le message de confirmation s'affiche, répondre oui. La feuille juin 2008 est ajoutée. Enregistrer, fermer, reouvrir.
Aucun message ne doit apparaitre.

NB: tu peux ajouter ou supprimer des lignes du tableau entre *debut* et *fin*

Private Sub Workbook_Open()
Dim Date_Init As Date, Date_jour As Date
Dim Mois_Init As Integer, Mois_Courant As Integer
Dim Rep As Integer
Dim nbr_feuille As Integer, idx As Integer, cur_feuille As Integer

'index de la feuille active
cur_feuille = ThisWorkbook.ActiveSheet.Index
'nombre de feuilles du classeur
nbr_feuille = ThisWorkbook.Sheets.Count
'date du jour
Date_jour = Date
Mois_Courant = Month(Date_jour)

'rechercher si la feuille du mois en cours existe
'si existe alors activer et quitter
For idx = 1 To nbr_feuille
Mois_Init = Month(ThisWorkbook.Sheets(idx).Range("B3").Value)
If Mois_Init = Mois_Courant Then
    ThisWorkbook.Sheets(idx).Activate
    Exit Sub
End If
Next

'la feuille du mois en cours n'exite pas
'rechercher la feuille du mois précédent pour copie
Date_Init = ThisWorkbook.Sheets(1).Range("B3").Value
cur_feuille = 1
For idx = 1 To nbr_feuille
If ThisWorkbook.Sheets(idx).Range("B3").Value > Date_Init Then
    Date_Init = ThisWorkbook.Sheets(idx).Range("B3").Value
    cur_feuille = idx
End If
Next
'activer la feuille pour copie
ThisWorkbook.Sheets(cur_feuille).Activate
'question faut-il initialiser le mois en cours?
   Rep = MsgBox("Voulez-vous initialiser le tableau du mois de " & _
   Format(Date, "mmmm yyyy") & " ?", vbQuestion + vbYesNo, "Initialisation")
'si la reponse est OUI alors copier la feille courante et réinitialiser le tableau
   If Rep = vbYes Then Call copier_feuille

End Sub


A+.

amigo · Answer

Re,

J'étais en train d'élaborer la procédure Workbook_Open et je n'avais pas vu tes précédents messages.
Tu à réuissi à faire l'automatisation par toi même, c'est bien, tu peux comparer avec ce que j'ai fait. Il y plusieurs manières de faire, l'essentiel étant de ne pas perdre de vue l'objetif.

Comment j'écris mes macros? Je ne vais pas te faire un cours de programmation mais en gros voila ce que je fais.
Je mets au point une stratégie que je décompose en taches plus simples. c'est plus facile à mettre au point.
Ensuite j'ecris chaque procédure. quand je ne connais pas la syntaxe, j'enregistre la macro et je récupère le code que j'adapte en épurant et en ajoutant des variables. Ensuite, il suffit d'enchainer les procédures, ou de les fusionner, ça dépend.

La procédure masquer_colonnes
La stratégie (ou algorithme), c'est de repérer dans le tableau dans quelle colonnes inscrire le premier jour du mois. Il s'en suit un calcul de décalage par rapport à l'origine et en fonction du nom du jour. On réinitialise la première semaine (copie de la semaine 2 sur la semaine 1) et on place la formule initiale au bon endroit (="B3"). Ensuite on masque les colonnes qui n'appartiennent pas au mois en cours. Pareil pour la fin du tableau.

La procédure Copier_feuille
C'est assez simple, On selectionne tout le tableau, On ajoute une nouvelle feuille, On colle les cellules.
Puis on reprend le code de la procédure Effacer_tableau, et on fait appel à masquer_colonnes (pour la mise à jour du tableau). j'ai rajouté afficher_colonnes pour verifier que toutes le données à supprimer sont bien effacées, surtout les dernières lignes ou tu fais des saisies manuelles.

Si tu veux tous les détails, je te préparerais un fichier Word qui explique chaque ligne de code.

A+.

lala · Answer

Un grand merci pour les explications vraiment merci !!!
Beh s'il y a possibilité que tu me fasses le fichier word, c'est pas de refus !!!
Encore merci !!!

lala · Answer

euh aie je vien de remarquer un petit bug la, la colonne A lorque l'on dééplace le tableau vers la droite n'est pas 

verrouillée ainsi que les lignes de date la, c'est embetant ca   o_O' !!!

lala · Answer

Tah ne fais pas attention en fait il fallait juste fixer les volets que j'avais oublier dsl !!!

amigo · Answer

Effectivement, dans la procédure copier_feuille je n'ai pas figé les volets.
Enregistre une macro, récupère le code et place le au bon endroit... Tu peux essayer, si tu veux.
Je te prépare un fichier avec des explications, mais ça me prendra un peu de temps.
En attendant, bonne continuation.

Salut.

amigo · Answer

Bonjour,

Tu trouveras dans le fichier zip ci-joint le classeur excel de la maquette et le fichier word avec le max de commentaires.
J'ai corrigé les bogues et j'ai complété la procédure Ajouter_feuille pour figer les volets.
J'ai ajouté aussi un petit gestionnaire d'erreur pour le renomage de la feuille.

http://www.cijoint.fr/cjlink.php?file=cj200806/cijc5mRZB5.zip

En espérant ne rien avoir oublié

A+.

lala · Answer

Re,

alors la vraiment il ne peut y avoir plus complet que cela, ca va au dela de ce que j'espérais lool encore un GRAND merci amigo pour ton aide et ta patience hihi, tu m'as été vraiment d'un grand secours je ne sais pas si je serais y arriver toute seule ca c'est sur !!!

Encore un grand merci et je te dis à très bientot !!! Et bonne continuation à vous tous et au site qui est vraiment EXCELLENT !!!

lala · Answer

Ralalh je suis encore navrée de te déranger mais j'ai un petit je ne vois pas du tout comment faire !! 
Je cherche a masquer uniquement les colonnes de date qui parte du 01 jusqu'a la fin du mois pour ensuite imprimer les cases qui restent et  enfin remettre toutes les colonnes, si tu peux m'indiquer la démarche a suivre ste plé !!!

lala · Answer

Tah mwa je dis que c'est abusé, on me demande d'imprimer les cases restantes et ensuite revenir a l'état initial du tableau, encore j'ai réussi a faire l'histoire de compacter le tableau puis le ramener à son état intial mais la pour imprimer je suis bien mwa la si tu sais comment le faire, tu pourrais me montrer le code ste plé !!!

amigo · Answer

Bonjour,

Si j'ai bien compris, tu veux masquer la partie ou tu inscrit des "X" et imprimer le tableau, ensuite tu veux rétablir l'affichage initial.

Dons on va faire une procédure Imprimer_Tableau. Je regarde et je reviens (peut-être cet Après-Midi ou avant).

A+.

amigo · Answer

Re,

Je peux te proposer déja deux procédures, l'une pour réduire l'affichage et l'autre qui rétablit l'affichage.
Pour imprimer , c'est plus délicat, ça va dépendre de la mise en page, du format de la page ...
Il faudrait que fasses cette macro avec enregistrer une macro. Quand c'est au point, je te dirais ou la placer.

Sub reduire_affichage()
    Columns("F:BM").Select
    Selection.EntireColumn.Hidden = True
End Sub

Sub Rétablir_affichage()
    afficher_colonnes
    masquer_colonnes
End Sub


A+.

lala · Answer

Ca y est j'ai tout conclue correctement !!! Beh amigo tu sais quoi la j'ai une tache a faire qui tient d'un niveau conséquent j'aurais encore besoin de toi si tu es toujours d'accord !!!

Alors la, mm pour l'explication cela est délicat !!!

Donc j'ai un tableau avec des dates définies pour chak mois, des dates de congé pour etre plus précise et ce que je dois faire c'est que tu vois je dois reporter ces dates en cases colorées des lors qu'une nouvelle feuille est crée, je te donne un exemple : 

regarde pr le mois de juin, il y a d cases mauves pour les congés ben ce sont des dates bien précises é en fait j'ai un tableau définit avec des dates pour le mois de juin, juillet, aout etc....et je dois reporter ces dates dans le tableau du mois de juillet lorqu'il est créé, dis moi si j'ai été assez claire sinon je tenterais de me reformuler !!!

amigo · Answer

OK,

Je résume, tu as un tableau avec des dates de congés, et tu voudrais visualiser par des couleurs les périodes de congés sur le tableau qu'on a vu ensemble.

C'est faisable, il me faudrait connaitre le format du tableau avec les dates, mieux si je pouvais avoir une copie sans données confidentielles.

A+.

lala · Answer

Alors je te ici le lien : http://www.cijoint.fr/cjlink.php?file=cj200806/cijnJ0shJs.xls. 

Voila c'est bien la le principe, lorsque qu'on ouvre la nouvelle feuille du mois de juillet, il y des cases mauves qui doivent apparaitre selon les dates indiquées dans le tableau de congés.

J'ai profité aussi pour te faire un exemple de ce que ca doit en résulter en fait et apparamment ce qu'il faut c'est que lors du remplissage manuel du tableau des congés par la suite pour les mois a venir, que cela soit pris en considération mais on peut deja commencer par les 2 premiers présentés.

Je t'explique, les dates des mois de juillet et aout sont définis et pour le mois d'octobre, novembr etc... ils seront rempli ultérieurement mais je pense que si l'on fais pour un exemple, cela doit fonctionner pour tout le reste !

Voila j'espere que mes explications ont été claires et simple Merci !!!

amigo · Answer

Bonjour,

En observant le tableau congés, je m'aperçois qu'on ne peut y inscrire qu'une seule période par agent et pour un mois donné.
Que se passe-t-il, si une personne demande plusieurs congés pour le même mois?
Que se passe-t-il si la période de congés est à cheval sur deux mois?
Est-ce que ces éventualités sont à envisager?

Je pense qu'il faut revoir la mise en forme de ton tableau de saisie. Pose la question autour de toi pour savoir quelle serait la présentation qui répondrait le mieux aux besoins.

J'attends confirmation

A+.

lala · Answer

La mise en page du tableau il semblerait qu'il soit tel qu'il est et en ce qui concerne les éventualités, effectivement la

 première une personne ne pourra pas avoir 2 périodes de congés dans le même mois et pour le chevauchement il suffit 

de faire un rajout bout à bout cad : une personne qui prend ses congés du 25/06/2008 au 05/07/2008 par exemple, 

dans le tableau on aura : 25/06/2008 - 31/06/2008 pour le mois de juin et 01/07/2008 - 05/07/2008 pour le mois de 

juillet !!!

Voila j'espere que mon explication fut assez claire lool !!

Merci !!!

lala · Answer

Bonjour ReBonjour,

alors je t'ai posté ici un exemple de chevauchement de congé pour les mois de juillet-aout c'est comme ca que cela se présente, j'espère qu'il te sera utile et aussi que mon probleme n'est pas trop prise de tete.....!!!

http://www.cijoint.fr/cjlink.php?file=cj200806/cijuEWwLEz.xls. 

Voila wala, encore merci !! ++

lala · Answer

Hello Amigo,

ben voila je voulais juste m'informer si tu avais eu un peu de temps pour jeter un oeil sur le fichier que je t'ai envoyé et penses tu qu'il y ait possibilité de faire ce qui est dit, moi de mon côté j'ai réussie a fiare l'algo, mais au niveau du code j'ai quand meme pas mal de difficulté, je compte beaucoup sur ton aide pour y arriver !!!

Merci beaucoup !!!

lala · Answer

Coucou Amigo,

alors sans vouloir te brusquer, je voulais juste m'informer si tu avais eu un peu de temps pour te pencher sur mon probleme s'il te plait ! Mwa j'y suis depui quelques jours mais je n'ai pas l'impression de beaucoup avancer en fait, j'aurais vraiment besoin de ton aide parce que moi je commence à désespérer looool !!!

Merci !!!

amigo · Answer

Bonjour,

Je n'ai pas eu beaucoup de temps ces derniers jours, mais j'ai réussi à me dégager quelques heures pour terminer la procédure de mise à jour des congés.

Cette procédure s'apelle Mise_a_jour_conge()

pour le test:
-vider le tableau (effacer_tableau)
-executer mise_a_jour_conges
-modifier quelques dates dans la feuille "congés", supprimer une date, mettre des dates erronées
-revenir sur la feuille du mois et executer mise_a_jour_conges

cette procédure s'execute automatiquement avec copier_feuille ou au changement de mois.

j'ai du changer quelques lignes de code dans les procédures copier_feuille et masquer_colonnes

alors il faut reprendre le module_initialisation en entier.

le serveur de ci-joint.fr ne fonctionne pas, j'ai déposé le fichier sur cjoint.com

https://www.cjoint.com/?gsjeaQOQkj

A+.

lala · Answer

RE bonojour,

désolée de n'avoir pu répondre plus tot, j'avais des petits soucis de connexion !

Alors j'ai fait comme tu m'as dit pour les tests et j'ai aussi retoucher la procédure copier_feuille pour retomber sur le tableau comme il faut !!!

La il y aurait éventuellement un petit bonus a rajouter a la procédure mise_a_jour_conges() s'il est éventuellement possible que tu y jette un p'ti d'oeil pour me donner un p'ti coup de main s'il te plait, je te l'explique vite fait : en fait après la colonne NOM, il faut rajouter une colonne CONGES et dans cette colonne doit y figurer le nombre de jours que chaque agent a pris dans le mois courant en tenant compte que les dimanches et jours fériés ne sont pas comptés. Voila si vraiment tu peux m'aider la dessus !!

Mais en tout cas, je n'oublies pas tout l'investissement et tout le temps que tu y a consacrer afin de mettre a terme la procédure de congés et de tout ca, je t'en suis vraiment reconnaissante merci beaucoup beaucoup !!!

amigo · Answer

Bonjour,

Insérer une colonne CONGES en colonne "B" va nécessiter de revoir toutes les procédures.
Le plus facile serait de l'inserer en colonne "BN", là il n'y a rien à modifier.

Pour décompter les dimanches et jour fériés, ça se complique. Passe pour les dimanches qui sont faciles à repérer sur le calendrier, mais les jour fériés doivent etre listés quelque part, car ils varient d'une année à l'autre, d'une région à l'autre et meme d'une entreprise à l'autre. Donc il faut faire ce petit travail de réflexion avant, et tenir cette liste à jour chaque année.

A+.

Lala · Answer

SAlut,

j'ai ormis de te préciser que cette colonne "CONGES" était à insérer dans la feuille de congé car cela facilite beaucoup plus le travail et tout doit figurer sur cette feuille.

On m'a fait penser à éventuellement rajouter par fonction pour trouver les dimanches. Alors j'ai réfléchi et j'ai pensé à la fonction suivante :

Function NB_jours_ouvrés(Date_début As Date, Date_fin As Date) As Integer
Dim Cpt As Date
Dim Nb_jours As Integer

For Cpt = Date_début To Date_fin
    If Weekday(Cpt, vbMonday) <> 7 Then
        NB_jours_ouvrés = NB_jours_ouvrés + 1
    End If
Next

End Function

Une fois de plus mon probleme est de savoir maintenant comment l'utiliser !!!

Et maintenant, je réfléchis à pour les jours fériés !!!

A bientot !!!

Lala · Answer

Aussi, j'ai jugé utile de ne m'intéresser qu'à la feuille "congés", donc j'ai éventuellement mis la date d'aujourd'hui en B3 que l'on comparera par la suite avec les dates de la ligne 6 ensuite lorsque la condition sera remplie, on parcours la 1ere colonne, on vérifie la présence de la date, on la mémorise (c la procédure date_début comme on l'a vu précédemment) et pareil pour "Date_fin". Ensuite, on appelle la fonction qui calcule le nb de jours entre ces 2 dates et on demande à la reporter dans la colonne B a la ligne correspondante.

Voila l'algo que j'ai pensé, est-ce que cela pourrait éventuellement convenir ???

Cordialement !!!

amigo · Answer

Re,

La fonction que tu as écrite est correcte. Reste à déterminer les jours non travaillés autre que le dimanche.
Il y a les dates fixes : 1er janvier, 1er mai, 14 juillet,...25 décembre. A ne décompter que si ça ne tombe pas un dimanche.
Il y a les dates mobiles: Lundi de Paques, Lundi de Pentecote, .... qui ne tombent pas toujours à la même date.

C'est cette liste qu'il faut créer et tenir à jour chaque année.(Voir ou peut la caser)

La date du jour en B3 n'est pas franchement utile. La fonction Date() du VBA suffirait.

La colonne B va changer chaque mois. Ne faudrait-il pas plutot, pour chaque mois avoir une colonne Début, Fin, et Jour ouvrés? La colonne Jours Ouvrés serait calculée ( appel de la fonction NB_jours_ouvrés() ) lorsque la colonne Fin change.

Je vais partir sur cette hypothèse, et on verra ce que ça donne.

A+.

amigo · Answer

Bonjour, Voici la solution que j'ai apporté à ton problème 1) Module Initialisation Procédure Mise_a_jour_conges() '... 'balayer la ligne 6 et rechercher le mois en cours Do mois_conge = Month(ActiveCell.Value) If mois_orig = mois_conge Then col = i 'le mois est trouvé on mémorise la colonne Exit Do End If i = i + 3 '<---------------------Modifier ici Cells(6, i).Select Loop While ActiveCell.Value <> "" 'boucler jusqu'à la fin de la ligne 6 '... Ajouter ces deux Fonctions 'calculer le nombre de jours ouvrés entre deux dates Function NBJO(Date_début As Date, Date_fin As Date) As Integer Dim Cpt As Date Application.Volatile If Date_fin = 0 Or Date_début = 0 Or Date_fin < Date_début Then NBJO = 0 Exit Function End If For Cpt = Date_début To Date_fin If Weekday(Cpt, vbMonday) <> 7 Then NBJO = NBJO + 1 End If Next End Function 'calculer le nombre de jours fériés entre deux dates (sauf dimanche) Function NBJF(Date_début As Date, Date_fin As Date) As Integer Dim Cpt As Date, JF As Range, cel As Range Application.Volatile If Date_fin = 0 Or Date_début = 0 Or Date_fin < Date_début Then NBJF = 0 Exit Function End If Set JF = Range("JoursFériés!B2:B20") For Cpt = Date_début To Date_fin For Each cel In JF If Weekday(Cpt, vbMonday) <> 7 Then If Cpt = cel.Value Then NBJF = NBJF + 1 End If Next Next End Function 2) Ajouter une feuille, renommer "JoursFériés" (attention à l'orthographe, le nom figure dans la fonction NBJF) Colonne "A"-----Colonne "B" Année 2008 Jour de l'an 01/01/2008 Lundi Pâques 24/03/2008 Fête Travail 01/05/2008 Fête Victoire 08/05/2008 Fête Nationale 14/07/2008 Ascension 15/08/2008 Toussaint 01/11/2008 Armistice 11/11/2008 Noel 25/12/2008 Eventuellement compléter ou corriger, tu peux aller jusqu'a la ligne 20 3) Modifier la feuille congés Pour chaque mois ajouter une colonne, exemple: +---------------------------------+---------------------------------+ : juillet 2008 : Aout 2008 : +----------+----------+-----------+----------+----------+-----------+ : Debut : Fin : Nbr Jours : Debut : Fin : Nbr Jours : +----------+----------+-----------+----------+----------+-----------+ dans la colonne Nbr Jours, mettre la formule: =NBJO(Debut;Fin)-NBJF(Debut;Fin) en fait, Debut et Fin sont les cellules à passer aux fonctions exemple en G8 : =NBJO(E8;F8)-NBJF(E8;F8) copier la formule sur toute la colonne recommencer pour les colonnes suivantes Bon courage.

lala · Answer

Bonjour Amigo,

alors je me suis penché sérieusement sur mon problme, j'ai fini par trouver une solution, "je pense", mais l'inconvénient est que lorsque je compile il me dit "Incompatibilité de type", je te laisse voir si tu peux faire quelque chose la dessus s'il te plait !!!

Je te remercie !!!


	https://www.cjoint.com/?gAip5VkfcE

amigo · Answer

Bonjour,

ça se complique sérieusement, ton tableau.

Voici les corrections à aporter à la procédure Mise_a_jour_conges()

'....
'Recherche colonne du mois en cours dans feuille congés
'Se positionner sur la feuille congés en B6
Sheets(f_conge).Select
Range("C6").Select
i = 3: col = 0' initialiser i à 3 (colonne C)
'....
'....
'Rechercher nom de l'agent
        If nom_agent <> "" Then ' ne pas rechercher une case vide
            On Error Resume Next
            Selection.Find(What:=nom_agent, After:=ActiveCell, LookIn:=xlFormulas, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False).Activate
            On Error GoTo 0
        End If


A+.

Lala · Answer

Bonjour Amigo,

je tiens tout d'abors a te remercier pour la petite correction que tu as apporté merci, et je voulais éventuellement revenir à ta solution sur la feuille "JoursFériés", je suppose que je dois mettre les jours fériés annuels manuellement par exemple pour 2010, 2011...alors dans ce cas ca modifiera les années précédentes si j'ai bien compris ????

++

amigo · Answer

Bonjour,

La solution que j'avais imaginé est sensiblement pareille à la tienne, éxepté que j'ai utilisé des fonctions personnalisées plutot que des formules attachée à des cellules nommées.

Il n'en reste pas moins que la feuille ou sont listés les jours fériés de l'année en cours comportera toujours une part de saisie manuelle, sauf si comme tu l'a fait, tu sais calculer les dates mobiles Paques et Pentecote. Les autres dates sont fixes, je crois.

De plus, dans ma région, nous avons des fetes locales particulières qui s'ajoutent, je ne sais pas si c'est vrai ailleurs.

Encore un cas particulier eventuellement à prendre en compte, par exemple dans ma société nous fermons certains jours de l'année (on fait le pont certains week-ends). Donc il faut gérer ça aussi.

Il reste la journée de solidarité, le jour férié travaillé, qui peut être un n'importe quel jour férié à condition que ça ne tombe pas un dimanche.

C'est pour ça que moi, si j'avais à faire ce travail, je saisirai à la main une fois pour toutes en début d'année le tableau des jours fériés. Ce n'est pas un gros travail et au moins c'est juste.

Ceci dit, les fontions personnalisées s'utilisent comme les fonctions Excel standard, il faut juste leur passer les bons paramètres séparés par des ";". Donc tu peux revoir la mise en forme du tableau si tu préfères voir les jours affichés juste à près la colonne nom. L'avantage des fonctions personnalisées c'est qu'elle profitent de toute la puissance du VBA.

Bon assez bavardé, à toi de voir. Si tu as un souci, je serai là.
A+.

Probleme sous excel

74 réponses

Newsletters