Pb de formule de calcul sous VBA

Version imprimable

03/09/2010, 10h17
bagheria85

Pb de formule de calcul sous VBA
Bon, je crois que je me suis un peu emballé. Voici mon code. Il ne fonctionne pas. Je désire faire: Colonne D - (Colonne E+F) / Colonne D *100.
Code:

1 2 3 4 'Adresse de la cellule contenant la donnée à récupérer Cellule = "(C7:C101-((D7:D101)+(E7:E101)))/(C7:C101)*100" 'Pour une plage de cellules, utilisez: 'Cellule = "A4:C10"
03/09/2010, 14h34
neupont

Et ça ?

Code:

Range(Cellule).formula = "(C7:C101-((D7:D101)+(E7:E101)))/(C7:C101)*100"

(pas vérifié si ça marche, pas le temps ;) )

Non, ça marche po. Voici le code entier avec ta correction.

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
29
30
31
'Adresse de la cellule contenant la donnée à récupérer
    Range(Cellule).Formula = "(C7:C101-((D7:D101)+(E7:E101)))/(C7:C101)*100"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
 
    Feuille = "Données de la carte$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = ActiveWorkbook.Path & "\" & "mes.xls"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    Worksheets("JANV").Range("B98").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing

04/09/2010, 09h33
mnarchi

Question pas claire

Bonjour,
la référence "Cellule" doit contenir la formule ou bien la valeur de la formule?
04/09/2010, 09h54
PPz78

Bonjour,

J'ai comme l'impression que la formule initiale n'est pas la bonne, il faut faire attention à la priorité des opérateurs.
La formule ressemble à un calcul de pourcentage (merci de confirmer ou infirmer).
dans ce cas Colonne D - (Colonne E+F) / Colonne D *100
doit s'écrire : 100 * (Colonne D - (Colonne E + Colonne F) ) / Colonne D
ou : 100 * (Colonne D - Colonne E - Colonne F ) / Colonne D

Quand tu écris

Citation:

Non, ça marche po.

Merci de nous écrire aussi ce qui ne marche pas.

Code:

1
2
set cellule=Range("A7:A101")
cellule.formula= "=100*(C7:C101-D7:D101-E7:E101)/(C7:C101)"

manquait aussi un =

En y mettant la derniere formule, j'obtiens sur l'onglet excel sur lequel je déclenche la macro des DIV/0! partout. J'aimerais pourtant que le résultat apparaisse dans l'onglet "JANV" et cellule B98 comme indiqué dans le code que je vous forunis. Pour info, c'est le résultat de cette opération que je veux voir apparaitre.

Merci à vous de votre aide

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
29
30
31
'Adresse de la cellule contenant la donnée à récupérer
    Range(Cellule).Formula = "=100*(C7:C101-D7:D101-E7:E101)/(C7:C101)"
      'Pour une plage de cellules, utilisez:
      'Cellule = "A4:C10"
 
    Feuille = "Données de la carte$" 'n'oubliez pas d'ajouter $ au nom de la feuille.
    'Chemin complet du classeur fermé
    Fichier = ActiveWorkbook.Path & "\" & "mes.xls"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    Worksheets("JANV").Range("B98").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing

06/09/2010, 11h18
mercatog

Tu n'as pas montrée à quoi correspond la valeur de la variable celulle
Tu as une DIV/0 c'est explicite, tu n'as pas de données en C7:C101
Pour écrire la formule dans la feuille JANV
fais ceci

Code:

Sheets("JANV").Range(Cellule).Formula = "=100*(C7:C101-D7:D101-E7:E101)/(C7:C101)"
06/09/2010, 11h58
bagheria85

Ok, le code avance mais le résultat ne s'affiche pas dans la cellule visée. En l'occurence, je veux que le résultat s'affiche dans la cellule "B98" de l'onglet "JANV". (Le calcul qui est fait s'effectue sur un classeur excel fermé).

Bag