Cells fonction ou sub non défini dans code

Version imprimable

Bonjour,

Je cherche à piloter un classeur EXCEL par ACCESS avec le code suivant (formule de comparaison de la ligne du dessus et celle du dessous, c'est plus rapide que par rêquête)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Public Function mef(nomfic As String) Dim appExcel As Object rep = Application.CurrentProject.Path Set appExcel = CreateObject("Excel.Application") appExcel.Visible = True With appExcel .Workbooks.Open (nomfic) .Range("D2").FormulaR1C1 = "=IF(RC[-2]=R[-1]C[-2],R[-1]C[-1],"""")" .Range("E2").FormulaR1C1 = "=IF(RC[-3]=R[1]C[-3],R[1]C[-2],"""")" .Range("D2:E2").select .selection.copy .Range(cells(2, 4), cells(10, 4)).select .ActiveSheet.Paste .ActiveWorkbook.Save .Workbooks.Close End With appExcel.Quit Set appExcel = Nothing End Function
En clair je mets une formule dans D2 et E2 et je veux les recopier jusqu'à la fin de mon tableau (ici 10ème ligne), mais je coince avec cells.

Si j'avais mis Range("D2:E10") ça aurait marché.

En plus, je ne comprends pas bien le With et comment je devrais faire si j'avais besoin d'une boucle par exemple (.Do While... ?);)

Merci beaucoup pour votre aide.

15/09/2015, 15h12
Philippe Tulliez

Bonjour,
Il n'y a aucune raison d'effectuer un copier/coller de cellules pour insérer une formule. Range("A2:A100").Formula = "ChaîneFormule" suffit
A lire ces billets Ecrire une formule dans Excel à l'aide d'une procédure VBA et Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)
15/09/2015, 15h23
jpg75014

Bonjour,

Merci pour ta réponse.

10 était un exemple. Je ne connais pas le nombre de ligne

Mais d'accord pour ne pas copier, ça simplifiera le code. Mais Cells ne fonctionnant pas j'aurais bien voulu utilisé la méthode Range
Avec par exemple

Code:

Range("E2:E" & Currentregion.rows.count &.formula = maformule

JPG
15/09/2015, 16h02
Philippe Tulliez

Bonjour,

Citation:

Mais Cells ne fonctionnant pas j'aurais bien voulu utilisé la méthode Range

Je ne vois pas pourquoi Cells, ne pourrait pas fonctionner imbriquer dans une Range ?
Cells ou Range c'est pareil et bien entendu que la plage peut être dynamique. Je pense qu'il y a un exemple en ce sens dans le deuxième billet.
15/09/2015, 16h30
jpg75014

Je n'arrive pas à ouvrir le deuxième billet.
Lorsque j'écris

Code:

range(cells(2, 4), cells(10, 4)).select

j'ai "Sub ou Function non définie" et le mot cells en surbrillance (Débogage, compiler Mabase)
15/09/2015, 16h48
Philippe Tulliez

Bonjour,

Citation:

Je n'arrive pas à ouvrir le deuxième billet.

Le lien du deuxième billet (indiqué à la fin du premier) Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)
Bien que l'emploi de la méthode Select soit parfaitement inutile, la formule Range(Cells(2, 4), Cells(10, 4)).Select
fonctionne parfaitement.
15/09/2015, 18h06
Invité

Bonjours,

Lorsque tu défini une cellule ou plage de cellule, tu dois définir la cellule avec:
- Son classeur : Workbook
- Sa feuille : Worksheet

Et si tu utilise la propriété Select, tu dois rendre active la bonne feuille. Sinon, tu peux utiliser Application.Goto ...
15/09/2015, 20h43
SfJ5Rpw8
]Bonsoir,

Comme le dit Nouveau2 tu ne dois pas utiliser les objets range et cells sans les prèceder de la feuille concernée...
Code:

1 2 3 4 5 6 7 8 9 10 Dim wk as worbook Dim sh as worksheet ... Set wk =appexcel.worbooks.open(nonfic) Set sh = wk.sheets("mafeuille") Sh.range(sh.cells(.... .... ...
.. inspire toi de cela pour corriger ton code...
16/09/2015, 10h29
jpg75014

Merci pour ta réponse
Mais où j'insère le code que tu as écrit ?
Car

Code:

Dim wk As workbook

n'existe pas.

Il ne faut pas d'abord un CreateObject ?
16/09/2015, 11h06
Philippe Tulliez

Bonjour,
Le code s'insère dans une procédure normale et la déclaration des variables également sauf si tu souhaites utiliser celles-ci dans d'autres procédures. Dans cette hypothèse, tu les déclares en tête du module où se trouvent les procédures (sauf si tu veux qu'elles soient publiques, dans ce cas peux importe le module et à condition de faire précéder le nom des variables par Public)

Merci à tous ! Résolu !
Deux pierres d'un coup : je me suis débarrassé du With :P:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function toto(nomfic As String)
 
Dim AppExcel As Excel.Application
Dim Wk As Excel.Workbook
Dim Sh As Excel.Worksheet
 
 
Set AppExcel = CreateObject("Excel.Application")
Set Wk = AppExcel.workbooks.Open(nomfic)
Set Sh = Wk.sheets("tata")
 
Sh.Range("D2:D" & Range("B2").currentregion.Rows.Count).FormulaR1C1 = "=IF(AND(RC[-2]<>"""",RC[-2]=R[-1]C[-2]),R[-1]C[-1],"""")"
Sh.Range("E2:E" & Range("B2").currentregion.Rows.Count).FormulaR1C1 = "=IF(AND(RC[-3]<>"""",RC[-3]=R[1]C[-3]),R[1]C[-2],"""")"
 
Wk.Save
AppExcel.Quit
 
Set Sh = Nothing
Set Wk = Nothing
Set AppExcel = Nothing
 
End Function

16/09/2015, 14h22
Philippe Tulliez

Bonjour,

Citation:

Deux pierres d'un coup : je me suis débarrassé du With

Le problème c'est que lignes 12 & 13, il y a un gros souci avec les deuxièmes Range qui n'ont pas de filiation avec la variable sh d'où risque d'erreur.