additionné des lignes avec vba

Salut,

Que les formulistes m'exusent mais les formules c'est pas mon truc d'autant plus qu'en VBA il existe rows.count qui permet de compter le nb de lignes. Voici un bout de code à mettre dans un module standard(éviter de mettre le code dans le module feuille, appeler Princ depuis ton bouton valider):

Sub Princ()
Dim C As Range
For Each C In Range("A1", [A65536].End(xlUp))
On Error Resume Next
With Sheets(C.Text)
C.Offset(1, 10) = NBlignes(.UsedRange)
End With
Next C
End Sub
Private Function NBlignes(Plage As Range) As Long
NBlignes = Plage.Rows.Count - 1 'On ôte 1 puisque l'entete on ne le compte pas
End Function

A+++

Salut zon

Merci pour ta formule ça marche

a+

David

vba Merci pour le coup de main

J'essaie de faire un programme VBA qui calcule et stocke les trois plus petits minimums(les trois premiers) à partir d'une plage de données sur une feuille excel et les compare à une valeur constante (17 par exemple) si l'un des trois minimus égalise cette valeur stocker la constane dans la cellule correspondante sinon retourner la valeur( de la plage de données) immédiatement superieure à la constante(17).
Je suis plutôt novice en programmation sur VBA. Est ce que quelqu'un pourrait-il me dire ce qui ne va pas avec mon programme?
Merci pour le coup de main.