IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Word Discussion :

sélection d'une ligne hors ou dans un tableau [WD-2010]


Sujet :

VBA Word

  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    772
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 772
    Points : 174
    Points
    174
    Par défaut sélection d'une ligne hors ou dans un tableau
    Bonjour à tous,

    Je m’adresse à vous pour savoir s’il est possible de sélectionnée une ligne si celle-ci est dans un tableau ou non ?

    Voilà ce que je cherche à faire :

    Si la ligne fait partie du tableau alors
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
        Selection.MoveDown Unit:=wdLine, Count:=1
        On Error Resume Next
        Selection.SelectRow
    Si non
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Fin

    Pourriez-vous m’aider svp.

    Merci d’avance pour votre réponse.

  2. #2
    Membre habitué
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    772
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 772
    Points : 174
    Points
    174
    Par défaut
    Finalement en fouinant et en persévérant j'ai trouvé une solution
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub SélectionLigneSuivanteTableau()
    If Selection.Information(wdWithInTable) Then
        'MsgBox "c'est un tableau"
        Selection.MoveDown Unit:=wdLine, Count:=1
        On Error Resume Next
        Selection.SelectRow
    Else
        'MsgBox "c'est pas un tableau"
        Selection.MoveDown Unit:=wdLine, Count:=1
        Selection.HomeKey Unit:=wdLine
        Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    End If
    End Sub
    A moins que vous ayez une autre idée.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Filtrage d'une ligne sur deux dans un tableau
    Par Flo Flo dans le forum Excel
    Réponses: 5
    Dernier message: 29/06/2010, 16h51
  2. Lire une ligne à la fois dans un tableau
    Par kenru dans le forum Langage
    Réponses: 11
    Dernier message: 22/12/2009, 17h52
  3. Réponses: 1
    Dernier message: 11/11/2009, 12h55
  4. Colorer une ligne sur deux dans un tableau croisé
    Par markoBasa dans le forum iReport
    Réponses: 1
    Dernier message: 25/09/2008, 12h15
  5. Réponses: 3
    Dernier message: 30/08/2007, 09h56

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo