Bonjour à tous,
 
 
Je viens faire appel à votre aide, car je ne sais vraiment pas comment faire.  
Voici mon problème.
 
J'ai un fichier excel contenant des données météo toutes les 10 minutes pour une journée. Je voudrais créer une macro, me permettant de prendre toutes les données, faire une moyenne pour chaque heure et avoir les résultats dans une nouvelle feuille.
 
J'ai fais mon programme pour faire la moyenne, mais je reste là, je ne sais pas comment faire pour le reste (en tete des procédures, génération de la nouvelle feuille avec les résultats dedans)
 
Voici mon code:
 
Dim C1 As Integer
Dim C2 As Integer
Dim C3 As Integer
Dim C4 As Integer
Dim C5 As Integer
Dim C6 As Integer
 
Dim s&, z&, w&, x&, y&
 
x = 3
w = 9
z = 3
y = 2
 
If y = 7 Then
    MsgBox "la feuille est finie;"
     
    'instruction de fin attendue '
Else
        If IsEmpty(ActiveCell.Value) = x Then
            MsgBox "c'est la fin de la colonne;"
            y = y + 1
            w = w + 1
        Else
            C1 = ActiveSheet.Cells(x, y)
            x = x + 1
            C2 = ActiveSheet.Cells(x, y)
            x = x + 1
            C3 = ActiveSheet.Cells(x, y)
            x = x + 1
            C4 = ActiveSheet.Cells(x, y)
            x = x + 1
            C5 = ActiveSheet.Cells(x, y)
            x = x + 1
            C6 = ActiveSheet.Cells(x, y)
 
            s = C1 + C2 + C3 + C4 + C5 + C6
             
            If s = 0 Then
                m = 0
                MsgBox "la somme vaut 0, remplissage de la feuille"
                ActiveSheet.Cells(w, z).Value = m
            Else: m = s / 6
                'remplissage de la feuille'
                ActiveSheet.Cells(w, z).Value = m
            End If
            z = z + 1
            x = x + 1
        End If
End If
 
 
Merci de votre aide!
 
 
Loulou