Discussion :

[booskap]

bonjour,
voici le problème j'ai un fichier a réaliser sur des données de machine
je reçois une donnée par jour et je voudrais exécuter une moyenne hebdomadaire de ces données cela étant la machine en question ne fonctionne pas tout les jours. En étudiant toutes les combinaison par rapport à 6 jours de la semaine on arrive a 66 possibilitées donc 66 if j'ai réussi à faire la macro mais elle ne marche pas enfin elle est correcte en syntaxe mais pas en résultat pouvez-vous m'aider. je joint le fichier que j'ai créer

[Jean-Philippe André]

bonjour,

dans ton code, tu mets

Code :

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

Range("D14") = D13

essaie plutôt avec

Code :

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

Range("D14").value = Range("D13").value

à adapter à chacun des cas

[gedechp]

bonjour
c'est un peu hard comme code
il y a peut etre + simple du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub calcul_dispo_hebdo()
' ************* declaration des variables *************
' decalage de cellule dans boucle
Dim decale As Single
' conteneur des valeurs
Dim tablette As Double
' nombre de valeurs
Dim valide As Single
' compteur de boucle
Dim i As Integer
' ************* initialisation des variables *************
tablette = 0
valide = 0
decale = 7
Sheets("Feuil1").Select
Range("D14").Value = ""
For i = 1 To 6
    If Range("D" & i + decale).Value <> "" Then
        tablette = tablette + Range("D" & i + decale).Value
        valide = valide + 1
    End If
Next i
If tablette <> 0 Then Range("D14").Value = tablette / valide
End Sub

a plus

[booskap]

merci pour vos réponse mon problème est résolu!!!