Bonjour à tous,


Débutant en VBA, je cherche à créer une formule que je rentre dans une cellule du style : =maformule(A1)

Et cette formule ferai la somme du premier groupe de case adjacentes pleines qui se trouve au dessus d'elle dans sa colonne.

J'ai pensé à CurrentRegion, j'ai essayé dans un premier temps de compter le nombre de lignes d'un groupe de cellules pleines avec une macro de ce type lancée par CTRL+G:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Macro2()
 
' Touche de raccourci du clavier: Ctrl+g
 
    MsgBox Range("A2").CurrentRegion.Rows.Count
 
End Sub
Ca marche sans pb mais après quand j'ai voulue faire une fonction comme ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Function nbrlignes(Cellule As Range) As Integer
 
 
    nbrlignes =  Cellule.CurrentRegion.Rows.Count
 
 
End Function

Et bien ca marche plus..

Pour testé j'ai essayé aussi de mettre dans ma fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
MsgBox Range("A2").CurrentRegion.Rows.Count
Mais c pareil même çà ca me donne pas le même résultat que le code qui marche.


Cà doit être stupide comme question car même en fouillant sur google je trouve pas de réponse, mais comment faut-il faire? .

Merci de votre aide