Bonjour
pour l'amélioration un projet perso je doit insérer une formule jusqu’à l'avant dernier ligne de mon table (la dernière étant le total) je dois le faire sur plusieurs onglets dont le nombre ligne est variable.
j'arrive a faire jusqu'a la dernière mais ca ne va pas. et pas possible de rajouter un "nouveau total" car les totaux sont repris dans l'onglet recapitulation. Merci pour votre aide
voici où j'en suis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub MEP_Formule()
'
'inserer automatiquement la nouvelle formule des manco et mettre en page pour voir le manque de formule
 
'definition des variables
 
 Dim sht As Worksheet
 Dim derligne As String
 'definition de la dernière ligne
  derligne = Range("n" & Rows.Count ).End(xlUp).Row
 
  ' code pour chaque onglet sauf l'onglet récapitulation
 For Each sht In Worksheets
  Debug.Print sht.Name
  If sht.Name <> "récapitulation" Then
  ' mise a jour de l'entete de manco
  Range("k2").Value = "Manco"
  'insertion de la formule pour la manco automatique
  Range("k4:k" & derligne).FormulaR1C1 = "=IF(RC[-8]>0,"""",1)"
  Range("l4:k" & derligne).FormulaR1C1 = "=IF(RC[-7]>0,"""",1)"
  Range("i4:k" & derligne).FormulaR1C1 = "=IF(RC[-6]<0,RC[-6]*RC[-5],"""")"
  Range("j4:k" & derligne).FormulaR1C1 = "=IF(RC[-5]>0,RC[-5]*RC[-4],"""")"
  Range("m4:k" & derligne).FormulaR1C1 = "=IF(RC[-10]>0,RC[-4],"""")"
  Range("n4:k" & derligne).FormulaR1C1 = "=IF(RC[-9]>0,RC[-4],"""")"
  ' mise en forme conditionnelle
   Range("I4:N" & derligne).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ESTVIDE(I4)"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.799981688894314
    End With
    Selection.FormatConditions(1).StopIfTrue = True
  End If
 Next
End Sub