Bonjour,
Le code me permettrait de faire la moyenne des refs qui ont été traités sur la feuille "2020" et de noter cette valeur sur la feuille "stats" dans la colonne 2020 dans la bonne celulle traité.
Le code fonctionne que si tous les éléments sont sur une même feuille.
je vous joints le fichier excel pour l'exemple.
Une explication ou un début de piste serait la bienvenue.
Voici le code:
Sub Macro1()
Dim i As Range
Dim col As Integer
derniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column
derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row
ligne = 6
col = 1
majLigne = 0
For Each i In Range(Cells(ligne, col), Cells(derniereLigne, col))
derniereColonne = Cells(1, Columns.Count).End(xlToLeft).Column
Set c = Sheets("2020").Range(Cells(1, 6), Cells(1, derniereColonne)).Find(i, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
'récuperation de l'adresse
adresseC = c.Address
numLigne = Range(adresseC).Row
numcol = Range(adresseC).Column
'Derniere ligne de la colonne recherché
derniereLigne = Cells(Rows.Count, numcol).End(xlUp).Row
'Moyenne de la colonne recherché + report sur la feuille "Stats"
rng = Range(Cells(numLigne + 1, numcol), Cells(derniereLigne, numcol))
Cells(ligne + majLigne, col + 1) = Application.WorksheetFunction.Average(rng)
Set c = Nothing
Else
'MsgBox "valeur " & i & " non trouvée"
End If
majLigne = majLigne + 1
Next i
MsgBox "terminé"
End Sub