Discussion :

[bagheria85]

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 :

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

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"

[neupont]

Et ça ?

Code :

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

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

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

[bagheria85]

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

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

[mnarchi]

Bonjour,
la référence "Cellule" doit contenir la formule ou bien la valeur de la formule?

[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

Non, ça marche po.

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

[mercatog]

Code :

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

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

manquait aussi un =

[bagheria85]

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 :

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

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

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

Sheets("JANV").Range(Cellule).Formula = "=100*(C7:C101-D7:D101-E7:E101)/(C7:C101)"

[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