Discussion :

[Gilles93]

Bonjour, je souhaite pré-remplir un cellule d'un tableau Word lorsque je double clique dessus. Suivant le numéro de colonne (il y en a 12) la valeur à mettre sera différente. J'ai déjà faite ça sous Excel. A titre d'exemple voici le code ci dessous. Est-ce transposable sous Word? Merci pour votre contribution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plg As Range
Set Plg = Range("a1:F20")
If Not Intersect(Target, Plg) Is Nothing Then
    If ActiveCell = "" Then
        Select Case ActiveCell.Column
        Case Is = 1
            ActiveCell.Value = Format(Now(), "dd\/mm\/yy")
        Case Is = 2
            ActiveCell.Value = Format(Now(), "HH\hMM\m\n")
        End Select
    End If
End If
End Sub

[clementmarcotte]

Bonjour,

Je ne pense pas, du moins pas directement. Le support des événements dans Word est très loin d'égaler celui d'Excel. À première vue, il n'y a aucun support d'événement dans un tableau Word. La seule similarité, si on peut dire, entre une feuille Excel et un tableau Word c'est Cell(ligne, colonne) qui permet d'atteindre une cellule particulière, sur le même principe que Cells(Ligne, Colonne)

L'objet Document ne supporte aucun événement click.

L'objet Application (Wd 2010) supporte :

Application.WindowBeforeDoubleClick et Application.WindowBeforeRightClick

Et aussi:

Application.WindowSelectionChange

Comme ils retournent tous les trois un Object Selection, tu pourrais peut-être passer par là. Encore qu'il faudrait que tu sois sûr que tu es bien dans un tableau, et Word n'a aucun objet Target pour se repérer.

M'est avis que cela risque d'être très long à programmer en VBA.

Pour moi, c'est impossible avec mon Word à 64 bits; mais, si tu as un Word à 32 bits, tu pourrais aussi regarder si tu peux utiliser l'ActiveX Spreadsheet des Office Web Components, dans les contrôles supplémentaires du "ruban" Développeur. La version 11 d'office 2003 a été mise à jour pour être compatible avec 2007. La dll doit être encore disponible sur le site de MS.