Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
762 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Word numéro de tableau

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Word numéro de tableau

n°1408394
pyrof
Posté le 18-07-2006 à 09:57:01  profilanswer
 

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
 
 

mood
Publicité
Posté le 18-07-2006 à 09:57:01  profilanswer
 

n°1408833
wape
Posté le 18-07-2006 à 21:39:29  profilanswer
 

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

n°1409091
pyrof
Posté le 19-07-2006 à 08:07:13  profilanswer
 

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

n°1409092
pyrof
Posté le 19-07-2006 à 08:12:49  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Word numéro de tableau

 

Sujets relatifs
Tableau double entréetableaux iùmbriqués sous word
Tableaux imbriqués dans wordInsertion d'un tableau dans une table sql
Balises html/wordOuvrir un document Word publipostage à un enregistrement préci
Javascript/DOM ajout input/select en colonne dans un tableau[VB.NET et C#.Net] Problème de tableau /click bouton (postback?)
[resolu] Initialisation d'un tableaulargeur tableau
Plus de sujets relatifs à : Word numéro de tableau


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR