Bojour à tous,
je recois un classeur comprenant les commandes detaillées de clients j'ai une macro qui me permets d'introduire une ligne entre chaque client puis qui me calcule le poids et le nombre de colis dans cette ligne ajoutée et la teinte en bleue pour la distinguer . toutefois je souhaiterai aussi coller les cellules C:K de la ligne N-1 comment puis je faire ,je n'y arrive pas
voici mon code
je joins un fichier
je recois un classeur comprenant les commandes detaillées de clients j'ai une macro qui me permets d'introduire une ligne entre chaque client puis qui me calcule le poids et le nombre de colis dans cette ligne ajoutée et la teinte en bleue pour la distinguer . toutefois je souhaiterai aussi coller les cellules C:K de la ligne N-1 comment puis je faire ,je n'y arrive pas
voici mon code
Code:
Sub toto()
Dim Lastlig As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("viking") 'adapter au nom de la feuille
Lastlig = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = Lastlig To 3 Step -1
If .Range("B" & i - 1) <> .Range("B" & i) Then .Rows(i).Insert: .Rows(i).Interior.ColorIndex = 8
Next i
End With
haut_somme = 8
For n = 10 To Range("A65536").End(xlUp).Row + 1
If Range("A" & n) = "" Then
For m = 1 To 2
Selection.Font.Bold = True
Cells(n, 13 + m) = WorksheetFunction.Sum(Range(Cells(haut_somme, 13 + m), Cells(n - 1, 13 + m)))
Next
haut_somme = n + 1
End If
Next