Microsoft 365 compter des lignes sélectionner a la souris

[LEPATOCHE]

Bonsoir a tous , en vous souhaitant mes meilleurs vœux 2024 !
imaginons que je sélectionne avec ma souris 5 lignes dans une feuille ou plus peu importe le
nombre de lignes que j'ai sélectionner et bien ce que je veut c'est une formule en A1 qui
me renvoie le nombre de lignes que j'ai sélectionner avec ma souris merci de votre aide !
j'ai bien peur que c’a ne soit pas possible peu être en vba .

exemple je sélectionne les lignes 2 et 3 et 4 et 5 et 6 et bien la formule trouvera 5 comme résultat !

 

[patricktoulon]

bonsoir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1].Value = Selection.Rows.Count
End Sub

 

[LEPATOCHE]

Merci patricktoulon j'ai tester votre macro et c’a marche
bonne soirée .

 

[Dranreb]

Bonsoir.
Un tout petit peu plus conforme à la demande telle qu'elle était formulée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Me.Cells(1, "A").Formula = "=ROWS(" & Selection.Address & ")"
   End Sub

 

[LEPATOCHE]

Bonsoir Dranreb vous aussi c’a marche ! merci a vous tous
bonne soirée .

 

[patricktoulon]

re
Bonsoir
@Dranreb ,il faudra m'expliquer l'utilité

1. d'utiliser l'event selection change
2. pour y inscrire la formule (qui va refaire le même calcul )

que l'event peut faire tout seul

Absurde !!

 

[Dranreb]

Certes, mais @LEPATOCHE disait vouloir une formule en A1.

 

[mapomme]

Bonjour @LEPATOCHE, @patricktoulon, @Dranreb,

Une généralisation du comptage des lignes avec une sélection quelconque :

• on peut sélectionner une ou des cellules isolées au sein d'une même ligne ou dans des lignes différentes
• on peut sélectionner une ou plusieurs plages de cellules
• on peut sélectionner une ou plusieurs lignes isolées
• on peut sélectionner une ou plusieurs plage de lignes
• un mélange de tout ça...

Le code dans le module de Feuil1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xarea, n&
   For Each xarea In Application.Union(Selection.EntireRow, Selection.EntireRow).Areas: n = n + xarea.Rows.Count: Next
   [a1] = n
End Sub

Un test dans le fichier joint.

 

[mapomme]

Re,

Toujours avec une sélection quelconque (voir ci-dessus) :

On laisse tomber Union() pour Intersection() et le code peut-être réduit à une seule instruction comme pour une unique plage :

Code de la version v1a :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   [a1] = Intersect(Selection.EntireRow, Columns(1)).Count
End Sub

 

[patricktoulon]

re
bonjour a tous
bien vu @mapomme pour les non contigües

 

[LEPATOCHE]

Bonsoir patricktoulon ;
non ce n'ai pas absurde du tout car la formule que je t'ai
demander me sert a éviter de supprimer des autres lignes , car
quand je sélectionne plusieurs lignes ta formule doit correspondre avec une de mes formule et
si les 2 résultats ne sont pas identique alors je doit re sélectionner mes bonnes lignes
si tu veut ta formule c'est comme un avertissement mais ne t’inquiète pas
elle marche a merveille je l'ai testé une vrai merveille encore merci a toi et a vous tous !
et bonsoir ...