Barre d'état d'Excel nombre de ligne

Résolu
LeFast -  
 LeFast -
Bonjour.
J'ai une petite question :
Est-il possible d'afficher le nombre de ligne dans la barre d'état d'Excel ? Par exemple si je sélectionne 5 lignes, dans la barre d'état il y a écrit lignes : 5. Est-ce que c'est dans les paramètres ou il faut intégrer du vba ? (Et ce n'importe la version)
Merci pour vos réponses.

3 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,
    non ce code suffit
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Selection.Rows.Count
    End Sub

    par contre tu peux ajouter des infos et limiter le déclenchement du code à partir uniquement d'une colonne bien précise pour éviter que le code s'active dès que tu sélectionnes une cellule, exemple de code pour un déclenchement à partir de la colonne B et plusieurs types d'affichage
    a toi de choisir en fonction de ce que tu souhaites faire, ou déclencher le code à partir d'un bouton etc ...

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Selection.Column <> 2 Then Exit Sub
        MsgBox "la première ligne sélectionnée est la " & ActiveCell.Row
        MsgBox Selection.Cells.Count & " cellules"
        MsgBox ActiveCell.Address & " première cellule de la sélection"
        MsgBox Selection.Address(0, 0) & " plage sélectionnée"
        MsgBox Selection.EntireRow.Address(0, 0) & " lignes sélectionnées"
        MsgBox " de la ligne " & ActiveCell.Row & " à la ligne " & ActiveCell.Row + Selection.Rows.Count - 1
    End Sub

    1
    1. LeFast
       
      Merci.
      Même pour les versions récentes et professionnel il faut du Vba ?
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    il faut effectivement passer en VBA
    code à coller dans les propriétés de l'onglet concerné, clic droit sur l'onglet de feuille/Visualiser le code

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox Selection.Rows.Count '(nombre de cellules sélectionnées)
    End Sub
    0
    1. LeFast
       
      D'accord merci. Il faut pas plus de ligne de code ?
      Même pour les versions récentes et professionnel il faut du Vba ?
      0
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    Il suffit qu'une ligne de code pour toute les versions, éventuellement ajouter une ligne pour limiter le déclenchement du code ci dessous à partir de la colonne C

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Column <> 3 Then Exit Sub
    MsgBox Selection.Rows.Count
    End Sub

    sans VBA impossible pour toutes les versions
    0
    1. LeFast
       
      Merci d'avoir pris du temps pour me répondre.
      0