VBA pb de compilation
darkspoilt -  
Bonjour,
Mon code VBA pour Acces ne veut pas compiler dès le début. Est-ce que quelqu'un pourrais m'expiker pourquoi? car je ne vois pas l'erreur.
je lui en serais très reconnaissant

Merci d'avance

voici mon Code

Function MacroTest()

Dim xls As Excel.Application
Set xls = New Excel.Application
xls.Workbooks.Open ("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls")
xls.Visible = True

xls.ActiveSheet.Application.CutCopyMode = False
xls.ActiveSheet.Cells.Range("A2:J2").Copy
xls.ActiveSheet.Cells.Range("A23").Paste

xls.ActiveSheet.Application.CutCopyMode = False
xls.ActiveSheet.Cells.Range("A6:J6").Copy
xls.ActiveSheet.Cells.Range("A24").Paste

xls.ActiveSheet.Application.CutCopyMode = False
xls.ActiveSheet.Cells.Range("A10:J10").Copy
xls.ActiveSheet.Cells.Range("A25").Paste

xls.ActiveSheet.Application.CutCopyMode = False
xls.ActiveSheet.Cells.Range("A14:J14").Copy
xls.ActiveSheet.Cells.Range("A26").Paste

xls.ActiveSheet.Application.CutCopyMode = False
xls.ActiveSheet.Cells.Range("A18:J18").Copy
xls.ActiveSheet.Cells.Range("A27").Paste

xls.ActiveSheet.Application.CutCopyMode = False
xls.ActiveSheet.Cells.Range("A2").Cut
xls.ActiveSheet.Cells.Range("A3").Paste

xls.ActiveSheet.Cells.Range("A6").Cut
xls.ActiveSheet.Cells.Range("A7").Paste

xls.ActiveSheet.Cells.Range("A10").Cut
xls.ActiveSheet.Cells.Range("A11").Paste

xls.ActiveSheet.Cells.Range("A14").Cut
xls.ActiveSheet.Cells.Range("A15").Paste

xls.ActiveSheet.Cells.Range("A18").Cut
xls.ActiveSheet.Cells.Range("A19").Paste

xls.ActiveSheet.Rows("2:2").Delete Shift:=xlUp
xls.ActiveSheet.Rows("5:5").Delete Shift:=xlUp
xls.ActiveSheet.Rows("8:8").Delete Shift:=xlUp
xls.ActiveSheet.Rows("11:11").Delete Shift:=xlUp
xls.ActiveSheet.Rows("14:14").Delete Shift:=xlUp

