XL 2016 Nombre de cellules dans ma sélection

[Claudy]

Bonjour,
je suis à la recherche d'une formule qui me calculerait le nombre de cellules sélectionnées comme dans mon exemple ci dessous:

Merci d'avance,

Claudy

 

[Staple1600]

Bonjour le fil, Claudy

=>Claudy
Ceci ne te convient pas?

Sub test()
MsgBox Selection.Count
End Sub

 

[Claudy]

Bonjour Staple,
Déjà merci et bonne année, malheureusement j'aurais préféré une sub function...

Claudy

 

[Staple1600]

Re (et meilleurs vœux également)

Bah, c'est pas compliqué, non ? 😉

Sub test()
MsgBox fonction(Selection)
End Sub
Function fonction(r As Range) As String
fonction = r.Count
End Function

 

[Usine à gaz]

Bonjour Claudy, JM, le Forum,

Peut-être comme fichier ci-dessous,
lionel 🙂

 

[Staple1600]

Bonjour UsineàGaz

Tu peux poster aussi ton code VBA dans le corps de ton message, stp?

 

[Usine à gaz]

Bjr, JM,

et voilou :

Compter les cellules selectionnées

Salut tt le monde, Voilà, je voudrais avoir une formule qui me compterais toutes les cellules que que selectionne dans une feuille. J'ai bien cherche et fouiné mais je suis bredouille, si quelq'un à une idée, je suis partant. ++ :P

www.excel-downloads.com

Sub Cell_Cpmt()
Cells(ActiveCell.Row, 1) = Selection.Count
End Sub

 

[Staple1600]

Re

=>Usine à Gaz
Apparemment Claudy ne veut pas de Sub mais une fonction

Déjà merci et bonne année, malheureusement j'aurais préféré une sub function...

D'où le message#4

Avec ce nom de fonction, ce sera plus parlant

Function CompterCellules(r As Range)
CompterCellules = r.CountLarge
End Function

 

[Claudy]

Re bonjour et merci à tous,
J'ai trouvé ceci et ça me convient:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1] = Selection.Count
End Sub

Bonne journée,
Claudy

 

[Staple1600]

Re

Cela te convient mais ce n'est pas absolument pas une fonction comme tu le demandais dans le message#3.

NB: Et ce tu as trouvé, on pouvait le lire dans le message#2...

 

[Claudy]

Oui mais le but est atteint..
Merci quand même,
Claudy

 

[Staple1600]

Re

Et si j'étais moi, j'utiliserai plutôt

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

Pour éviter le dépassement de capacité si jamais tu sélectionnais toutes les cellules de la feuille active.

 

[Claudy]

oufti..
merci pour l'info,
Bon WK,
Claudy