Discussion :

[nazaire]

Bonjour,

Je dois traiter des données sur une plage avec un nombre de lignes variable.
Je souhaite intégrer des calculs (moyenne, maxi, centile...) pour exploiter mes données automatiquement (nombreux fichiers et plus de 5000 lignes de données par fichier).
Mon problème c'est de rentrer ma plage variable dans les formules.
J'ai nommé ma plage P, mais je ne sais pas quelle syntaxe utiliser pour saisir ma plage dans les formules.
J'ai retrouvé les formules à partir de l'enregistreur de macro, mais il faut saisir les valeurs de lignes et colonnes.

Code :

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

range("A2").formula = "=average(p)"

ne fonctionne pas (je recopie de tête, ce n'est peut être pas tout à fait ça, mais c'est l'esprit...).
Dans ce cas je souhaite faire la moyenne de ma plage p dans la cellule A2.

Je précise que ma plage est définie par le biais de la première cellule et de la combinaison CTRL + SHIFT + TOUCHE DOWN

En espérant avoir été assez clair, merci d'avance

[Philippe Tulliez]

Bonsoir,
Si j'ai bien compris, tu souhaites utiliser comme argument, une plage nommée dans une formule ou une fonction.
La syntaxe pour utiliser une plage nommée comme argument d'une fonction est la même que pour une cellule ou un groupe de cellules.
Exemple pour une plage nommée 'Janvier'

Code :

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

1
2
3
4
 
Sub LaSomme()
 Debug.Print Application.WorksheetFunction.Sum(Range("Janvier"))
End Sub

[nazaire]

Bonjour,

merci pour votre réponse.

Une question, si la moyenne de la plage p est bien calculée où s'inscrit elle ,
dans la cellule active de la feuille ?
J'ai testé ceci mais ça ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub moyenne()
Dim p As Range
Range("b2").Select
 
Set p = Range(Selection, Selection.End(xlDown))
Range("b2").Select
    Range(Selection, Selection.End(xlDown)).Select
 
 
 Debug.Print Application.WorksheetFunction.Average(Range("p"))
 
 
 
End Sub

Erreur définie par l'application ou par l'objet

Comment faire pour donner la cellule cible où doit s'inscrire le résultat de la moyenne de la plage ?

Merci d'avance

[Philippe Tulliez]

Bonjour,
Attention on ne parle plus de la même chose. La réponse que j'ai donnée était pour une plage nommée.
Ce que vous souhaitez ici, c'est de définir une variable objet dont l'adresse de la plage serait calculée dynamiquement.
Dans ce cas, c'est ce code qu'il faut adopter. (Il est inutile d'utiliser la méthode Select qui de plus ralenti la procédure)

Code :

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

1
2
3
4
5
6
 
Sub moyenne()
 Dim p As Range
 Set p = Range("b2:b" & Range("b2").End(xlDown).Row)
 Debug.Print Application.WorksheetFunction.Average(p)
End Sub

J'ai utilisé dans l'exemple l'instruction Debug.print, mais cela pourrait être MsgBox ou Range("A1") =

Petite remarque : Il est préférable de définir le classeur et la feuille en plus du range pour éviter des problèmes dans le cas où un autre classeur ou une autre feuille serait actif.

[nazaire]

Bonsoir Corona,

Je testerai le code demain au bureau.
En attendant, plusieurs questions.
Si je veux que la valeur de la moyenne s'inscrive en cellule c5 par exemple, il faut coder ainsi ? :

Code :

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

1
2
3
4
5
Sub moyenne()
 Dim p As Range
 Set p = Range("b2:b" & Range("b2").End(xlDown).Row)
 range("c5")= Application.WorksheetFunction.Average(p)
End Sub

Dans la définition de la plage P à quoi correspond "b2:b" ?

Bonne fin de soirée

[Philippe Tulliez]

Bonsoir,
C'est exact pour

Code :

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

range("c5")= Application.WorksheetFunction.Average(p)

C'est la cellule C5 de la feuille active qui recevra le résultat de la fonction.
Dans

Code :

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

1
2
 
Set p = Range("b2:b" & Range("b2").End(xlDown).Row)

Cela équivaut à dire que p (qui est égal à un Range) = range("B2:B" + nombre de lignes) soit, s'il y a des lignes remplies jusqu'à B8, le résultat sera "B2:B8"
parce-que Range("b2").End(xlDown).Row) renverra 8

[nazaire]

Bonjour,

Je viens de tester, ça fonctionne.

Merci beaucoup pour le coup de pouce.