Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copie de formule en VBA.

Copie de formule en VBA.

16 réponses
Avatar
Quaisako
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit copier
la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Daniel
Bonjour.
La ligne de code s'exécute sans problème chez moi. Elle dit quoi, l'erreur ?
Cordialement.
Daniel
"Quaisako" a écrit dans le message de news:
%
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit copier
la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé





Avatar
Daniel
Est-ce que tu peux mettre ton classeur à disposition du forum sur
http://cjoint.com ?
Daniel
"Quaisako" a écrit dans le message de news:

Bonjour,

Erreur d'exécution 1004.
Erreur définie par l'application ou par l'objet.

Je clique sur le bouton Débug, et la ligne
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
est surtlignée en jaune.

Merci
Jipé

"Daniel" a écrit dans le message de news:

Bonjour.
La ligne de code s'exécute sans problème chez moi. Elle dit quoi,
l'erreur ?
Cordialement.
Daniel
"Quaisako" a écrit dans le message de
news: %
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit
copier la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé













Avatar
Vincnet.
Ta feuille serait-elle rrotégée ?
--
A+

V.



Est-ce que tu peux mettre ton classeur à disposition du forum sur
http://cjoint.com ?
Daniel
"Quaisako" a écrit dans le message de news:

Bonjour,

Erreur d'exécution 1004.
Erreur définie par l'application ou par l'objet.

Je clique sur le bouton Débug, et la ligne
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
est surtlignée en jaune.

Merci
Jipé

"Daniel" a écrit dans le message de news:

Bonjour.
La ligne de code s'exécute sans problème chez moi. Elle dit quoi,
l'erreur ?
Cordialement.
Daniel
"Quaisako" a écrit dans le message de
news: %
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit
copier la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé


















Avatar
Pounet95
Bonjour,

2 questions bêtes :
- quelle est la cellule active ? si c'est une cellule des colonnes A,B,C,D,E
incluses c'est normal
car RC[-5] veut dire d'y inclure une colonne avant A !!!

- quelle est la date sur ton micro ?? Déjà le 7 janvier ???

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Quaisako" a écrit dans le message de news:
%
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit copier
la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé





Avatar
Quaisako
Bonsoir,

Le fichier ci-joint a été créé à l'origine par DJ.
http://cjoint.com/?bgsvWppVrK
Je cherche à le mettre à ma convenance.
J'avais bien une journée d'avance. Maintenant mon PC est bien à la bonne
date.
Mais le problème persiste.
Merci à tous.
Jipé



"Pounet95" a écrit dans le message de news:

Bonjour,

2 questions bêtes :
- quelle est la cellule active ? si c'est une cellule des colonnes
A,B,C,D,E incluses c'est normal
car RC[-5] veut dire d'y inclure une colonne avant A !!!

- quelle est la date sur ton micro ?? Déjà le 7 janvier ???

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Quaisako" a écrit dans le message de news:
%
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit
copier la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé








Avatar
Daniel
Je n'ai pas encore pas compris pourquoi, mais :
ActiveCell.FormulaLocal = "=somme(d4:h4)"
fonctionne.
VBA n'aime pas l'anglais !
Daniel
"Quaisako" a écrit dans le message de news:
%
Bonsoir,

Le fichier ci-joint a été créé à l'origine par DJ.
http://cjoint.com/?bgsvWppVrK
Je cherche à le mettre à ma convenance.
J'avais bien une journée d'avance. Maintenant mon PC est bien à la bonne
date.
Mais le problème persiste.
Merci à tous.
Jipé



"Pounet95" a écrit dans le message de news:

Bonjour,

2 questions bêtes :
- quelle est la cellule active ? si c'est une cellule des colonnes
A,B,C,D,E incluses c'est normal
car RC[-5] veut dire d'y inclure une colonne avant A !!!

- quelle est la date sur ton micro ?? Déjà le 7 janvier ???

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Quaisako" a écrit dans le message de
news: %
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit
copier la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé












Avatar
Mousnynao
Bonjour,

Autre soluce :

Sub RecopieFormule()

Dim Formule As String
Dim Boucle As Long

Range("I4").Select

For Boucle = 4 To 34
Formule = "=SUM(D" & Boucle & ":H" & Boucle & ")"
ActiveCell = Formule
ActiveCell.Offset(1, 0).Select
Next Boucle

End Sub

mousnynao !


Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit copier
la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé






Avatar
Quaisako
Re à tous,
merci pour votre aide.
Je vais me pencher sur l'aide à propos du "FormulaLocal " Merci Daniel
Jipé

"Mousnynao" a écrit dans le message de
news:
Bonjour,

Autre soluce :

Sub RecopieFormule()

Dim Formule As String
Dim Boucle As Long

Range("I4").Select

For Boucle = 4 To 34
Formule = "=SUM(D" & Boucle & ":H" & Boucle & ")"
ActiveCell = Formule
ActiveCell.Offset(1, 0).Select
Next Boucle

End Sub

mousnynao !


Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit
copier
la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé








Avatar
Quaisako
Bonjour,

Erreur d'exécution 1004.
Erreur définie par l'application ou par l'objet.

Je clique sur le bouton Débug, et la ligne
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
est surtlignée en jaune.

Merci
Jipé

"Daniel" a écrit dans le message de news:

Bonjour.
La ligne de code s'exécute sans problème chez moi. Elle dit quoi, l'erreur
?
Cordialement.
Daniel
"Quaisako" a écrit dans le message de news:
%
Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit
copier la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé









Avatar
Ange Ounis
L'enregistreur de macros est toujours très "verbeux".
Cette ligne de code devrait faire ce que tu attends :

Range("I4:I34").Formula=Range("I4").Formula

----------
Ange Ounis
----------

Bonjour le Forum,

ce bout de code (créé avec l'aide de l'interpreteur de macros) doit copier
la formule de la cellule "I4" dans la plage "I5:I34"
mais ça ne fonctionne pas.

Range("I4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
Selection.AutoFill Destination:=Range("I4:I34"), Type:=xlFillDefault
Range("I4:I34").Select
ActiveWindow.SmallScroll Down:=-14
Range("B2").Select
ActiveWindow.DisplayZeros = False

Le débugger m'indique une erreur à ce niveau
"ActiveCell.FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"


Merci d'avance pour votre aide.
Jipé





1 2