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

  1. #1
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    657
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 657
    Points : 123
    Points
    123

    Par défaut Placer le curseur dans la dernière cellule d'une ligne d'un tableau

    Bonjour,
    Je souhaiterais placer mon curseur dans la dernière cellule de la deuxième ligne d'un tableau sans connaître le nombre de cellule de cette ligne mais n'y arrive absolument pas.

    Quelqu'un aurait-il un début de solution s'il vous plaît?

    MERCI

  2. #2
    Expert éminent sénior

    Homme Profil pro
    Développeur Vba Excel
    Inscrit en
    avril 2013
    Messages
    4 040
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Développeur Vba Excel
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2013
    Messages : 4 040
    Points : 10 329
    Points
    10 329
    Billets dans le blog
    27

    Par défaut

    Citation Envoyé par Kestion100 Voir le message
    Bonjour,

    A tester :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
     
    Option Explicit
     
    Sub TestSelectionnerDerniereCelluleLigneTableau()
     
        SelectionnerDerniereCelluleLigneTableau ActiveDocument.Tables(1), 2
     
    End Sub
     
     
    Sub SelectionnerDerniereCelluleLigneTableau(ByVal TableauEnCours As Table, ByVal NumeroDeLigne As Integer)
     
    Dim NbCellules As Long
     
        With TableauEnCours
             NbCellules = .Rows(NumeroDeLigne).Range.Cells.Count
             .Rows(NumeroDeLigne).Range.Cells(NbCellules).Select
            ' Selection.EndKey unit:=wdLine  ' Fin de la cellule
             Selection.HomeKey unit:=wdLine  ' Début de la cellule
        End With
     
    End Sub
    Eric KERGRESSE
    https://sites.google.com/site/erickergresseeirl/
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter

  3. #3
    Membre régulier
    Homme Profil pro
    Inscrit en
    mai 2012
    Messages
    657
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : mai 2012
    Messages : 657
    Points : 123
    Points
    123

    Par défaut

    Bonjour, Je teste et donne le résultat mais je pense que ça va être un "Résolu", MERCI

Discussions similaires

  1. Placer le Curseur dans Textarea
    Par sause dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 02/10/2010, 21h45
  2. Placer son curseur dans la combobox
    Par Eagle 2 dans le forum Windows Forms
    Réponses: 0
    Dernier message: 16/06/2009, 15h38
  3. placer le curseur dans une textbox défini à l'ouverture d'un userform
    Par jffaber dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 04/08/2008, 17h38
  4. [debutant] placer le curseur dans un JTextField
    Par samplaid dans le forum Composants
    Réponses: 1
    Dernier message: 02/11/2006, 14h12
  5. [VB6]Surligner et placer le curseur dans un textbox.
    Par méphistopheles dans le forum VB 6 et antérieur
    Réponses: 17
    Dernier message: 29/10/2005, 10h41

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