Report de données

Bonjour,

J'ai rajouter dans ma feuille 'boissons' une colonne 'conso' jour que je saisi verticalement. je voudrai reporter ces données dans la feuille 'conso' jour mais horizontalement. Pour avoir une consommation par jour.

Je joint mon fichier pour être plus clair

cordialement

bonjour,

Dans Ws1 (Boissons modifier la macro comme suit :

Private Sub Suivant_click()
Dim i%
TransfConso        '<= Ligne à ajouter
Application.ScreenUpdating = False
ActiveSheet.Protect UserInterfaceOnly:=True
   Range("I2:M2").Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   Range("I3:M3").Copy
   Range("I3:M3").PasteSpecial Paste:=xlPasteValues
   Range("I2:M2").PasteSpecial Paste:=xlPasteFormats
   Range("K2").Formula = "=IF(SumFin,SUM(Ventes),"""")"
   Range("M2").Formula = "=IF(SumFin,L2-J2-K2,"""")"
   Range("Fin").Copy Range("D2")
   i = Range("Fin").Count + 1
   Range("E2:F" & i).ClearContents
   Range("I2").Activate
End Sub

et dans Module 1 ajouter cette macro :

Sub TransfConso()
Dim c, iLR%
c = [ventes].Offset(, -1).Value
iLR = Worksheets("Conso Jour").[A1].CurrentRegion.Rows.Count + 1
Worksheets("Conso Jour").Cells(iLR, 1).Value = [J2]
Worksheets("Conso Jour").Cells(iLR, 2).Resize(1, UBound(c)) = Application.Transpose(c)
End Sub

A+

Merci beaucoup

Mais j'aurai voulu le calcul du nombre de bouteilles par rapport au chiffre de la colonne début