Reply To: Liste déroulante avec objet différent en VBA

[Bertrand SIMON]

Bonjour,
par ces lignes en VBA je souhaite faire apparaitre une valeur moyenne de donnée sélectionné entre curseur dans un “label” (text box) sur un graphique.
Voici le programme, mais il contient des erreurs:

Dim point1 As Long
Dim p1 As Long
Dim point2 As Long
Dim p2 As Long
ActiveDatabase.ActiveObject.Cursor(1).Active = True
p1 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
ActiveDatabase.ActiveObject.Cursor(2).Active = True
p2 = ActiveDatabase.ActiveObject.ActiveCursor.PositionIndex
ActiveDatabase.ActiveObject.CursorActive = False
Dim Moy
Moy = fpObjectTypeStatisticQuantity
.DataSet = “beber[p1, p2]”
.Quantity = fpStatisticQuantityArithmeticMean
.Update

With ActiveDatabase.ActiveObject.Pages(1).AddTextLabel(120, -35)
.Text = Moy
.Select
End With
End Sub

Pouvez vous m’indiquer mon erreur, s’il vous plait?

Merci par avance.