Microsoft 365 compter des lignes sélectionner a la souris

patricktoulon

XLDnaute Barbatruc

• 28 Janvier 2024

• #2

bonsoir

VB:

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

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 28 Janvier 2024

• #3

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Janvier 2024

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 28 Janvier 2024

• #5

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Janvier 2024

• #6

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 !!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 29 Janvier 2024

• #7

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 29 Janvier 2024

• #8

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 :

VB:

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.

 

Pièces jointes

• LEPATOCHE- compter lignes de la sélection- v1.xlsm

  19 KB · Affichages: 7

Dernière édition: 29 Janvier 2024

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 29 Janvier 2024

• #9

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 :

VB:

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

 

Pièces jointes

• LEPATOCHE- compter lignes de la sélection- v1a.xlsm

  18.5 KB · Affichages: 12

Vote positif 1 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 29 Janvier 2024

• #10

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

 

Vote positif 0 Vote négatif

L

LEPATOCHE

XLDnaute Occasionnel

• 29 Janvier 2024

• #11

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 ...

 

Vote positif 0 Vote négatif