tinet
XLDnaute Impliqué
Bonjour le forum,
j'ai créé un classeur avec un calendrier. Je souhaitais avoir un curseur dynamique qui se positionne sur la date du jour.
J'ai trouvé ceci sur le forum
ma question est la suivante :
sur la ligne suivante
Shapes("curseur").Left = Cells(4, 2 + Date - [g6]).Left ' je comprends pas très bien ces valeurs
G6 dois correspondre à la date du jour.
Et que signifie 4, 2
merci de votre aide
j'ai créé un classeur avec un calendrier. Je souhaitais avoir un curseur dynamique qui se positionne sur la date du jour.
J'ai trouvé ceci sur le forum
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set champ = [g7:cz114] 'champ de mon tableau
If Not Intersect(champ, Target) Is Nothing Then
On Error Resume Next
Shapes("curseur").Visible = True
If Err <> 0 Then
ActiveSheet.Shapes.AddTextbox(msoTextOrientationVertical, 1, 1, 1, 1).Name = "curseur"
End If
Shapes("curseur").Fill.Solid
Shapes("curseur").Fill.ForeColor.SchemeColor = 14
Shapes("curseur").Line.ForeColor.RGB = RGB(255, 0, 0)
Shapes("curseur").Top = champ.Top
Shapes("curseur").Left = ActiveCell.Left - 3
Shapes("curseur").Left = Cells(4, 2 + Date - [g6]).Left ' je comprends pas très bien ces valeurs
Shapes("curseur").Height = champ.Height
Shapes("curseur").Width = 3
Else
On Error Resume Next
Shapes("curseur").Visible = False
End If
End Sub
ma question est la suivante :
sur la ligne suivante
Shapes("curseur").Left = Cells(4, 2 + Date - [g6]).Left ' je comprends pas très bien ces valeurs
G6 dois correspondre à la date du jour.
Et que signifie 4, 2
merci de votre aide