Bonjour,

Dans une colonne jour (C), je rentre une valeur de 1 à 10 qui correspond aux jours ouvrés sur 2 semaines (1=Lundi, 2=Mardi, ..., 5=Vendredi, 6=Lundi, ...). Dans une colonne heure (D), je rentre une valeur de 1 à 24.
Je souhaite attribuer, dans une colonne (E), une valeur d'heure "brute" en fonction des valeurs de ces colonnes.
Exemple :
jour = 1 / heure = 5 => heure "brute" = 5
jour = 2 / heure = 1 => heure "brute" = 25
jour = 2 / heure = 10 => heure "brute" = 34
Le soucis est que mon code indique la valeur 34 dans la colonne E (E5 à E9).

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
 
Dim i, j, k  As Integer
Dim jour, heure As Range
 
For Each jour In Feuil1.Range("C5:C9")
    For Each heure In Feuil1.Range("D5:D9")
            For i = 1 To 10
                For j = 1 To 24
                    For k = 5 To 9
                        If jour = i And heure = j Then
                            Feuil1.Range("E" & k).Value = 24 * (i - 1) + j
                        End If
                    Next k
                Next j
            Next i
    Next heure
Next jour
En vous remerciant.