En se creusant les méninges et en farfouillant sur le net, voici ou j'en termine (normalement )
Plus besoin d'un module de classe, copiez le code ci-dessous dans ThisDocument
Code:
Option Explicit
Private WithEvents wdApp As Word.Application
Private Sub Document_Open()
If wdApp Is Nothing Then
Set wdApp = ThisDocument.Application
End If
End Sub
Code:
Private Sub wdApp_WindowSelectionchange(ByVal Sel As Selection)
If Not Sel.Information(12) Then Exit Sub
With Sel.Cells(1)
If .ColumnIndex = Sel.Tables(1).Columns.Count Then
.Range.Fields.Update
End If
End With
End Sub
NB: Pour tester, copier ce code dans un document Word contenant un tableau avec des champs calculés dans ses dernières colonnes (voir exemple précédent)
La mise à jour se fait quand le curseur est dans une des dernières colonnes. PS: code testé et fonctionnel ici.
Bonsoir Stapple.
C'est vrai, j'aurais dû y penser.
Je savais déjà que l'équivalent Excel marchait dans un userform.
Je l'ai même proposé aujourd'hui à un demandeur.
Ne serait-ce pas ce qui t'y aurait fait penser par hasard ?
Cordialement.
En se creusant les méninges et en farfouillant sur le net, voici ou j'en termine (normalement )
Plus besoin d'un module de classe, copiez le code ci-dessous dans ThisDocument
Code:
Option Explicit
Private WithEvents wdApp As Word.Application
Private Sub Document_Open()
If wdApp Is Nothing Then
Set wdApp = ThisDocument.Application
End If
End Sub
Code:
Private Sub wdApp_WindowSelectionchange(ByVal Sel As Selection)
If Not Sel.Information(12) Then Exit Sub
With Sel.Cells(1)
If .ColumnIndex = Sel.Tables(1).Columns.Count Then
.Range.Fields.Update
End If
End With
End Sub
NB: Pour tester, copier ce code dans un document Word contenant un tableau avec des champs calculés dans ses dernières colonnes (voir exemple précédent)
La mise à jour se fait quand le curseur est dans une des dernières colonnes. PS: code testé et fonctionnel ici.
serdar75:
Pourquoi utilises-tu une version non activée d'Excel? (Merci la video pour le coup )
Décidément les nouveaux membres d'XLD sont surprenants de jour en jour ...
Je reviendrai dans ton post quand tu daigneras payer ta licence Office .
PS: Je laisse le soin au modérateur du site d'agir en conséquence vis à vis de ce fil.
serdar75:
Pourquoi utilises-tu une version non activée d'excel? (merci la video pour le coup )
décidément les nouveaux membres d'xld sont surprenants de jour en jour ...
Je reviendrai dans ton post quand tu daigneras payer ta licence office .
Ps: Je laisse le soin au modérateur du site d'agir en conséquence vis à vis de ce fil.
la license c'est pas a moi c'est a mon oncle et comme il utilise plus microsoft il ma demander si je voulais une license microsoft word j'ai di oui mais comme c'est pas le meme ip j'ai des probleme avec l'activation