VBA pb de compilation

darkspoilt Messages postés 254 Date d'inscription   Statut Membre Dernière intervention   -  
xjl Messages postés 232 Date d'inscription   Statut Membre Dernière intervention   -
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

8 réponses

Réponse 1 / 8
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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
Réponse 2 / 8
blux Messages postés 27117 Date d'inscription   Statut Modérateur Dernière intervention   3 359
 
Salut,

quel est le message, sur quelle ligne ?
0
Réponse 3 / 8
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
Réponse 4 / 8
darkspoilt Messages postés 254 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

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

Posez votre question
Réponse 5 / 8
darkspoilt Messages postés 254 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
Réponse 6 / 8
xjl Messages postés 232 Date d'inscription   Statut Membre Dernière intervention   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
Réponse 7 / 8
darkspoilt Messages postés 254 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
Réponse 8 / 8
darkspoilt Messages postés 254 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
ruzakruzak Messages postés 459 Date d'inscription   Statut Membre Dernière intervention   247
 
Remplace les : par une ,
0
darkspoilt Messages postés 254 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
xjl Messages postés 232 Date d'inscription   Statut Membre Dernière intervention   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

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

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

2 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses