comptage du nombre de lignes dans une sélection de cellules en colonne - vba

[Stardust]

bonjour,
malgré mes recherches et mes tentatives d'écriture du code...
voici ma problématique :
j'aimerais compter le nombre de lignes texte contenues dans une sélection de cellules (sélection en colonne)
le résultat apparaitrait dans une MsgBox.

exemple : voir PJ

le résultat serait : 9 lignes


merci du coup de pouce

bien à vous

 

[camarchepas]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonjour ,

Toujours mieux de mettre un petit fichier exemple plutot qu'une image avec laquelle l'on ne peut faire aucun test .

mais tu peux par exemple dans le module de la feuille ecrit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Count
End Sub

 

[Modeste geedee]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonsour®
Msgbox Selection.Rows.Count

 

[Stardust]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonsour®
Msgbox Selection.Rows.Count

merci mais cela ne donne pas le résultat escompté

ici, ça compte le nombre de cellules et non le total du nombre de lignes contenues dans la sélection de cellules

 

[Stardust]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

je joins un fichier excel

 

[Stardust]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonjour ,

Toujours mieux de mettre un petit fichier exemple plutot qu'une image avec laquelle l'on ne peut faire aucun test .

mais tu peux par exemple dans le module de la feuille ecrit :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Count
End Sub

désolé mais je n'arrive pas à faire tourner ce code...
ch'uis trop nul

..... [5 min plus tard...] en fait , non, j'ai réussi à faire tourner le code mais il compte le nombre de cellules.
ce n'est pas le résultat que j'espère.

il y a une différence entre le nombre de cellules et le nombre de lignes cumulées dans la sélection des cellules
voir fichier excel
j'aimerais avoir en sortie le nombre de lignes (9) et non le nombre de cellules (6)

merci

 

[Efgé]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonjour à tous
Une proposition:

Sub test()
Dim T As Variant, i&, X&
On Error Resume Next
T = Selection
For i = LBound(T, 1) To UBound(T, 1)
    X = X + UBound(Split(T(i, 1), Chr(10))) + 1
Next i
If Not Err Then MsgBox X & " ligne(s)" & vbLf & "dans la sélection " & Selection.Address, 64
End Sub

Cordialement

 

[Stardust]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Efgé,
respect !
merci bcp.

sujet clos

 

[camarchepas]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Re ,

toujours dans le module de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Rows.Count
End Sub

 

[Modeste geedee]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonsour®

sujet clos

résolu !!!
un sujet n'est jamais clos ...
en formule sans macro ni VBA, ni validation matricielle

=SOMMEPROD(1+NBCAR($E$7:$E$12)-NBCAR(SUBSTITUE($E$7:$E$12;CAR(10);"")))

via VBA après sélection d'une plage :

Sub comptelignes()
If Selection.Columns.Count = 1 Then
    MsgBox "Nbr de Lignes : " & Evaluate("=SUMPRODUCT(1+LEN(" & Selection.Address & ")-LEN(SUBSTITUTE(" & Selection.Address & ",CHAR(10),"""")))"), vbInformation
Else
    MsgBox "La selection ne doit comporter q'une seule colonne !!", vbCritical
End If
End Sub

 

[Modeste geedee]

Re : comptage du nombre de lignes dans une sélection de cellules en colonne - vba

Bonsour®

MsgBox Target.Rows.Count

https://www.excel-downloads.com/thr...-selection-de-cellules-en-colonne-vba.230356/