MACRO Excel

Bonjour,

J'ai besoin de votre aide afin de réaliser et comprendre cette macro.

Sur la feuille1, la colonne J est vide et sur la feuille2 la colonne J reprendrai les totaux des lignes sur fond bleu (totaux horizontal). Le problème est que les totaux sur fond bleu sont variables, donc apparaissent à des endroits différents à chaque réalisation d'un nouveau fichier.

Donc j'essaye d'automatiser le résultat de la feuille2 à partir de la feuille1.(avec des variables)

Merci de votre aide,

Bonsoir,

voici une macro qui copie les lignes qui commencent par Total

Sub extrairetotaux()
Dim ws1 As Object, ws2 As Object
'noms des feuilles à utiliser

Set ws1 = Sheets("Feuil30 (2)")
Set ws2 = Sheets("totaux")

dl = ws1.Range("a" & ws1.Rows.Count).End(xlUp).Row

For i = 1 To dl
 'selection des lignes dont la cellule en colonne A commence par Total
 If Left(ws1.Cells(i, 1), 5) = "Total" Then
  k = k + 1
  ws1.Rows(i).Copy
  ws2.Range("A" & k).Select
  Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 End If
Next i

Set ws1 = Nothing
Set ws2 = Nothing
End Sub

Bonjour,

Une proposition avec les données déclarées en tableau et TCD actualisé en auto à l'activation de la feuille "Synthèse".

Soit dès l'ajout ou la suppression de données.

Cdlt