[VI-2007] Affichage des N° de semaine dans une barre de planning

[daddysolo]

Bonjour,

Je souhaiterais pouvoir afficher dans une barre de planning les N° de semaines et non pas les dates de début de semaine... je n'ai pas trouvé l'option adéquate dans les formats date/heure...
Sauriez-vous comment faire, ou bien est-ce tout simplement impossible?

Merci pour votre aide

[tyrael5]

Bonjour

Je pense que cet article pourra t'aider :
http://www.visguy.com/2009/11/03/cal...-visio-shapes/

Tyrael

[daddysolo]

Envoyé par tyrael5

Bonjour

Je pense que cet article pourra t'aider :
http://www.visguy.com/2009/11/03/cal...-visio-shapes/

Tyrael

Merci Tyrael,

Malheureusement, ça ne solutionne pas mon problème, je ne parviens pas à appliquer la formule sur une barre déjà créée comportant des dates...
mais ça demeure néanmoins intéressant

[tyrael5]

Peux tu fournir un screen de ton dessin ?
Que l'on puisse voir si une méthode peut s'appliquer dans ton cas.

Tyrael

[daddysolo]

Hello Tyrael,

ci joint un word montrant ce que j'ai fait et le soucis rencontré

merci

[tyrael5]

Alors :

Quand tu insère ton planning dans le dessin, clique droit sur celui ci une fois qu'il est sur le dessin : Format/Protection
Et décoche Texte.
Tu aura alors accès aux textes sous la barre de planning avec l'outil de texte.
Tu peux donc modifier à ta guise et écrire ce que tu veux.
Cependant si tu veux que les numéro des semaines soient générer dynamiquement et que tu n'aies pas a chaque fois à les calculer, tu peux insérer cette formule en sélectionnant ton texte, cliquer droit : insérer un champ. La tu sélectionnes "formule personnalisée" et tu mets cette formule :

Code :

=(FLOOR(DAYOFYEAR(NOW()),7)/7)+1

Floor permet d'avoir un nombre divisé par 7
dateofyear permet d'avoir le numéro du jour
je divise par 7 et je rajotue 1 car Visio décalle les semaines de 1 chez moi.

Tu n'aura donc qu'à remplacer le now() par la date qui t'intéresse.
S'il s'agit du 3 juillet, la formule à rentrer sera donc :

Code :

=(FLOOR(DAYOFYEAR("juillet 3, 2012"),7)/7)+1

ou

Code :

=(FLOOR(DAYOFYEAR("3 juillet 2012"),7)/7)+1

Tyrael

[daddysolo]

Désolé, mais je n'y parviens pas, une fois la protection enlevée, je n'arrive pas à éditer le texte...pas moyen de dissocier la forme non plus...

Une question que je me pose par rapport à ta solution, c'est de mettre en dur dans la formule la date... je pensais plutôt agir au niveau du format car tu peux modifier les bornes de ta forme pour l'avoir sur un an au lieu de 6 mois... donc comment les dates peuvent suivre?

Je peux éventuellement t'envoyer le fichier, je te le met en doc, je te laisse le renommer en vsd

merci pour ton aide

[tyrael5]

Le seul moyen est bien de l'écrire en dur, car Visio ne propose pas nativement le format numéro de semaine.
(Il semblerait, d'après ce que j'ai pu lire, que ce format, de numéro de semaine, ne soit pas très utilisé aux Etats Unis, ce qui pourrait expliquer sa non-présence au sein de Visio)

Il faut donc passer par une date et ensuite avec une formule transformer cette date en un numéro de semaine ou l'écrire directement en dur/a la main.
Evidemment ce n'est pas pratique et pas rapide car il faut le faire pour chaque date. (si tu dois le faire plusieurs fois et dans plusieurs fichiers, une maccro VBA pourrait s'occuper de le modifier pour toi)

Pour répondre a ton problème de sélection de texte, effectivement, je n'ai peut être pas été très clair : pour pouvoir le sélectionner le texte, utilise l'outil texte : A, passe ta souris devant le texte que tu désire modifier et clique droit dessus comme-ci tu voulais effectuer un surlignage, tu devrais avoir accés au texte (aucun problème de mon coté avec ton fichier).

[tyrael5]

Envoyé par daddysolo

C'est bien ce que je craignais en effet, donc l'idée du VBA me semble en effet la seule méthode, l'idée étant de capter les dates liées à la forme et de les transformer en semaine, hélas mes compétence en VBA sont assez limitées...

je te l'ai fais, mais il n'est pas expliqué, si tu veux des informations, demande, je te les donnerai prochainement.

Ce code fonctionne avec le fichier que tu m'as envoyé car il utilise certains identifiants de forme propre à ton fichier (si tu rajoutes des formes avant la barre de planning ou que tu diminues le nombre de date dans ta barre, le code ne fonctionnera plus)

Commence par mettre tes dates au format : 04/07/2012

J'ai eu un peu de difficultés avec le code, mais il fonctionne :
(pour le tester, et l'utiliser, fait : ALT + F11 puis dans la nouvelle fenêtre fait F7 et copie ce code. Enfin, retourne dans ta fenêtre visio et fait : Outils/Maccro/ThisDocument/modificaiton_date_en_numero_semaine)

Code :

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
 
Sub modification_date_en_numero_semaine()
    Dim UndoScopeID1 As Long
    Dim Texte, guillemet As String
    Dim vsoShape1 As Visio.Shape
 
 
    UndoScopeID1 = Application.BeginUndoScope("Définir un champ de texte")
    ActiveWindow.DeselectAll
    For x = 117 To 145
    ActiveWindow.Select Application.ActiveWindow.Page.Shapes.ItemFromID(x), visSubSelect
    Set vsoShape1 = Application.ActiveWindow.Page.Shapes.ItemFromID(x)
 
    Dim vsoCharacters2 As Visio.Characters
    Set vsoCharacters2 = Application.ActiveWindow.Page.Shapes.ItemFromID(x).Characters
 
 
    Texte = vsoCharacters2
    vsoShape1.Text = ""
    guillemet = Chr(34)
    Texte = "(FLOOR(DAYOFYEAR(" + guillemet + Texte + guillemet + "),7)/7)+1"
    vsoCharacters2.Begin = 0
    vsoCharacters2.End = 4
    vsoCharacters2.AddCustomFieldU Texte, visFmt0PlNoUnits
 
 
 
    Application.EndUndoScope UndoScopeID1, True
    Next
 
End Sub

Voila

Tyrael

[daddysolo]

super,

merci Tyrael, je vais regarder cela de plus près asap et reviendrais vers toi le cas échéant si soucis de compréhension du code

encore merci pour le temps consacré!

A+

[tyrael5]

Si le code que je t'ai fourni te convient et fonctionne comme il faut dans ta situation, n'oublie pas de cliquer sur le bouton

Si tu as encore besoin de conseil, d'explication ou d'aide, n'hésite pas

Bonne continuation

Tyrael