Discussion :

[isa1988]

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

[anasecu]

Bonjour

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.

Regardes si cela résout ton problème mais je n'ai pas le classeur pour tester

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
 
  ' 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
  sht.Range("k2").Value = "Manco"
  derligne = sht.Range("n" & Rows.Count).End(xlUp).Row - 1
  'insertion de la formule pour la manco automatique
  sht.Range("k4:k" & derligne).FormulaR1C1 = "=IF(RC[-8]>0,"""",1)"
  sht.Range("l4:k" & derligne).FormulaR1C1 = "=IF(RC[-7]>0,"""",1)"
  sht.Range("i4:k" & derligne).FormulaR1C1 = "=IF(RC[-6]<0,RC[-6]*RC[-5],"""")"
  sht.Range("j4:k" & derligne).FormulaR1C1 = "=IF(RC[-5]>0,RC[-5]*RC[-4],"""")"
  sht.Range("m4:k" & derligne).FormulaR1C1 = "=IF(RC[-10]>0,RC[-4],"""")"
  sht.Range("n4:k" & derligne).FormulaR1C1 = "=IF(RC[-9]>0,RC[-4],"""")"
  ' mise en forme conditionnelle
  With sht.Range("I4:N" & derligne)
    .FormatConditions.Add Type:=xlExpression, Formula1:="=ESTVIDE(I4)"
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.799981688894314
    End With
    .FormatConditions(1).StopIfTrue = True
    End With
  End If
 Next
End Sub

[isa1988]

en fait je voudrais que "derligne" soit définit comme étant la plage entre ma 4 ème ligne et la ligne au dessus de ma ligne total. ma ligne "total "est variable mais le mot "total" est forcement dans la colonne A.

[Philippe Tulliez]

Bonjour,
D'après ma première lecture, je pense que la proposition faite par Anasecu répond à ton problème. C'est d'ailleurs la même réponse que j'aurais donnée.
Il y avait deux problèmes : Le calcul de la dernière ligne qui était faite hors de la boucle et le fait qu'il fallait soustraire de 1 le calcul de la dernière ligne

[isa1988]

merci c'est tout bon