Faire une moyenne de deux colonnes dans une autres
Résolu
scuti
Messages postés
31
Date d'inscription
Statut
Membre
Dernière intervention
-
scuti Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
scuti Messages postés 31 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Moyenne de deux colonnes excel
- Formule moyenne excel plusieurs colonnes - Guide
- Comment faire deux colonnes sur word - Guide
- Classer par ordre alphabétique excel plusieurs colonnes - Guide
- Déplacer colonne excel - Guide
- Nombre de jours entre deux dates excel - Guide
5 réponses
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
Y'a deux trois bricoles a regler mais voila la base :
L'astuce provient du "FillDown" et du "LRow"
Source :
https://stackoverflow.com/questions/22104743/excel-vba-autofill-multiple-cells-with-formulas
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
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.
Surtout si tu as la réponse et qu'il inutile de continuer.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Une solution serait d'etirer la formule mais la taille des colonnes est variable. D'ou la macro je pense
"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
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
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