Erreur d'exécution 1004 sur la méthode Autofill

Version imprimable

Bonjour,
Je suis débutant en VBA et je dois déboguer une macro Excel... J'ai cherché dans tous les forums et tous les tutoriels que j'ai pu, mais il se peut que le sujet soit déjà abordé...
J'utilise Excel 2002 et je n'ai jamais touché au visual basic...
Tout d'abord le message d'erreur est le suivant :
"Erreur d'exécution '1004' :
La méthode AutoFill de la classe Range a échoué."
Et lorsque je veux déboguer, je vois le morceau de macro suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub DK_DN() Windows("res.txt").Activate test = Application.WorksheetFunction.CountA(Columns("A:A")) Range("D1").Select ActiveCell.FormulaR1C1 = "Da/DN" Range("D3").Select ActiveCell.FormulaR1C1 = "=(RC[-4]-R[-1]C[-4])/(RC[-5]-R[-1]C[-5])" Range("E3").Select Selection.AutoFill Destination:=Range("D3:D" & test) Range("D3:D" & test).Select Range("A1:D" & test).Select End Sub
Avec "Selection.AutoFill Destination:=Range("D3:D" & test)" surligné.
Mes questions sont les suivantes :
Que signifie le message d'erreur ?
Voyez-vous une erreur dans le code ?
Sinon, savez-vous ce que signifie Autofill, ou à quoi ça sert ?
Sinon, comprenez-vous ce que fait la macro?

Et d'ailleurs, en passant, existerait-il un listing des commandes VBA pour Excel ?

Merci d'avance pour votre aide,
Pant'

Bonjour,

Citation:

Et d'ailleur, en passant, existerais t'il un listing des commandes VBA pour Excel?

Dans l'editeur VBA se mettre sur une commande et faire :f1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub DK_DN()
 
    Windows("res.txt").Activate ' Active ce classeur
 
 
    test = Application.WorksheetFunction.CountA(Columns("A:A")) ' compte le nombre de cellules en colonne A
 
    Range("D1").Select ' Se'lectionne la cellule D1
    ActiveCell.FormulaR1C1 = "Da/DN" ' Place la formule dans la cellule
    Range("D3").Select ' selectionne la cellule D3
    ActiveCell.FormulaR1C1 = "=(RC[-4]-R[-1]C[-4])/(RC[-5]-R[-1]C[-5])" ' Place la formule dans la cellule
 
    Range("E3").Select ' selectionne la cellule E3
    Selection.AutoFill Destination:=Range("D3:D" & test) ' Recopie la formule de D3 jusqu'a D et la ligne dans test, attention ici car si test est inferieur à 3 tu as un plantage ! 
    Range("D3:D" & test).Select
    Range("A1:D" & test).Select
End Sub

Quelques liens

http://silkyroad.developpez.com/VBA/DebuterMacros/

http://silkyroad.developpez.com/VBA/LesVariables/

Re,

Les select sont souvent inutiles tu peux vérifier c'est dit de nombreuses fois sur les forums !

Au lieu de :

Code:

1
2
3
4
5
6
7
8
9
10
11
    test = Application.WorksheetFunction.CountA(Columns("A:A")) ' compte le nombre de cellules en colonne A
 
    Range("D1").Select ' Se'lectionne la cellule D1
    ActiveCell.FormulaR1C1 = "Da/DN" ' Place la formule dans la cellule
    Range("D3").Select ' selectionne la cellule D3
    ActiveCell.FormulaR1C1 = "=(RC[-4]-R[-1]C[-4])/(RC[-5]-R[-1]C[-5])" ' Place la formule dans la cellule
 
    Range("E3").Select ' selectionne la cellule E3
    Selection.AutoFill Destination:=Range("D3:D" & test) ' Recopie la formule de D3 jusqu'a D et la ligne dans test, attention ici car si test est inferieur à 3 tu as un plantage ! 
    Range("D3:D" & test).Select
    Range("A1:D" & test).Select

Un exemple pour améliorer un peu le code :

Code:

1
2
3
4
5
6
7
8
test = Application.WorksheetFunction.CountA(Columns("A:A")) ' compte le nombre de cellules en colonne A
 if test < 4 THEN
    EXIT SUB
end IF
    Range("D1").FormulaR1C1 = "Da/DN" ' Place la formule dans la cellule
    Range("D3").FormulaR1C1 = "=(RC[-4]-R[-1]C[-4])/(RC[-5]-R[-1]C[-5])" ' Place la formule dans la cellule
    Range("E3").AutoFill Destination:=Range("D3:D" & test) ' Recopie la formule de D3 jusqu'a D et la ligne dans test, attention ici car si test est inferieur à 3 tu as un plantage ! 
    Range("A1:D" & test).Select ' Est-ce util de selectionner, si non on peux supprimer cette ligne

18/03/2010, 13h07
PantRéTroclit'

Merci tout d'abord pour l'indication de F1 :oops: et les liens ^^

Ensuite, merci pour ta proposition, cependant, ca ne change rien... j'ai la même erreur sauf que cette fois-ci, c'est

Code:

Range("E3").AutoFill Destination:=Range("D3:D" & test)

qui est surligné...
18/03/2010, 13h26
aalex_38

RE,

Quelle est ta formule dans E3, et quelle est ta valeur de test au moment de l'execution ?
18/03/2010, 14h21
PantRéTroclit'

J'ai finalement résolu mon problème...
Le soucis n'était pas test qui était bien supérieur à 3. En revanche, la formule

Code:

"=(RC[-4]-R[-1]C[-4])/(RC[-5]-R[-1]C[-5])"

menait à des cellules vides et donc à une division par zéro, ce qui n'était pas très apprécié... j'ai donc recadrer la formule aux cellules qui vont bien et mon problème à été résolu...
Merci en tout cas pour ton aide, sans toi, je n'aurais pas compris cette partie du code ^^!