Microsoft World Calcule

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : Microsoft World Calcule

Bonsoir à tous

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.
 
Re : Microsoft World Calcule

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.
 
Re : Microsoft World Calcule

Bonsoir à tous

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.
Bonjour Staple
((Je fais des vidéos parce que c'est plus facile pour moi de vous montrer mon problème)) 🙂

Video 720p
[video=youtube;zx7-j6hZ0is]http://www.youtube.com/watch?v=zx7-j6hZ0is[/video]
 
Dernière édition:
Re : Microsoft World Calcule

Bonjour

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.
 
Re : Microsoft World Calcule

bonjour

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
457
Réponses
4
Affichages
311
Réponses
3
Affichages
640
Réponses
4
Affichages
640
  • Question Question
Réponses
36
Affichages
2 K
Réponses
0
Affichages
373
Retour