Discussion :

[oliver75]

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

olivier

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

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

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 :

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

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

[oliver75]

merci pour l'aide :

ma macro est la suivante :

Code :

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

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é

ai je oublié de faire quelquechose?

[tonton fred]

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

Code :

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

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.

[oliver75]

ca ne fonctionne pas

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


Y a t il une antitode?

[lapa-jh]

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

[tonton fred]

Oh la belle boulette