Discussion :

[rogerlette]

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

[mayekeul]

bonjour,

ce qui en marche pas, c'est quoi exactement?

la réponse est érronnée ou un message d'erreur apparait?

[rogerlette]

Merci de votre réponse,

Excusez moi je n'ai pas été très précis c'est vrai,

Alors en fait ce qui ne marche pas c'est que au lieu de m'afficher le nombre de lignes que contient le tableau trouvé pas la fonction CurrentRegion en fonction de la cellule choisie, il m'affiche toujours la valeur 1.

Et comme je suis pas le roi des explications au besoin voici un exemple :

http://dl.free.fr/rGaqPAwkP

[delphine35]

Chez moi, ca fontionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function nbrlignes(Cellule As Range) As Integer
 
 
    nbrlignes = Cellule.CurrentRegion.Rows.Count
 
 
End Function
 
 
Sub main()
 
    toto = nbrlignes(Range("A2"))
    MsgBox (toto)
 
End Sub

[rogerlette]

J'ai copié collé ton code dans ma un module, effectivement la MsgBox affiche bien la bonne valeur mais lorsque dans une cellule j'écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=nbrlignes(A2)

Et bien la valeur de la cellule n'est pas la même que la valeur de la MsgBox.

Cherchez pas bien loin, ce doit être une erreur de débutant qui n'a pas bien compris le fonctionnement du VBA (Car c mon cas..)

Merci de votre aide.

[delphine35]

J'ai regarder, effectivement
On recupere bien la cellule mais il ne fait aucune action sur la feuille

J'ai essayé de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   Range("A2").Select

Mais meme ca il le fait pas ....