VBA probleme de compilation
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
-
10 mai 2007 à 14:50
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 11 mai 2007 à 11:25
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 11 mai 2007 à 11:25
11 réponses
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
10 mai 2007 à 14:58
10 mai 2007 à 14:58
Re, mais pourquoi reposter encore et encore, continue l'autre topic.
Je t'ai posé une question tu ne deigne même pas y répondre....
@+: Ju£i?n
Pensez: Réponse acceptée
Je t'ai posé une question tu ne deigne même pas y répondre....
@+: Ju£i?n
Pensez: Réponse acceptée
cs_Nicko11
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
10 mai 2007 à 15:00
10 mai 2007 à 15:00
Salut,
ca serait sympa de nous dire la ligne et l'erreur en question (ligne que VB surligne au niveau de la compilation)
ca serait sympa de nous dire la ligne et l'erreur en question (ligne que VB surligne au niveau de la compilation)
cs_Nicko11
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
10 mai 2007 à 15:01
10 mai 2007 à 15:01
A en effet, j'avais pas vu, ca evietait de poser des questions qui servent a rien. C'est chiant vraiment.
cs_Nicko11
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
10 mai 2007 à 15:02
10 mai 2007 à 15:02
Par contre, il est ou ce topic ? je le vois pas.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
10 mai 2007 à 15:08
10 mai 2007 à 15:08
Re,
T'as pas encore le coup de main,[auteurdetail.aspx?ID=999867 Nicko11] il te suffit de regarder ces messages (et tu verras tout de suite)
@+: Ju£i?n
Pensez: Réponse acceptée
T'as pas encore le coup de main,[auteurdetail.aspx?ID=999867 Nicko11] il te suffit de regarder ces messages (et tu verras tout de suite)
@+: Ju£i?n
Pensez: Réponse acceptée
cavo789
Messages postés
168
Date d'inscription
vendredi 9 janvier 2004
Statut
Membre
Dernière intervention
28 juillet 2009
1
11 mai 2007 à 07:54
11 mai 2007 à 07:54
Sûrement que quelqu'un l'a déjà mentionné dans l'autre topic : as-tu référencé Excel ?
Christophe
Christophe
darkspoilt
Messages postés
254
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
10 octobre 2013
11 mai 2007 à 10:10
11 mai 2007 à 10:10
C'est bon cela est résolu
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
11 mai 2007 à 11:05
11 mai 2007 à 11:05
Bah t'as le droit de dire ce qui a été fait pour que cela fonctionne, c'est je pense, la moindre des choses, ainsi que de remercier les membres qui ont tenté de t'aider...
Et quand tu auras mis le pourquoi du comment, accèpte cette réponse, ce bouton n'est pas là pour faire joli !
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
Et quand tu auras mis le pourquoi du comment, accèpte cette réponse, ce bouton n'est pas là pour faire joli !
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
11 mai 2007 à 11:17
11 mai 2007 à 11:17
Pis avec un With, et une ligne supprimée toutes les 3 lignes, c'est pas négligeable :
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
With xls.ActiveSheeta
.Application.CutCopyMode = False
.Cells.Range("A2:J2").Copy
.Cells.Range("A23").Paste
.Application.CutCopyMode = False
.Cells.Range("A6:J6").Copy
.Cells.Range("A24").Paste
.Application.CutCopyMode = False
.Cells.Range("A10:J10").Copy
.Cells.Range("A25").Paste
.Application.CutCopyMode = False
.Cells.Range("A14:J14").Copy
.Cells.Range("A26").Paste
.Application.CutCopyMode = False
.Cells.Range("A18:J18").Copy
.Cells.Range("A27").Paste
.Application.CutCopyMode = False
.Cells.Range("A2").Cut
.Cells.Range("A3").Paste
.Cells.Range("A6").Cut
.Cells.Range("A7").Paste
.Cells.Range("A10").Cut
.Cells.Range("A11").Paste
.Cells.Range("A14").Cut
.Cells.Range("A15").Paste
.Cells.Range("A18").Cut
.Cells.Range("A19").Paste
.Rows("2:2").Delete Shift:=xlUp
.Rows("5:5").Delete Shift:=xlUp
.Rows("8:8").Delete Shift:=xlUp
.Rows("11:11").Delete Shift:=xlUp
.Rows("14:14").Delete Shift:=xlUp
.Cells.Range("C4:J4").ClearContents
.Cells.Range("C7:J7").ClearContents
.Cells.Range("C10:J10").ClearContents
.Cells.Range("C13:J13").ClearContents
.Cells.Range("C16:J16").ClearContents
.Cells.Range("C4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Range("C7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Range("F7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Range("G7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C14:J16").Select
End With
xls.Workbooks("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls").Save
Set MyExcel = Nothing
End Function
~ <small> Mortalino ~ Colorisation automatique </small>
Ah pis je viens de voir ça aussi, tu as des dizaines de " =SUM(R[-2]C:R[-1]C)" dans ton code, autant placer cette valeur dans une constante, et utiliser cette constante à la place
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
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
With xls.ActiveSheeta
.Application.CutCopyMode = False
.Cells.Range("A2:J2").Copy
.Cells.Range("A23").Paste
.Application.CutCopyMode = False
.Cells.Range("A6:J6").Copy
.Cells.Range("A24").Paste
.Application.CutCopyMode = False
.Cells.Range("A10:J10").Copy
.Cells.Range("A25").Paste
.Application.CutCopyMode = False
.Cells.Range("A14:J14").Copy
.Cells.Range("A26").Paste
.Application.CutCopyMode = False
.Cells.Range("A18:J18").Copy
.Cells.Range("A27").Paste
.Application.CutCopyMode = False
.Cells.Range("A2").Cut
.Cells.Range("A3").Paste
.Cells.Range("A6").Cut
.Cells.Range("A7").Paste
.Cells.Range("A10").Cut
.Cells.Range("A11").Paste
.Cells.Range("A14").Cut
.Cells.Range("A15").Paste
.Cells.Range("A18").Cut
.Cells.Range("A19").Paste
.Rows("2:2").Delete Shift:=xlUp
.Rows("5:5").Delete Shift:=xlUp
.Rows("8:8").Delete Shift:=xlUp
.Rows("11:11").Delete Shift:=xlUp
.Rows("14:14").Delete Shift:=xlUp
.Cells.Range("C4:J4").ClearContents
.Cells.Range("C7:J7").ClearContents
.Cells.Range("C10:J10").ClearContents
.Cells.Range("C13:J13").ClearContents
.Cells.Range("C16:J16").ClearContents
.Cells.Range("C4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J4").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Range("C7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Range("F7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Range("G7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J7").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J10").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J13").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("D16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("E16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("F16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("G16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("H16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("I16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("J16").Activate
.ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
.Cells.Range("C14:J16").Select
End With
xls.Workbooks("D:\Eric\dossier_projets\Test\e_analyse_croisée_Test.xls").Save
Set MyExcel = Nothing
End Function
~ <small> Mortalino ~ Colorisation automatique </small>
Ah pis je viens de voir ça aussi, tu as des dizaines de " =SUM(R[-2]C:R[-1]C)" dans ton code, autant placer cette valeur dans une constante, et utiliser cette constante à la place
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
jrivet
Messages postés
7392
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
60
11 mai 2007 à 11:19
11 mai 2007 à 11:19
mortalino
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
11 mai 2007 à 11:25
11 mai 2007 à 11:25
hé hé, bien vu la décortication
Donc appremment il n'écoute aucun conseil et fait à sa guise. J'ai l'impression que l'optimisation, il s'en fiche, tant que son code fait ce qu'il veut..
Je passe mon chemin
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
Donc appremment il n'écoute aucun conseil et fait à sa guise. J'ai l'impression que l'optimisation, il s'en fiche, tant que son code fait ce qu'il veut..
Je passe mon chemin
@++
<hr width="100%" size="2" />
--Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~
