VBA pb de compilation

darkspoilt Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   -  
xjl Messages postés 232 Statut Membre -
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 Messages postés 9042 Statut Contributeur 1 199
     
    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
  2. blux Messages postés 2046 Date d'inscription   Statut Modérateur Dernière intervention   3 455
     
    Salut,

    quel est le message, sur quelle ligne ?
    0
  3. 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
  4. darkspoilt Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   1
     
    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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. darkspoilt Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   1
     
    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
  7. xjl Messages postés 232 Statut Membre 183
     
    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
  8. darkspoilt Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   1
     
    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
  9. darkspoilt Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   1
     
    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 Messages postés 466 Date d'inscription   Statut Membre 247
       
      Remplace les : par une ,
      0
    2. darkspoilt Messages postés 76 Date d'inscription   Statut Membre Dernière intervention   1
       
      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 Messages postés 232 Statut Membre 183
       
      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 -
Kunzi -

9 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

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

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

0 réponse