Bonjour,
Disons qu'il n'est pas prévu que les colonnes soient à droite
Une idée serait de mettre la largeur ou le nombre de colonnes à gauche à 0 et d'ajouter 2 colonnes jours qui seront en fait les colonnes à droite.
Il faut agir sur le code au chargement du sous-formulaire SF_Planning :
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
| With obHeader
.RefControleImage = Me.Header
.InitImage
.FieldsCols = 0 ' paramètres colonnes à gauche
.FieldsColsWidth = 0
.FieldsColor = 16766935 '-2147483633
.Rows = 1
.RowsHeight = 36
.Cols = 31 + 2 ' ajout 2 colonnes à droite
.ColsWidth = 32
.BackColor = -2147483633
.GridColor = 8421504
End With
' Spécification du contrôle image imPlanning sur lequel on va dessiner le planning.
' Puis, initialisation de l'image et affectation des paramètres pour le planning.
With obPlanning
.RefControleImage = Me.Planning
.InitImage
.FieldsCols = 0 ' paramètres colonnes à gauche
.FieldsColsWidth = 0
.Rows = NL
.Cols = 31 + 2 ' ajout 2 colonnes à droite
.RowsHeight = 25
.ColsWidth = 32
.BackColor = 14788262
.GridColor = 8421504 '14788262
End With |
a+
Partager