XL 2016 Nombre de cellules dans ma sélection

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #2

Bonjour le fil, Claudy

=>Claudy
Ceci ne te convient pas?

VB:

Sub test()
MsgBox Selection.Count
End Sub

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 9 Janvier 2021

• #3

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

Claudy

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #4

Re (et meilleurs vœux également)

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

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 9 Janvier 2021

• #5

Bonjour Claudy, JM, le Forum,

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

 

Pièces jointes

• Classeur1.xlsm

  15.2 KB · Affichages: 9

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #6

Bonjour UsineàGaz

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 9 Janvier 2021

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #8

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

Cliquez pour agrandir...

D'où le message#4

Avec ce nom de fonction, ce sera plus parlant

VB:

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 9 Janvier 2021

• #9

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

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[A1] = Selection.Count
End Sub

Bonne journée,
Claudy

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #10

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

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 9 Janvier 2021

• #11

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2021

• #12

Re

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

VB:

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.

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 9 Janvier 2021

• #13

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

 

Vote positif 0 Vote négatif