Sujet Précédent Sujet Suivant

Faire une moyenne de deux colonnes dans une autres

Résolu/Fermé
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 10 juil. 2017 à 12:25
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017 - 11 juil. 2017 à 09:02
Bonjour,

Mettons que j'ai 2 colonnes A et B, A et B contiennent des nombres.
Je voudrais une macro qui crée un colonne (C) faisant la moyenne de A et de B pour chaque ligne.

C2 = ( A2 + B2 ) /2
C3 = ( A3 + B3 ) /2
C4 = ( A4 + B4 ) /2
....

Et ce jusqu’à ce que il n'y ai plus de valeur dans les colonnes A et B qui peuvent varier de longueur . (longueur pouvant aller dans les 365 000)

Merci d'avance
A voir également:

5 réponses

Réponse 1 / 5
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796
10 juil. 2017 à 12:37
Bonjour Scuti

Essayer ceci

=MOYENNE(A2:B2)
0
Utilisateur anonyme
10 juil. 2017 à 12:43
Cette formule fait la moyenne de deux cellules ... Il faut faire ceci pour toutes les cellules de la colonne A et B (tant qu'il y a des valeurs).

Une solution serait d'etirer la formule mais la taille des colonnes est variable. D'ou la macro je pense
0
PHILOU10120 Messages postés 6368 Date d'inscription lundi 16 avril 2012 Statut Contributeur Dernière intervention 22 avril 2024 796 > Utilisateur anonyme
10 juil. 2017 à 13:08
Avec la souris vous positionner sur le coin en bas à droite quand le curseur devient une croix, double cliquez la formule se recopie sur toute la hauteur
0
Utilisateur anonyme
10 juil. 2017 à 13:10
De nouveau :
"Une solution serait d'etirer la formule mais la taille des colonnes est variable. D'ou la macro je pense"

Il faut que l'utilisateur "double clique sur la croix" a chaque fois que la taille de la colonne varie. Il s'agit d'automatiser ce systeme dans ce cas particulier via une macro
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié le 10 juil. 2017 à 13:33
Bonjour,

ne rempli qu'une seule ligne de donnée avec la formule, sélectionne A1:C2 et 'Insertion / Tableau'.
Tout ajout recopiera formats et formules de la ligne au-dessus.
eric
0
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
Modifié le 10 juil. 2017 à 13:57
Je veut que la macro s'adapte aux différents tableaux. Il n'y a pas d'ajout de ligne juste différents tableaux

Il me faut donc une macro qui détecte la fin de mon tableau et ainsi savoir jusqu’où effectuer la formule.

Help-Jason a très bien résumé mes attentes
0
Réponse 2 / 5
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
10 juil. 2017 à 15:22 
    Dim derLig As Long
    derLig = Sheets("paramètres").Range("A" & Sheets("paramètres").Rows.Count).End(xlUp).Row

Range("AN1").Select
    ActiveCell.FormulaR1C1 = "Profondeur moyenne tête"
    Range("AN2").Select
    ActiveCell.FormulaR1C1 = "=(RC[-10]+RC[-9])/2"
    Range("AN2").Select
    Selection.AutoFill Destination:=Range("AN2:AN" & derLig), Type:=xlFillDefault
0
Réponse 3 / 5
Utilisateur anonyme
10 juil. 2017 à 15:30
Y'a deux trois bricoles a regler mais voila la base : 
Sub AutoAverage()
    Dim LRow As Integer
    LRow = Range("B1").End(xlDown).Row
    Range("C1").Formula = "=AVERAGE(A1:B1)"
    Range("C1:C" & LRow).FillDown
End Sub


L'astuce provient du "FillDown" et du "LRow"

Source :
https://stackoverflow.com/questions/22104743/excel-vba-autofill-multiple-cells-with-formulas
0
Réponse 4 / 5
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
10 juil. 2017 à 15:35
et merci de signaler quand tu postes également dans un autre forum : https://www.developpez.net/forums/d1723096/logiciels/microsoft-office/excel/macros-vba-excel/faire-moyenne-colonnes-autres/
Surtout si tu as la réponse et qu'il inutile de continuer.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
scuti Messages postés 31 Date d'inscription jeudi 29 juin 2017 Statut Membre Dernière intervention 24 juillet 2017
Modifié le 11 juil. 2017 à 09:03
Ok merci éric et help jackson
0