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

  • Votes
  • Date
  • Date décroissante
  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
    2. 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

      @+
      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
        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
          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.
            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
              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)"
                1. ruzakruzak
                  Remplace les : par une ,
                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é
                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...

              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 exécution 13 : incompatibilité de type
              Belinos

              9 réponses