Bonjour Bertrand et Cisco
@mutzik
voila on partage les document avec office365 par courriel, les usages avec lesquels tu partage le document recoivent un lien qui ouvre une page web, donc il vont faire des modifications seulement par le navigateur pour pouvoir etre plusieur utulisateur a la fois sur la meme page. Avec un collegue j avais cree le macro suivant qui fonctionnait tres bien:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Definition of Variable
Dim QTY As Integer, PV As Integer, NV As Integer, NBVAL As Integer, STRNB As Integer
'STRNN : Start number = 2 : Title = 2
STRNB = 3
'Line number with Title + 1 (Title = A1)
NBVAL = Application.WorksheetFunction.CountA(Range("B:B")) + 1
'FOR LOOP FOR ALL CELLS
For CT = STRNB To NBVAL
'Variables affectations
QTY = Cells.Item(CT, "E")
PV = Cells.Item(CT, "D")
NV = PV + QTY
'Conditions
If PV = 0 Or Cells(CT, "D").Value = "" Then Cells(CT, "F").Value = Date
If NV < 0 Then NV = 0
If NV < PV Then Cells(CT, "F").Value = Date
'Cells actions
Cells(CT, "D").Value = NV
Cells(CT, "E").ClearContents
Next CT
Exit Sub
End Sub
Mais quand jai integre les code dans excel sur office 365 j ai vu qu il ne marchait plus et apres quelques recherche sur le site j ai trouve une information que le macro ne fonctionnait pas sur office 365.