Somme colonne Hockey

Bonjour à tous,

J'espère que vous allez bien.

Je viens à vous car j'aimerai effectuer une macro qui, sur chacune des feuilles sélectionnées au préalable, partirai de la deuxième ligne jusqu'à la dernière ligne où il y a du contenu, et réaliserai les actions suivantes pour chaque ligne traitées :

- F = H + J + L

- G = I + K + M

Je vous remercie par avance pour votre aide et je vous souhaite un bon dimanche.

Bien cordialement.

Laplacea

Bonjour laplacea, le forum,

Un essai.....attention , la macro n'agit que sur les feuilles sélectionnées....

Public Sub SommeHockey()
  Dim oSh As Worksheet
    For Each oSh In ActiveWindow.SelectedSheets
        Totaux oSh
    Next oSh
End Sub

Public Sub Totaux(poOnglet As Worksheet)
 Dim tablo, tabloR()
    With poOnglet
     .Activate
            dl = .Range("A" & Rows.Count).End(xlUp).Row
     Set plage = .Range("E2:M" & dl)
         tablo = plage
             k = 0
          For i = 1 To UBound(tablo, 1)
           ReDim Preserve tabloR(1 To 9, 1 To k + 1)
            tabloR(1, k + 1) = tablo(i, 1)
            tabloR(2, k + 1) = Application.Sum(tablo(i, 4), tablo(i, 6), tablo(i, 8))
            tabloR(3, k + 1) = Application.Sum(tablo(i, 5), tablo(i, 7), tablo(i, 9))
            tabloR(4, k + 1) = tablo(i, 4)
            tabloR(5, k + 1) = tablo(i, 5)
            tabloR(6, k + 1) = tablo(i, 6)
            tabloR(7, k + 1) = tablo(i, 7)
            tabloR(8, k + 1) = tablo(i, 8)
            tabloR(9, k + 1) = tablo(i, 9)
             k = k + 1
          Next i
           On Error Resume Next
          .Range("E2").Resize(UBound(tabloR, 2), 9) = Application.Transpose(tabloR)
    End With
End Sub

Amitiés,

Bonsoir Xorsankukai,

J'espère que tu vas bien.

Excuse-moi de ma réponse tardive, je vais regarder ce que tu as réalisé dans les prochains jours.

Merci encore Xorsankukai

Je te souhaite une bonne soirée

Laplacea

Je viens de regarder la macro et elle fonctionne super bien.

Je te remercie pour ton temps Xorsankukai, t'es au top comme toujours

Je te souhaite une bonne soirée et prends soin de toi.

Laplacea

Rechercher des sujets similaires à "somme colonne hockey"