Calcul pourcentage / VB ou excel ?

Version imprimable

11/05/2007, 12h18
oliver75

Calcul pourcentage / VB ou excel ?

bonjour,

Voilà mon souci.

J'ai chargé dans un fichier Excel via VB deux colonnes (A et B) .

Lorsque je lance la macro, j'obtiens le résultat souhaité.

Je souhaite faire un pourcentage dans une troisième colonne par rapport aux colonnes A et B.

J'ai paramétré directement la formule dans le fichier excel est j'obtiens

dans les cellules le message d'erreur suivant :"VALEUR!!"

Question :

-Est il possible après avoir lancer des macros d'enchainer par une fonction classique excel?

-ou faut il passer obligatoirement par une nouvelle macro?

Merci de votre aide:king:

olivier
11/05/2007, 13h03
tonton fred
Bonjour,

Plusieurs possiblites:
Soit tu remplace ta formule =A1/B1 par
=IF(B1<>0;A1/B1;0) qui ne fera le calcul que si la cellule contient un chiffre different de 0 et puis apres tu etends avec la souris

Soit tu integre le calcul dans ta macro:
Code:

1 2 3 range("A" & i).value = valeur1 Range("B" & i).value = valeur2 if valeur1 <> 0 then Range("C" & i).value = valeur2 / valeur1
Soit tu integre la copie de la formule dans ta macro
Code:

1 2 3 Range("C1").Formula = "=A1/B1 " Range("C1").Select Selection.AutoFill Destination:=Range("C1:C500"), Type:=xlFillValues
A adapter a tes index et colonnes bien sur ;)

merci pour l'aide :

ma macro est la suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub calculpourcentage() Dim valeur1 As Double Dim valeur2 As Double Dim i Range("I" & i).Value = valeur1 Range("H" & i).Value = valeur2 If valeur2 <> 0 Then Range("J" & i).Value = valeur2 / valeur1 End Sub
j'obtiens de le message d'erreur suivant :

erreur d'execution "1004". la méthode 'Range' de l'objet global a échoué:bug:

ai je oublié de faire quelquechose?

Oui, d'affecter une valeur a i (ton numero de ligne).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub calculpourcentage() Dim valeur1 As Double Dim valeur2 As Double Dim i as Integer for i = 1 to derniereligne Range("I" & i).Value = valeur1 Range("H" & i).Value = valeur2 If valeur1 <> 0 Then Range("J" & i).Value = valeur2 / valeur1 next i End Sub
Reste a remplacer derniereligne par le numero de ta derniere ligne. Fait attention de faire le test "<> 0" sur la valeur qui se trouve au denominateur ;) (j'ai corrige la)

Tu peux aussi integrer le code dans ta macro d'importation si jamais tu utilises deja une boucle.

11/05/2007, 17h47
oliver75

ca ne fonctionne pas :cry:

cela met à blanc mes données chargées precédemment de la colonne I et et J

Y a t il une antitode?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub calculpourcentage()
 
Dim valeur1 As Double
Dim valeur2 As Double
Dim i as Integer
 
for i = 1 to derniereligne 
valeur1 = Range("I" & i).Value 
valeur2 = Range("H" & i).Value 
If valeur1 <> 0 Then 
Range("J" & i).Value = valeur2 / valeur1
end if
next i
 
End Sub

comme cela ca devrait marcher je pense ;)

12/05/2007, 10h21
tonton fred

Oh la belle boulette :oops:
14/05/2007, 09h44
oliver75

bonjour,

en intégrant cette macro , j'ai une erreur d'execution du type "13".

incompatibilité de type?

merci de votre aide.

olivier

Bonjour,

je crois voir d'ou vient le pb .

Dans ma colonne "i" , je charge des données au format 000 000,00

Dans ma colonne H, les données sont chargées au format 000 000.00.

La variation en pourcentage entre la colonne I et J ne peut pas s'effectuer.

Comment est il possible de convertir les données chargées dans la colonne I au format 000 000.00

J'ai mis mon code ci dessous.

merci de votre aide

olivier

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 
 
Sub Copie_fich()
mpath = "C:\div\"
mfich1 = "Contrôle benchmarké1.xls"
mfich2 = "Tableau de contrôle.xls"
mfich3 = "Evl_09_05.xls"
 
