Word numéro de tableau

Marsh Posté le 18-07-2006 à 09:57:01

Bonjour,

Je souhaiterai récupérer le numéro du tableau dans un document.

Explication

Dans un document j'ai x tableaux.
Je place le curseur dans l'un d'eux et par macro je voudrais avoir le message :

Vous êtes dans le 5ième tableau ....

Meric à vous

Reply

Marsh Posté le 18-07-2006 à 09:57:01

Reply

Marsh Posté le 18-07-2006 à 21:39:29

Bonjour,

Essaye qqch du genre :

If Selection.Information(wdWithInTable) Then
For iTbl = 1 To ActiveDocument.Tables.Count
If Selection.InRange(ActiveDocument.Tables(iTbl).Range) Then
MsgBox "Vous êtes dans le " & iTbl & IIf(iTbl = 1, "er", "ème" ) & " tableau !"
Exit For
End If
Next iTbl
Else
MsgBox "Le curseur n'est pas dans un tableau !"
End If

wape

Reply

Marsh Posté le 19-07-2006 à 08:07:13

Bonjour Wape

Merci c'est super, je ne connaissais pas inrange

Voici ce que j'avais trouvé :

Spoiler :

Function item_tableau()
If Selection.Information(wdWithInTable) Then
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
item_tableau = Selection.Tables.Count
ActiveDocument.Tables(item_tableau).Select
Else
item_tableau = 0
End If
End Function

Ta solution est meilleure

Merci

Reply

Marsh Posté le 19-07-2006 à 08:12:49

Désolé le cde n'a pas suivi

Function item_tableau()
If Selection.Information(wdWithInTable) Then
Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
item_tableau = Selection.Tables.Count
ActiveDocument.Tables(item_tableau).Select
Else
item_tableau = 0
End If
End Function

Reply

Word numéro de tableau

Sujets relatifs:

Leave a Replay