Incrementation borne dans formul via macro ne fonctionne pas

Bonjour,

J'ai changé de version excel tout récemment. Je suis passé à Excel 2013.

Lorsque j'utilisait certaines macros dans mon ancienne version (insertion de lignes) sur d'autres feuilles, les formules sur ces autres feuilles s'incrémentaient automatiquement . Exemple de formule :

 =SI((JOURSEM((I3);1)=7);SI((NB.SI(I5:I7;"*")-NB.SI($A5:$A7;"Encadrant")>=0);(NB.SI(I5:I7;"*")-NB.SI($A5:$A7;"Encadrant"));"0");SI((NB.SI(I5:I7;"*")-NB.SI($A5:$A7;"Encadrant")>=0);(NB.SI(I5:I7;"*")-NB.SI($A5:$A7;"Encadrant"));"0"))

Si j'insérait une ligne, tous les chiffres 7 passaient à 8. Cela fonctionne lorsque je le fais en manuel directement sur la feuille concernée mais plus via cette macro:

Sub InsérerAgent()
'
' InsérerFQ
' Macro enregistrée le 04/10/2010 par lgu463
'

Dim Fintableau As Integer
Dim Agent As Variant
Fintableau = Range("A65536").End(xlUp).Row
Cells((Fintableau + 1), 1).Select

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Sheets(Array("Récap", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")).Select
    Sheets("Récap").Activate
    Agent = CommandBars.ActionControl.Tag
     ActiveCell.EntireRow.Select
    Selection.Insert Shift:=xlDown
    Sheets("Données").Select
        Select Case Agent

        Case "FQ"
        Rows("17:17").Select

        Case "FE"
        Rows("19:19").Select

        Case "Facteur"
        Rows("21:21").Select

        Case "Roulbureau"
        Rows("31:31").Select

        Case "Rouléquipe"
        Rows("23:23").Select

        Case "Interligne"
        Rows("27:27").Select

        Case "Equipe"
        Rows("29:29").Select

        Case "TAménagée"
        Rows("39:39").Select

        Case "Messagerie"
        Rows("37:37").Select

        Case "Equipe3"
        Rows("33:33").Select

        Case "Equipe4"
        Rows("35:35").Select

        End Select
    Selection.Copy
    Sheets("Janvier").Select
    Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", _
        "Septembre", "Octobre", "Novembre", "Décembre")).Select
    Sheets("Janvier").Activate
    ActiveCell.Offset(-1, 0).Select
        ActiveSheet.Paste
    Sheets("Données").Select

     Select Case Agent
        Case "FQ"
        Range("A17:D17").Select

        Case "FE"
        Range("A19:D19").Select

        Case "Facteur"
        Range("A21:D21").Select

        Case "Roulbureau"
        Range("A31:D31").Select

        Case "Rouléquipe"
        Range("A23:D23").Select

        Case "Interligne"
        Range("A27:D27").Select

        Case "Equipe"
        Range("A29:D29").Select

        Case "TAménagée"
        Range("A39:D39").Select

        Case "Messagerie"
        Range("A37:D37").Select

        Case "Equipe3"
        Range("A33:D33").Select

        Case "Equipe4"
        Range("A35:D35").Select

        End Select

    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Récap").Select
    ActiveCell.Offset(-1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Select
    Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

J'ai essayé en enlevant le passage du calcul automatique en manuel cela n'a rien modifié.

Quelqu'un aurait-il une solution à mon problème svp ?

Bonjour,

Enregistrer des 'trucs" via l'enregistreur n'a jamais donné une macro : Ça donne juste une bouillie infâme dont il est difficile d'extirper quoi que ce soit...

Je doute fort que tu aies une réponse propre sans joindre le classeur KIVABIEN avec.

A+

Au départ je me suis lancé comme tout le monde dans des macros enregistrées.

Depuis je ne le fais plus. Mais j'ai des fois garder le réflexe d'utiliser une macro enregistrée. Et pour celle ci ce n'est pas le cas.

Pour en revenir à mon souci, j'ai trouvé l'erreur qui était bête comme chou : une ligne non supprimée sur une des feuilles qui décalait tout.