Application.DisplayAlerts = False
Workbooks.Open Filename:=mpath & mfich2, updatelinks:=False
Application.DisplayAlerts = True
Sheets("recap v2 - b").Copy Before:=Workbooks(mfich1).Sheets(1)
Windows(mfich2).Activate
Sheets("recap v2 - a").Copy Before:=Workbooks(mfich1).Sheets(1)
Workbooks(mfich2).Close SaveChanges:=False
Windows(mfich1).Activate
Sheets("recap v2 - a").Activate
Columns("W:BL").Select
        Selection.Delete Shift:=xlRight
Range("A3").Select
Sheets("recap v2 - b").Activate
Columns("W:BL").Select
        Selection.Delete Shift:=xlRight
Range("A3").Select
Workbooks.Open Filename:=mpath & mfich3
Sheets("Evlsav1").Activate
Range("G31:G40").Select
    Selection.NumberFormat = "#,##0.00"
'Range("I31:I34").Select
'     Selection.NumberFormat = "dd/mm/yyyy"
'Range("L31:L34").Select
'     Selection.NumberFormat = "dd/mm/yyyy"
Call Separe
Windows(mfich1).Activate
Sheets("recap v2 - b").Activate
 
'Nettoyer un plage de cellule
'Range(Cells(21, 8), Cells(23, 9)).Select
'Selection.ClearContents
'Selection.NumberFormat = "#,##0.00"
'Range(Cells(6, 8), Cells(16, 9)).Select
'Selection.ClearContents
'Selection.NumberFormat = "#,##0.00"
 
 
Sheets("recap v2 - a").Activate
Call Affect("Recap V2 - a")
Sheets("recap v2 - b").Activate
Call Affect("Recap V2 - b")
 
End Sub
 
Sub Separe()
  Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 2), Array(10, 1), Array(11, 1), Array(12, 2), Array(13, 1 _
        ), Array(14, 1), Array(15, 1))
End Sub
 
Function chargement_cours_j_moins1(code_isin) As Double
    Dim code_prod As String
    Dim cours As Double
    Dim ptr As Variant
 
    cours = 0
    Set ptr = CreateObject("ADODB.Recordset")
 
    ptr.Open "SELECT DISTINCT _CODEPRODUI FROM omega.com.produit WHERE _ISIN = '" & code_isin & "'", Mybd
    Do While Not ptr.EOF
        code_prod = ptr("_CODEPRODUI")
        ptr.movenext
    Loop
    ptr.Close
 
    ptr.Open "SELECT  _COURSCLOSE FROM omega.com.prixhist WHERE _CODEPRODUI = '" & code_prod & "' ORDER BY _DATE DESC", Mybd
    Do While Not ptr.EOF
        cours = ptr("_COURSCLOSE")
        Exit Do
    Loop
    chargement_cours_j_moins1 = cours
End Function
 
Sub Affect(nom_feuille)
Dim i
 
For i = 6 To 500
    If (Sheets(nom_feuille).Range("A" & i)) <> "" Then
        mont = chargement_cours_j_moins1(Sheets(nom_feuille).Range("A" & i))
        Sheets(nom_feuille).Range("h" & i) = mont
    Else
 
    End If
Next i
 
End Sub

15/05/2007, 11h42
tonton fred
Oula ton code est vraiment complique 8O
Pour autant que je sache tu dois pouvoir te separer de tous les activate et de beaucoup de select
par exemple:
Code:

1 2 3 4 Windows(mfich2).Activate Sheets("recap v2 - a").Copy Before:=Workbooks(mfich1).Sheets(1) 'deviendrait Workbooks(mfich2).Sheets("recap v2 - a").Copy Before:=Workbooks(mfich1).Sheets(1)
ou ici
Code:

1 2 3 4 5 Windows(mfich1).Activate Sheets("recap v2 - a").Activate Columns("W:BL").Select ''devient Workbooks(mfich1).Sheets("recap v2 - a").Columns("W:BL").Delete Shift:=xlRight
Ton code sera ainsi beaucoup plus clair. Teste quand meme regulierement pendant les modifs, des fois on peut pas ;)

Sinon pour ton probleme de format:
Suivant les versions d'Excel et/ou de Windows (j'ai jamais trop compris) les nombres decimaux contiennent soit "." soit ",". Pour eviter de galerer, si jamais tu ne sais pas quel est celui qu'il faut utiliser sur ta machine tu convertis tout en Double (ou autre suivant le cas, cherche CDbl dans l'aide VBA tu devrais trouver un recapitulatif de tous les convertisseurs et tu choisis celui que tu veux).
Code:

1 2 3 4 ... valeur1 = CDbl(Range("I" & i).Value) valeur2 = CDbl(Range("H" & i).Value) ...
Je pense que ca devrait marcher