Erreur syntaxe code

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:

---

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.

Bonjour Normal puisque le dernier k vous fait aller sur les lignes... ce qui fait qu'il copie la même valeur sur les 4 lignes suivantes...

Essayez ca:

Code:

---

1 2 3 4 5

For ligne = 5 To 9 If Feuil1.Cells(ligne, 3) >= 1 And Feuil1.Cells(ligne, 3) <= 10 And Feuil1.Cells(ligne, 4) >= 1 And Feuil1.Cells(ligne, 4) <= 24 Then Feuil1.Cells(ligne, 5) = 24 * (Feuil1.Cells(ligne, 3) - 1) + Feuil1.Cells(ligne, 4) End If Next

---

C'est parfait. Merci beaucoup.