Barre d'état d'Excel nombre de ligne
Résolu
LeFast
-
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.
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
-
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
-
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
-
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