Discussion :

[david-lt]

Bonjour à tous,
je travaille actuellement sur la réalisation d'un planning de production qui est mis à jour quotidiennement. A chaque mise à jour, je dois remettre :

• B1 à la date d'aujourd'hui
• C1 à J+1
• D1 à J+2
• Etc

Pour l'instant, voici mon code (ma boucle saute 6 car j'ai fusionné des cellules de ma ligne n°1) :

Code :

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

1
2
3
4
5
6
7
 
Sheets("Planning").Range("B1").Value = Format(Now(), "dd mmm")
For j = 8 To 168 Step 6
 
        Sheets("Planning").Cells(1, j).Value = DateAdd("ww", j / 6, Date)
 
Next j

MAIS je veux exclure uniquement les dimanches et étant donné que B1 peut être n'importe quel jour de la semaine, je ne vois pas comment faire.
Pourriez-vous m'aider ?
Merci d'avance.

[anasecu]

Bonjour,

MAIS je veux exclure uniquement les dimanches et étant donné que B1 peut être n'importe quel jour de la semaine, je ne vois pas comment faire.

Comme ceci par exemple

Code :

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

1
2
3
4
5
6
7
8
Sheets("Planning").Range("B1").Value = Format(Now(), "dd mmm")
col = 3
For j = 3 To 168 Step 1
    If Application.Weekday(Date + j - 2, 2) < 7 Then
        Sheets("Planning").Cells(1, col).Value = DateAdd("d", j - 2, Date)
        col = col + 1
    End If
Next j

[david-lt]

Bonjour anasecu,
je viens d'essayer ton code mais il me met "une erreur définie par l'application ou par l'objet" sur la ligne n°5 et je ne vois pas pourquoi.

[anasecu]

re
Tu fonctionnes avec qu'elle version ?

[david-lt]

Je travaille avec la 2003.

[anasecu]

re
Pourtant cela fonctionne en 2003.
Essaies de modifier ta ligne ainsi

Code :

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

        Sheets("Planning").Cells(1, col).Value = Date + j - 2

[david-lt]

re,
l'erreur 1004 est toujours là

[anasecu]

re
Tu as mis la macro dans un module ?
Cela vient sans doute de son mauvais positionnement.

[david-lt]

Oui, je l'ai mis à la suite de ma première macro pour les dates.
Je vais essayer plusieurs positions dans mon module.

[joe.levrai]

Bonjour,

les cellules ne sont pas verrouillées ?

essaye en préfixant la fonction Date par vba

Code :

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

VBA.Date

[david-lt]

J'ai essayé plusieurs positions dans le module mais cela ne change rien au problème.

[david-lt]

essaye en préfixant la fonction Date par vba

Code :

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

VBA.Date

Bonjour Joe,
lorsque tu dis en préfixant la fonction Date, tu veux dire que je formate mes cellules en format "Date" au préalable ?

[joe.levrai]

Non, c'est dans tes lignes de code

Date est une fonction existante dans la bibliothèque VBA mais aussi Windows (raccourci de simplification)
Parfois, à l'exécution et suivant l'OS, la fonction n'est pas recherchée côté VBA et échoue.
C'est pourquoi, je prend toujours l'habitude de préfixer ces fonctions

VBA.Date
VBA.Mid
VBA.Left
etc...
la saisie intuitive (intellisense) ta montrera l'ensemble de ces fonctions si tu tape "VBA."

au lieu d'écrire par exemple :

Code :

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

1
2
Dim MaDate As Date
MaDate = Date

j'écris

Code :

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

1
2
Dim MaDate as Date
MaDate = VBA.Date

pas sûr que ce soit ton problème, mais ça ne coute rien d'essayer

[eriiic]

Bonjour à tous,

les cellules ne sont pas verrouillées ?

Tu n'as pas répondu. Ta feuille n'est pas protégée ?
eric

[unparia]

Bonjour

Code :

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

Sheets("Planning").Range("B1").Value = Format(Now(), "dd mmm")

est une erreur fondamentale.
La fonction Format retourne une chaîne de caractères et non une date. On ne peut appliquer des fonctions de date directement à une chaîne de caractères.
Il ne faut pas alimenter B1 avec cela, mais avec une date. Si l'on veut n'afficher cette date qu'au format "dd mm", c'est le format de la cellule B1, qu'il faut définir à ce format.
Toutes les cellules à traiter doivent également être formatées en date.
Je vous laisse faire ...

[Invité]

Code :

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

1
2
3
4
5
6
7
Dim D As Integer
Sheets("Planning").Range("B1").Value = Format(Now(), "dd mmm")
For j = 8 To 168 Step 6
    D = D + 1
    If Weekday(Now() + D) = 1 Then D = D + 1
    Sheets("Planning").Cells(1, j).Value = Format(Now() + D, "dd mmm")
Next j

[unparia]

1) Mettre la cellule B1 au format (format de cellule) "dd mm" et la formule

Code :

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

=AUJOURDHUI()

2) mettre la formule suivante en C1

Code :

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

=SI(JOURSEM(B1;2)<>6;B1+1;B1+2)

et étirer cette formule vers la droite autant que de besoin.
Voilà voilà

EDIT : et si l'on tient à faire cela dynamiquement : écrire ces formules depuis VBA, ainsi :

Code :

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

1
2
3
Range(Cells(1, 2), Cells(1, 170)).NumberFormat = "dd mm"
Range("B1").Formula = "=TODAY()"
Range(Cells(1, 3), Cells(1, 170)).Formula = "=IF(WEEKDAY(B1,2)<>6,B1+1,B1+2)"

Et c'est tout.

[david-lt]

Re,

je viens d'essayer ton code dysorthographie, j'obtiens exactement ce que je voulais. C'est au top !

J'ai également testé ton code unparia et il me met bien la date d'aujourd'hui dans B1, par contre les autres cellules je me retrouve au 02 janvier partout.

En tout cas merci à tous pour votre aide.

[unparia]

par contre les autres cellules je me retrouve au 02 janvier partout.

Je suis curieux de voir le code que tu as écrit ! (un copié/collé exact de ce que tu as écrit).

[anasecu]

Bonsoir,

un copié/collé exact de ce que tu as écrit

Mais non la rentrée des classes est faite et ce n'est pas beau de copier alors l'on crée mais cela ne fonctionne pas ;-)
Autant laisser travailler les artistes mais je ne suis pas optimiste pour les résultats du codage ;-)