Public ComOPC As Boolean, MaCellule As Range
Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, _ ByVal NumItems As Long, _ ClientHandles() As Long, _ ItemValues() As Variant, _ Qualities() As Long, _ TimeStamps() As Date) Dim i As Integer ComOPC = True For i = 1 To NumItems Set MaCellule = Cells(ClientHandles(i), 4) MaCellule.Value = ItemValues(i) Next i ComOPC = False End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If ComOPC = True Then If Not Target Is Macellule Then Macellule.Select End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question