Barre d'état d'Excel nombre de ligne
Résolu/Fermé
A voir également:
- Barre d'état d'Excel nombre de ligne
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- Hors ligne instagram - Guide
3 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 août 2021 à 14:29
17 août 2021 à 14:29
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 ...
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 août 2021 à 13:01
17 août 2021 à 13:01
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
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
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
17 août 2021 à 14:42
17 août 2021 à 14:42
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
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
17 août 2021 à 14:33
Même pour les versions récentes et professionnel il faut du Vba ?