Discussion :

[scuti]

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)
Cette macro doit pouvoir s'adapter à différents tableaux

Merci d'avance

[Jean-Philippe André]

Bonjour;

pourquoi passer par une macro ?

Ne peux tu pas simplement double cliquer en bas a droite de ta cellule pour appliquer la formule directement ?

[riaolle]

Bonjour,
Attention, ici tu es sur le forum Excel et pas le forum VBA.
Pourquoi as-tu besoin d'une macro ? Une formule ne suffit-elle pas ?
Où bloques-tu ? Je ne vois pas de code dans ton message. Qu'as-tu fait pour l'instant ? Qu'est-ce qui ne "marche pas" ?
Si ce qui te bloque, c'est de trouver la dernière ligne non vide, voici comment faire :

Code :

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

1
2
Dim derLig As Long
derLig = Sheets("ma feuille").Range("A" & Sheets("ma feuille").Rows.Count).End(xlUp).Row

Ensuite, il suffit d'appliquer la formule sur la plage de cellules voulues (de C2à CderLig)

[jerome.vaussenat]

Salut,

Pas besoin de macro pour faire ce travail.

En C2, tu mets la formule suivante

Code :

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

=MOYENNE(A2:B2)

Tu te places sur la cellule C2, tu pointe avec ta souris sur le coin inférieur droit (la poignée de recopie : souris sous forme d'un plus)
Là, tu fais un double clic (à la place d'un cliqué-glissé habituel)
La formule écrite se recopie, jusqu'à la fin du tableau (et ce quelle que soit sa longueur !!)

Tu peux aussi activer la fonction Tableau et ainsi bénéficier de tout un tas de petit plus. Dans ton cas la notion de colonne calculée. Pour en savoir plus sur cette fonction :
http://silkyroad.developpez.com/excel/tableau/

En espérant que cela t'aidera.

[scuti]

ll

[scuti]

Cette opération fait partie d'un code de 2500 ligne, je ne veut pas avoir à le scinder en deux juste pour faire un double clique.

Pour l'instant voici la partie de mon code qui m’intéresse:

Code :

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

1
2
3
4
5
6
7
8
Sheets("paramètres").Select
    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:AN380012"), Type:=xlFillDefault
    Range("AN2").Select

Or ici la moyenne est effectuée jusqu'à une ligne fixe : 380 012
Je ne peut donc pas utiliser cette macro sur des tableau plus petit ou plus grand


Excusez moi je ne savais pas qu'il y avait un forum VBA*

Je viens d'essayer cela mais ça n'as pas fonctionné:

Code :

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

1
2
3
4
5
6
7
8
9
    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:ANderLig"), Type:=xlFillDefault

[Jean-Philippe André]

Tu utilises une variable; pas du texte

Code :

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

    Selection.AutoFill Destination:=Range("AN2:AN" & derLig), Type:=xlFillDefault

[scuti]

Merci ça fonctionne.


Est ce que je peut l'utiliser ici ?

Code :

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

1
2
3
4
5
6
7
8
    Dim derLig As Long
    derLig = Sheets("paramètres").Range("A" & Sheets("paramètres").Rows.Count).End(xlUp).Row
 
Set mondico = CreateObject("Scripting.Dictionary")
For Each aq In Range("j2", [j387000].End(xlUp))
   mondico(aq.Value) = ""
Next aq
[aq2].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)

Au lieu de 387000 puis je utiliser derLig

[eriiic]

Ce n'est pas ta question mais au cas où avec

Code :

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

Application.Transpose(mondico.keys)

tu es limité à 65536 lignes...

[scuti]

Ce n'est pas ta question mais au cas où avec

Code :

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

Application.Transpose(mondico.keys)

tu es limité à 65536 lignes...

Merci de l'info

Dans mon cas la valeur ne dépasse pas les 200

[riaolle]

Code :

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

1
2
3
4
5
6
7
8
9
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:ANderLig"), Type:=xlFillDefault

Ceci s'écrit de façon plus courte :

Code :

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

1
2
3
4
Dim derLig As Long
    derLig = Sheets("paramètres").Range("A" & Sheets("paramètres").Rows.Count).End(xlUp).Row
    Range("AN1").Value = "Profondeur moyenne tête"
    Range("AN2:AN" & derLig).FormulaR1C1 = "=(RC[-10]+RC[-9])/2"

Ensuite, plutôt que

Code :

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

Range("j2", [j387000].End(xlUp))

écris:

Code :

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

Range("J2:J" & derLig)

[scuti]

Merci