xls.ActiveSheet.Cells.Range("C4:J4").ClearContents
xls.ActiveSheet.Cells.Range("C7:J7").ClearContents
xls.ActiveSheet.Cells.Range("C10:J10").ClearContents
xls.ActiveSheet.Cells.Range("C13:J13").ClearContents
xls.ActiveSheet.Cells.Range("C16:J16").ClearContents

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("C4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("D4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("E4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("F4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("G4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("H4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("I4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C2:J4").Select
xls.ActiveSheet.Cells.Range("J4").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Range("C7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Cells.Range("D7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveShhet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Cells.Range("E7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Range("F7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Range("G7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Cells.Range("H7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Cells.Range("I7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C5:J7").Select
xls.ActiveSheet.Cells.Range("J7").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C8:J10").Select
xls.ActiveSheet.Cells.Range("C10").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C8:J10").Select
xls.ActiveSheet.Cells.Range("D10").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.ActiveSheet.Cells.Range("C8:J10").Select
xls.ActiveSheet.Cells.Range("E10").Activate
xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C8:J10").Select
xls.Workbooks.Range("F10").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C8:J10").Select
xls.Workbooks.Range("G10").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C8:J10").Select
xls.Workbooks.Range("H10").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C8:J10").Select
xls.Workbooks.Range("I10").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C8:J10").Select
xls.Workbooks.Range("J10").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("C13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("D13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("E13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("F13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("G13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("H13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("I13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C11:J13").Select
xls.Workbooks.Range("J13").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("C16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("D16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("E16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("F16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("G16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("H16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("I16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select
xls.Workbooks.Range("J16").Activate
xls.Workbooks.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

xls.Workbooks.Range("C14:J16").Select

xls.Workbooks("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls").Save
Set MyExcel = Nothing
Configuration: Windows XP
Internet Explorer 6.0

8 réponses

  1.  lermite222 Contributeur
    bonjour,
    plusieur constations...
    1°) tu select et directement après tu activate, donc le select précédant n'est plus d'application.
    2° pourquoi ne pas faire les macro en Excel et ensuite copier les résultats dans ACCES
    3°) il n'y a pas de compilation en VBA, cela se fait automatiquement à l'appel de la fonction.
    4°) pour tester ta fonction, mettre le curseur dans la macro et taper F8 pour pas a pas, ou F5 pour aller jusqu'a une erreur possible, ou un arrèt (F9).
    A+
    louis
    0
    1. blux Modérateur
      Salut,

      quel est le message, sur quelle ligne ?
      0
      1. ptibenou
        Salut,

        xls.Workbooks.Range("C8:J10").Select

        doit être :

        xls.Workbooks(x).activesheet.Range("C8:J10").Select

        ou

        xls.Workbooks(x).worksheet(y).Range("C8:J10").Select

        @+
        0
        1. darkspoilt Auteur
          Justement en fait j'a fais la macro automatique par Excel et ensui je l'ai mis dans Acces c exactement la meme sauf que j'ai du spécifier les objets car sinon ca ne marchait pas du tout.
          Si tu as une solution je suis tout ouie
          0
          2. darkspoilt Auteur
            Il me met que la méthode es pa reconnu a cette ligne la
            xls.ActiveSheet.Cells.Range("A23").Paste

            et puis je me suis trompé de code la fin n'est pas bonne c 'est celui la le bon

            Function MacroTest()

            Dim xls As Excel.Application
            Set xls = New Excel.Application
            xls.Workbooks.Open ("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls")
            xls.Visible = True

            xls.ActiveSheet.Application.CutCopyMode = False
            xls.ActiveSheet.Cells.Range("A2:J2").Copy
            xls.ActiveSheet.Cells.Range("A23").Paste

            xls.ActiveSheet.Application.CutCopyMode = False
            xls.ActiveSheet.Cells.Range("A6:J6").Copy
            xls.ActiveSheet.Cells.Range("A24").Paste

            xls.ActiveSheet.Application.CutCopyMode = False
            xls.ActiveSheet.Cells.Range("A10:J10").Copy
            xls.ActiveSheet.Cells.Range("A25").Paste

            xls.ActiveSheet.Application.CutCopyMode = False
            xls.ActiveSheet.Cells.Range("A14:J14").Copy
            xls.ActiveSheet.Cells.Range("A26").Paste

            xls.ActiveSheet.Application.CutCopyMode = False
            xls.ActiveSheet.Cells.Range("A18:J18").Copy
            xls.ActiveSheet.Cells.Range("A27").Paste

            xls.ActiveSheet.Application.CutCopyMode = False
            xls.ActiveSheet.Cells.Range("A2").Cut
            xls.ActiveSheet.Cells.Range("A3").Paste

            xls.ActiveSheet.Cells.Range("A6").Cut
            xls.ActiveSheet.Cells.Range("A7").Paste

            xls.ActiveSheet.Cells.Range("A10").Cut
            xls.ActiveSheet.Cells.Range("A11").Paste

            xls.ActiveSheet.Cells.Range("A14").Cut
            xls.ActiveSheet.Cells.Range("A15").Paste

            xls.ActiveSheet.Cells.Range("A18").Cut
            xls.ActiveSheet.Cells.Range("A19").Paste

            xls.ActiveSheet.Rows("2:2").Delete Shift:=xlUp
            xls.ActiveSheet.Rows("5:5").Delete Shift:=xlUp
            xls.ActiveSheet.Rows("8:8").Delete Shift:=xlUp
            xls.ActiveSheet.Rows("11:11").Delete Shift:=xlUp
            xls.ActiveSheet.Rows("14:14").Delete Shift:=xlUp

            xls.ActiveSheet.Cells.Range("C4:J4").ClearContents
            xls.ActiveSheet.Cells.Range("C7:J7").ClearContents
            xls.ActiveSheet.Cells.Range("C10:J10").ClearContents
            xls.ActiveSheet.Cells.Range("C13:J13").ClearContents
            xls.ActiveSheet.Cells.Range("C16:J16").ClearContents

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("C4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("D4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("E4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("F4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("G4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("H4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("I4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C2:J4").Select
            xls.ActiveSheet.Cells.Range("J4").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Range("C7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Cells.Range("D7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveShhet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Cells.Range("E7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Range("F7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Range("G7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Cells.Range("H7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Cells.Range("I7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C5:J7").Select
            xls.ActiveSheet.Cells.Range("J7").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("C10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("D10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("E10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("F10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("G10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("H10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("I10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C8:J10").Select
            xls.ActiveSheet.Cells.Range("J10").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("C13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("D13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("E13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("F13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("G13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("H13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("I13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C11:J13").Select
            xls.ActiveSheet.Cells.Range("J13").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("C16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("D16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("E16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("F16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("G16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("H16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("I16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select
            xls.ActiveSheet.Cells.Range("J16").Activate
            xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"

            xls.ActiveSheet.Cells.Range("C14:J16").Select

            xls.Workbooks("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls").Save
            Set MyExcel = Nothing

            End Function
            0
            1. xjl
              Salut,

              j'ai l'impression que ton .Cells est de trop.

              En fait, après ton Activesheet tu peux directement mettre ton .Range(...).Paste normalement.
              0
              1. darkspoilt Auteur
                Meme en retirant le Cells cela ne fonctionnement il reconnait le copy mais pas le paste car les éléments sont copier . et si je retire tout les cells il ne veut meme pa copier ma ligne.
                Donc ce n'est pas ce probleme apperement
                Merci de m'aider
                0
                1. darkspoilt Auteur
                  J'ai trouvé la solution a mon paste c'était bien un probleme de syntaxe
                  voici ce qu'il fallait faire (pour ceux ki auraientt des souci aussi lol)
                  xls.ActiveSheet.Cells.Range("A3").Select
                  xls.ActiveSheet.Paste
                  maintenant
                  j'ai un autre bug dans lekel je vois pas non plus l'erreur si vous pouvez m'aider
                  xls.ActiveSheet.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
                  0
                  1. ruzakruzak
                    Remplace les : par une ,
                    0
                  2. darkspoilt Auteur
                    Ce n'est pas cela car ca fonctionne pas
                    propriété ou méthode non généré par cet objet voila ce que j'ai
                    comme erreur

                    c'est du code VBA excel que j'ai adapté
                    0
                  3. xjl
                    En fait le problème c'est que dans ta somme, il veut des nombres comme arguments, et autant quand tu mets B12 il le considère comme une adresse de cellule, autant R1C1 ou toute autre variant, il a pas l'air d'identifier, et je pense qu'il faut que ce soit ta macro qui te donne l'adresse des cellules que tu veux additionner et que tu l'inclues dans la chaine de caractère que tu mets dans ta cellule de somme...
                    0

                Discussions similaires

                VBA excel : résoudre problème de capacité.
                Juan Pedro

                9 réponses
                Méthode find dans VBA - Recherche de données sous Excel
                baissaoui

                0 réponse
                erreur d'execution 9, l'indice n'appartient pas à la sélection
                isidoh

                18 réponses
                "L'indice n'appartient à la sélection" + VBA
                fleur.31

                2 réponses
                Erreur d'exécution 13 Incompatibilité de type
                grace

                5 réponses