Bonjour à tous.
Je compile 4 onglets en un seul avec le code suivant.
Je supprime ensuite les colonnes qui ne m'interessent pas :
Enfin, et c'est ici que j'ai besoin d'aide, je cherche à faire la somme des colonnes H, I, J, K en colonne L à partir de la ligne 2 tant qu'il y a des valeurs dans l'une d'entre elles.
En L1 je veux mettre "Total" avec le même format que la ligne 1.
Merci pour votre aide.
Je compile 4 onglets en un seul avec le code suivant.
Code:
Me.Cells.Clear
With Sheets("#1")
.Range(.[A3], .[A3].SpecialCells(xlCellTypeLastCell)).Copy Destination:=Me.Cells(1, 1)
End With
With Sheets("#2")
.Range(.[A4], .[A4].SpecialCells(xlCellTypeLastCell)).Copy Destination:=Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
With Sheets("#3")
.Range(.[A4], .[A4].SpecialCells(xlCellTypeLastCell)).Copy Destination:=Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
With Sheets("#4")
.Range(.[A4], .[A4].SpecialCells(xlCellTypeLastCell)).Copy Destination:=Me.Cells(Me.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
With Me.[A1]
With .CurrentRegion
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
.Select
End With
Je supprime ensuite les colonnes qui ne m'interessent pas :
Code:
Range("A:A,C:C,J:J,M:M,O:P,R:T").Select
Range("T1").Activate
Selection.Delete Shift:=xlToLeft
Enfin, et c'est ici que j'ai besoin d'aide, je cherche à faire la somme des colonnes H, I, J, K en colonne L à partir de la ligne 2 tant qu'il y a des valeurs dans l'une d'entre elles.
En L1 je veux mettre "Total" avec le même format que la ligne 1.
Merci pour votre aide.
Pièces jointes
Dernière édition: