Bonjour =E0 Toutes et =E0 Tous,
je r=E9alise des sous-totaux multiples sur la ligne 39 et=20
41 de colonne C =E0 Colonne Z , par macro mais devant mon=20
probl=E8me de syntaxe je suis oblig=E9 de faire comme suit :
'Sub SousTotal()
'sous-totaux par colonne
' Macro enregistr=E9e le 13/10/2003 par Alfredo
Range("C39").Select
ActiveCell.FormulaR1C1 =3D "=3DSUM(R[-27]C:R[-1]C)"
Range("c41").Select
ActiveCell.FormulaR1C1 =3D "=3DR[-2]C*R[-1]C"
'-------------------
Range("D39").Select
ActiveCell.FormulaR1C1 =3D "=3DSUM(R[-27]C:R[-1]C)"
Range("D41").Select
ActiveCell.FormulaR1C1 =3D "=3DR[-2]C*R[-1]C"
et ainsi de suite jusque=20
=20
Range("z39").Select
ActiveCell.FormulaR1C1 =3D "=3DSUM(R[-27]C:R[-1]C)"
Range("z41").Select
ActiveCell.FormulaR1C1 =3D "=3DR[-2]C*R[-1]C"
Bien que cela fonctionne , n'y aurait-il pas plus simple?
Merci de suivre,
freedo
-----Message d'origine----- Bonjour à Toutes et à Tous, je réalise des sous-totaux multiples sur la ligne 39 et 41 de colonne C à Colonne Z , par macro mais devant mon problème de syntaxe je suis obligé de faire comme suit : 'Sub SousTotal() 'sous-totaux par colonne ' Macro enregistrée le 13/10/2003 par Alfredo Range("C39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("c41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" '------------------- Range("D39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("D41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
et ainsi de suite jusque
Range("z39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("z41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" Bien que cela fonctionne , n'y aurait-il pas plus simple? Merci de suivre, freedo .
-----Message d'origine-----
Bonjour à Toutes et à Tous,
je réalise des sous-totaux multiples sur la ligne 39 et
41 de colonne C à Colonne Z , par macro mais devant mon
problème de syntaxe je suis obligé de faire comme suit :
'Sub SousTotal()
'sous-totaux par colonne
' Macro enregistrée le 13/10/2003 par Alfredo
Range("C39").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Range("c41").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
'-------------------
Range("D39").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Range("D41").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
et ainsi de suite jusque
Range("z39").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Range("z41").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
Bien que cela fonctionne , n'y aurait-il pas plus simple?
Merci de suivre,
freedo
.
-----Message d'origine----- Bonjour à Toutes et à Tous, je réalise des sous-totaux multiples sur la ligne 39 et 41 de colonne C à Colonne Z , par macro mais devant mon problème de syntaxe je suis obligé de faire comme suit : 'Sub SousTotal() 'sous-totaux par colonne ' Macro enregistrée le 13/10/2003 par Alfredo Range("C39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("c41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" '------------------- Range("D39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("D41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
et ainsi de suite jusque
Range("z39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("z41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" Bien que cela fonctionne , n'y aurait-il pas plus simple? Merci de suivre, freedo .
Freedo
Bonjour Camille, Merci beaucoup pour la solution, cela fonctionne à merveille Cordialement, Freedo
-----Message d'origine----- Bonjour à Toutes et à Tous, je réalise des sous-totaux multiples sur la ligne 39 et 41 de colonne C à Colonne Z , par macro mais devant mon problème de syntaxe je suis obligé de faire comme suit : 'Sub SousTotal() 'sous-totaux par colonne ' Macro enregistrée le 13/10/2003 par Alfredo Range("C39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("c41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" '------------------- Range("D39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("D41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
et ainsi de suite jusque
Range("z39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("z41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" Bien que cela fonctionne , n'y aurait-il pas plus simple?
Merci de suivre, freedo .
.
Bonjour Camille,
Merci beaucoup pour la solution, cela fonctionne à
merveille
Cordialement,
Freedo
-----Message d'origine-----
Bonjour à Toutes et à Tous,
je réalise des sous-totaux multiples sur la ligne 39 et
41 de colonne C à Colonne Z , par macro mais devant mon
problème de syntaxe je suis obligé de faire comme suit :
'Sub SousTotal()
'sous-totaux par colonne
' Macro enregistrée le 13/10/2003 par Alfredo
Range("C39").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Range("c41").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
'-------------------
Range("D39").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Range("D41").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
et ainsi de suite jusque
Range("z39").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)"
Range("z41").Select
ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
Bien que cela fonctionne , n'y aurait-il pas plus
simple?
-----Message d'origine----- Bonjour à Toutes et à Tous, je réalise des sous-totaux multiples sur la ligne 39 et 41 de colonne C à Colonne Z , par macro mais devant mon problème de syntaxe je suis obligé de faire comme suit : 'Sub SousTotal() 'sous-totaux par colonne ' Macro enregistrée le 13/10/2003 par Alfredo Range("C39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("c41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" '------------------- Range("D39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("D41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C"
et ainsi de suite jusque
Range("z39").Select ActiveCell.FormulaR1C1 = "=SUM(R[-27]C:R[-1]C)" Range("z41").Select ActiveCell.FormulaR1C1 = "=R[-2]C*R[-1]C" Bien que cela fonctionne , n'y aurait-il pas plus simple?
