Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Berjean
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

B

Berjean

Guest
Bonjour à Tous,

Je voudrais en VBA (sans utiliser la barre de formule de la feuille) calculer les moyennes du tableau ci joint.


ex: D5 reçoit la moyenne de C2,C3,C4,C5

E7 la moyenne (0 exclu ) de C2,C3,C4,C5,C6,C7.

Je n'y arrive pas.

Merci de votre aide

Berjean

[file name=MoyenneVBA.zip size=8637]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoyenneVBA.zip[/file]
 

Pièces jointes

Bonjour Baside, le Forum



Merci encore pour ton boulot et tes explications qui vont me permettre de comprendre le fonctionnement du programme.



Bonne journée à vous Tous,


Berjean
 
REberjean

Baside, pour éviter de prendre en compte le 0h30 on peut remplacer

'>0 ' par '>=1' dans :

p = Application.WorksheetFunction.CountIf(Range('C2', 'C' & ligne), '>0').


Berjean
 
Bonjour Baside, le Forum

Tout à fait, c'est bien la première fois que je vois quelqu'un ne pas compter les interventions > 1 h ( LOl )

Suis un peu long car plus que le bras gauche valide.

Bonne jounée, Baside.
 
Bonjour Baside, le Forum

Cette version ne se déclenche réellement que suite à double clic sur les cellules vides de la colonnz E et >1 mis dans la condition

Bonne journée, Baside. [file name=ToutEstBonV2.zip size=10805]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ToutEstBonV2.zip[/file]
 

Pièces jointes

Merci Baside,



Lorsque je déplace ton prog. dans Private Sub Worksheet_Change(ByVal Target As Range). , pour le faire calculer dès la saisie de la cellule B ça plante!


Berjean
 
C'est encore Berjean,

Je ne comprends pas le pourquoi de :

Dim y As Byte
For x = 5 To 6 Step 2
If Target.Column = x Then
If IsEmpty(ActiveCell.Value) Then


A+

Berjean
 
Rebnonjour,

Pour le choix de la colonne sur laquelle le double clouble clic sur une celuule vide déclenche la macro.

Je regarde pour changer sur Private Sub Worksheet_Change(ByVal Target As Range)

Baside
 
En fait si j'ai changé, c'est qu'hier je me suis aperçu que si la macro remplit plus d'une cellule, excel redéclenche sans arret la procédure et j'ai du redémarrer l'ordi deux fois

Baside

Vais regarder les paramètres
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
1 K
B
  • Question Question
Réponses
8
Affichages
917
bob_denard
B
A
Réponses
15
Affichages
2 K
Réponses
38
Affichages
4 K
H
  • Question Question
2
Réponses
17
Affichages
3 K
C
Réponses
18
Affichages
3 K
caramote13
C
M
Réponses
2
Affichages
894
Mathilde04
M
P
Réponses
8
Affichages
2 K
poolinn22
P
F
Réponses
10
Affichages
2 K
fan2foot
F
B
Réponses
4
Affichages
1 K
B
A
Réponses
7
Affichages
2 K
A
S
Réponses
8
Affichages
1 K
S
B
Réponses
2
Affichages
1 K
M
Réponses
22
Affichages
3 K
maxousurf
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…