Subtotal

[teodormircea]

Bonjour le forum

Je cherche une solution par macros pour faire un SUBTOTAL, type 3 , sur toute les colonnes dans une feuille excel.Le plus difficile c'est que certaines colonnes n'ont pas la dernière cellule remplie donc,il faut je pense déterminer la dernière ligne remplie et puis faire le SOUBTAL pour toutes les colonnes.

 

[teodormircea]

Re : Subtotal

Voila j'ai trouve une solution pour trouver la derniere ligne remplie dans une range de valeurs, il reste qu'a mettre un SUBTOTAL dans chaque cellule de la ligne

Sub FindLastRow()
Dim LastRow As Long
    If WorksheetFunction.CountA(Cells) > 0 Then
        'Search for any entry, by searching backwards by Rows.
        LastRow = Cells.Find(What:="*", After:=[A1], _
              SearchOrder:=xlByRows, _
              SearchDirection:=xlPrevious).Row
              MsgBox LastRow
    End If
End Sub

 

[BOISGONTIER]

Re : Subtotal

Bonjour,

Sub essai()
  derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
  For col = 1 To 5
    Cells(derlig + 1, col).Formula = "=SubTOTAL(3," & Cells(2, col).Address & ":" & Cells(derlig, col).Address & ")"
  Next col
End Sub

JB
Formation Excel VBA JB

 

[teodormircea]

Re : Subtotal

Merci pour cette solution, juste une petit modif, de laisse au macros de trouver la derniere colonne remplie

 

[teodormircea]

Re : Subtotal

Ah j'ai bricole un petit peux

Sub essai()
Dim LastColumn As Integer
If WorksheetFunction.CountA(Cells) > 0 Then
        'Search for any entry, by searching backwards by Columns.
        LastColumn = Cells.Find(What:="*", After:=[A1], _
                           SearchOrder:=xlByColumns, _
                       SearchDirection:=xlPrevious).Column
  derlig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
  For col = 1 To LastColumn
    Cells(derlig + 1, col).Formula = "=SubTOTAL(3," & Cells(2, col).Address & ":" & Cells(derlig, col).Address & ")"
  Next col
  End If
End Sub

 

[BOISGONTIER]

Re : Subtotal

DerCol=Cells.Find("*", , , , xlByColumns, xlPrevious).Column

JB

 

[teodormircea]

Re : Subtotal

Comment changer de subtotal et mettre 9 que pour certaines colonnes , par exemple si le header est nome x , y et Z