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).
En vous remerciant.
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
Partager