Discussion :

[guillaumehb]

Bonjour,

Je suis nouveau en Excel VBA et j'ai besoin de votre aide !!

Je souhaite copier 23 fois une cellule contenant une date et ensuite l'incrémenter et répéter la même chose pour une durée de 3 ans.
Et ensuite transposer une colonne en ligne plusieurs fois.
Et faire la moyenne de ma nouvelle ligne.



Merci d'avance de votre aide !!!

[ARTURO83]

Bonjour,

Le code d'après votre copie d'écran

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Report()
    Dim DerLig As Long, i As Long, Lig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 3
    For i = 3 To DerLig Step 6
        Cells(Lig, "E") = Format(Cells(i, "A") * 1, "dd/mm/yyyy")
        Cells(Lig, "F") = Format(Cells(i, "A") * 1, "hh:mm")
        Range(Cells(Lig, "G"), Cells(Lig, "L")) = Application.Transpose(Range(Cells(i, "B"), Cells(i + 5, "B")))
        Cells(Lig, "M") = Application.WorksheetFunction.Average(Range(Cells(Lig, "G"), Cells(Lig, "L")))
        Lig = Lig + 1
    Next i
End Sub

Cdlt

[guillaumehb]

Bonjour,

Je tiens à vous remercier le code marche bien !
Le seul problème c'est que quand une cellule est vide ça ne se transpose pas et s'arrête à cette ligne, pourtant il y a des cellules non vide après.

Cdt,

[ARTURO83]

Le seul problème c'est que quand une cellule est vide ça ne se transpose pas et s'arrête à cette ligne, pourtant il y a des cellules non vide après.

Vous voulez dire qu'il y a des trous dans les dates?

Pouvez-vous me faire une copie d'écran de la plage en question?

[guillaumehb]

Bonjour,

Le code d'après votre copie d'écran

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Report()
    Dim DerLig As Long, i As Long, Lig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 3
    For i = 3 To DerLig Step 6
        Cells(Lig, "E") = Format(Cells(i, "A") * 1, "dd/mm/yyyy")
        Cells(Lig, "F") = Format(Cells(i, "A") * 1, "hh:mm")
        Range(Cells(Lig, "G"), Cells(Lig, "L")) = Application.Transpose(Range(Cells(i, "B"), Cells(i + 5, "B")))
        Cells(Lig, "M") = Application.WorksheetFunction.Average(Range(Cells(Lig, "G"), Cells(Lig, "L")))
        Lig = Lig + 1
    Next i
End Sub

Cdlt

[ARTURO83]

Et avec ceci

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
Sub Report()
    Dim DerLig As Long, i As Long, Lig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 3
    For i = 3 To DerLig Step 6
        Cells(Lig, "E") = Format(Cells(i, "A") * 1, "dd/mm/yyyy")
        Cells(Lig, "F") = Format(Cells(i, "A") * 1, "hh:mm")
        Range(Cells(Lig, "G"), Cells(Lig, "L")) = Application.Transpose(Range(Cells(i, "B"), Cells(i + 5, "B")))
        On Error Resume Next
        If Err.Number = 0 Then Cells(Lig, "M") = Application.WorksheetFunction.Average(Range(Cells(Lig, "G"), Cells(Lig, "L")))
        On Error GoTo 0
        Lig = Lig + 1
    Next i
End Sub

[guillaumehb]

ça a marché, merci beaucoup !!!

Bonjour,

Le code d'après votre copie d'écran

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Report()
    Dim DerLig As Long, i As Long, Lig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    Lig = 3
    For i = 3 To DerLig Step 6
        Cells(Lig, "E") = Format(Cells(i, "A") * 1, "dd/mm/yyyy")
        Cells(Lig, "F") = Format(Cells(i, "A") * 1, "hh:mm")
        Range(Cells(Lig, "G"), Cells(Lig, "L")) = Application.Transpose(Range(Cells(i, "B"), Cells(i + 5, "B")))
        Cells(Lig, "M") = Application.WorksheetFunction.Average(Range(Cells(Lig, "G"), Cells(Lig, "L")))
        Lig = Lig + 1
    Next i
End Sub

Cdlt

[ARTURO83]

Je reviens sur le sujet, car après réflexion je pense que la méthode n'est pas bonne. Problème auquel je suppose que vous aussi n'y avait pas pensé.
En effet je n'ai pas tenu compte des changements d'horaire le dernier dimanche de mars et le dernier dimanche d'octobre de chaque année. En octobre on a 1 heure de plus, soit 2 fois 2h00 du matin, alors qu'en mars on saute de 1h50 à 3h00, donc il manque 1 heure.
Prière de me dire si je suis dans le vrai, auquel cas je revois ma copie.

Merci