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+