Discussion :

[ericdev67]

Bonjour,

J'ai des actions (des forums, des RDV, etc...). Ces actions sont visualisées sur une ligne temps (par jour). Lorsqu'il y a une action tel jour, je la visualise sur cette ligne temps et je mets un shape pour visualiser l'action. Mon souci, c'est que parfois, j'ai plusieurs actions le même jour, donc j'ai fait

Code :

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

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'Shapes
 
 
      G = j
 
        W = k
        l = 30
        H = 35
 
Feuil1.Shapes.AddTextbox(msoTextOrientationHorizontal, G, W, l, H).Name = Feuil2.Cells(i, 17).Value & Feuil2.Cells(i, 2).Value
  With Feuil1.Shapes(Feuil2.Cells(i, 17).Value & Feuil2.Cells(i, 2).Value)
   a = Feuil2.Cells(i, 17).Value & Feuil2.Cells(i, 2).Value
 
 
  If (Feuil1.Cells(k - 2, j - taille).Left <> memoireleft1) Then
  .Top = Feuil1.Cells(k - 2, j - taille).Top
  .Left = Feuil1.Cells(k - 2, j - taille).Left
 
  Else 'décale vers le haut si action sur cette date
        If (Feuil1.Cells(k - 2, j - taille).Left <> memoireleft2) Then
        .Top = Feuil1.Cells(k - 3, j - taille).Top
        .Left = Feuil1.Cells(k - 3, j - taille).Left
        memoireleft2 = Feuil1.Cells(k - 3, j - taille).Left
 
        Else 're-décale vers le haut si action sur cette date
        .Top = Feuil1.Cells(k - 4, j - taille).Top
        .Left = Feuil1.Cells(k - 4, j - taille).Left
        memoireleft2 = Feuil1.Cells(k - 3, j - taille).Left
        End If
 
 
 
  End If
    ''''''''''''''''''
    .AutoShapeType = msoShapeRectangle
    .TextFrame.AutoSize = True
    .TextFrame.Characters.Text = Feuil2.Cells(i, 2).Value & "  -  " & Feuil2.Cells(i, 17).Value
    .Fill.ForeColor.RGB = RGB(255, 255, 0)
    .TextFrame.Characters.Font.Size = 8
    .TextFrame.Characters(Start:=Len(Feuil2.Cells(i, 2).Value) + 5, Length:=12).Font.Name = "Comic Sans Ms"
    .TextFrame.Characters(Start:=Len(Feuil2.Cells(i, 2).Value) + 5, Length:=12).Font.Size = 5
    .OnAction = "visuaction"
    memoireleft1 = .Left
 
 
   End With
 
End If

pour "décaler" les shapes, mais c'est limité à 3 actions par jour....

Y aurait-il un autre moyen et/ou comment "superposer" (mais visibles) plusieurs shapes...? Dans mon code, je les superpose, mais peut-être existe-t-il un autre moyen ?

Merci pour votre aide et/ou pistes,
A+

[patricktoulon]

re
bonjour
et pourquoi pas une seule shapes avec tes trois rendez vous dans le texte séparé par un saut de ligne tu adapterais le height en fonction du nombre de ligne ?

apres si il n'est nullement question d'esthetique un simple commentaire suffit non?

[ericdev67]

Merci patricktoulon,
En fait, lorsque je clique sur un shape, cela m'ouvre un USF avec toutes les données de l'action..c'est pour ça que je ne peux pas les "compiler" dans 1 seul...J'ai essayé avec des commentaires (cf tutos de JB), qui permettent aussi de faire déclencher l'USF, mais j'ai le même souci de "positionnement"....

merci pour ton aide,