VBA pb de compilation
Fermé
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
-
10 mai 2007 à 14:41
xjl Messages postés 232 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 12 juin 2007 - 10 mai 2007 à 17:37
xjl Messages postés 232 Date d'inscription mardi 27 mars 2007 Statut Membre Dernière intervention 12 juin 2007 - 10 mai 2007 à 17:37
A voir également:
- VBA pb de compilation
- Excel compter cellule couleur sans vba - Guide
- Mkdir vba ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Erreur exécution 13 : incompatibilité de type ✓ - Forum VB / VBA
8 réponses
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 191
10 mai 2007 à 14:49
10 mai 2007 à 14:49
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
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
blux
Messages postés
26817
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
28 avril 2025
3 335
10 mai 2007 à 14:50
10 mai 2007 à 14:50
Salut,
quel est le message, sur quelle ligne ?
quel est le message, sur quelle ligne ?
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
@+
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
@+
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
10 mai 2007 à 14:57
10 mai 2007 à 14:57
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
Si tu as une solution je suis tout ouie
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
10 mai 2007 à 14:59
10 mai 2007 à 14:59
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
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
xjl
Messages postés
232
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
12 juin 2007
183
10 mai 2007 à 16:17
10 mai 2007 à 16:17
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.
j'ai l'impression que ton .Cells est de trop.
En fait, après ton Activesheet tu peux directement mettre ton .Range(...).Paste normalement.
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
10 mai 2007 à 16:32
10 mai 2007 à 16:32
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
Donc ce n'est pas ce probleme apperement
Merci de m'aider
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
10 mai 2007 à 17:01
10 mai 2007 à 17:01
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)"
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)"
ruzakruzak
Messages postés
459
Date d'inscription
vendredi 9 février 2007
Statut
Membre
Dernière intervention
31 mai 2007
247
10 mai 2007 à 17:20
10 mai 2007 à 17:20
Remplace les : par une ,
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
1
10 mai 2007 à 17:30
10 mai 2007 à 17:30
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é
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é
xjl
Messages postés
232
Date d'inscription
mardi 27 mars 2007
Statut
Membre
Dernière intervention
12 juin 2007
183
10 mai 2007 à 17:37
10 mai 2007 à 17:37
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...
