Discussion :

[Jayyy]

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.

[Many31]

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 :

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

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

[Jayyy]

C'est parfait. Merci beaucoup.