Discussion :

[PantRéTroclit']

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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" & 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'

[aalex_38]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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/

[aalex_38]

Re,

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


Au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PantRéTroclit']

Merci tout d'abord pour l'indication de F1 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

qui est surligné...

[aalex_38]

RE,


Quelle est ta formule dans E3, et quelle est ta valeur de test au moment de l'execution ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

"=(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 ^^!