Discussion :

[laurent1313]

Bonjour,
J'ai une macro qui fonctionne comme ceci :

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
Sub Ratio()
Dim ws As Worksheet, i&,
 
For Each ws In ThisWorkbook.Worksheets
ws.Activate
    Debut = 3 'les montant commence en ligne 3 maintenant
    With ws
    DerL = .Cells(Rows.Count, 4).End(xlUp).Row
    VA = .Range("D1:D" & DerL).Value ' meme chose pour le tableau en col D pour prendre en compte la Valeur Somme dans les cellules
 
        For i = 3 To UBound(VA) 'Tout le calcul se fait maintenant en colonne E dans la boucle
            If i = UBound(VA) Then
                Range("F3:F" & i).Formula = "=if(or(E3="";E3=0;O3=0;O3=""),0,(E3-O3)/O3)"
 
                End If
        Next
   End With
Next
 
End Sub

J'ai un soucis sur le partie "=if(or(E3="";E3=0;O3=0;O3=""),0,(E3-O3)/O3)"
En effet je cherche une solution pour obtenir le même résultat que cette formule sous excel :
=SI(OU(ESTVIDE(E3);E3=0;O3=0;ESTVIDE(O3));0;(E3-O3)/O3)

J'ai donc testé :
- E3="" et O3="" , qui se retranscrit comme ceci sur excel =SI(OU(E3=";E3=0;O3=0;O3=");0;(E3-O3)/O3) Donc un seul guillemet, le résultat de la formule n'est pas bon.
- ISEMPTY() OU ISBLANK() mais la macro me sort une erreur.

Quelqu'un aurait une solution ?

Merci d'avance.

[Invité]

Code :

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

 Range("F3:F" & i).Formula ="= IFERROR((E3-O3)/O3,0)"

[laurent1313]

Bonjour,
La fonction IFERROR m'enlève bien les erreur qu'il peut y avoir dans ma colonne, mais j'ai des -100% qui s'affichent car j'ai parfois des cellules de la colonne E qui sont soit vides, soit égales à 0. Avec ma condition (ESTVIDE(E3);E3=0;O3=0;ESTVIDE(O3)) j'ai des 0% qui s'affichent à la place et c'est ce qui me convient.

J'ai aussi testé ceci :

Code :

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

1
2
 Range("F3:F" & i).Formula = "=if(or(ESTVIDE(E3),ESTVIDE(O3),E3=0,O3=0),0,(E3-O3)/O3)"
Range("F3:F" & i).NumberFormat = "0.00 %"

Seulement il m'est affiché sur toutes mes cellules F : #NOM?
alors que dans la barre des formules j'ai bien =SI(OU(ESTVIDE(E3);ESTVIDE(O3);E3=0;O3=0);0;(E3-O3)/O3)
Il faut que je rentre dans la barre de formule, j'appuie sur Entrée, et la cellule m'affiche bien le rendu voulu soit mon chiffre en pourcentage et qui est égal à 0 si E ou O est vide.

Peut être faut il rajouter une ligne dans ma macro pour que chaque formule soit "Validée" ?

[Invité]

je vois pas le problème!

Code :

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

1
2
3
Range("F3:F" & i).NumberFormat = "0.00 %"
Range("F3:F" & i).Formula ="= IFERROR((E3-O3)/O3,0)"

[laurent1313]

Mon problème est que si par exemple O3=500 et E3=0, va s'afficher en F3 "-100,00%"
Je souhaite qu'à la place il y est 0%, voir même que rien ne s'affiche si E3=0 ou E3 est vide.

[Invité]

Code :

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

=SI(CNUM(E3)*CNUM(O3)=0;0;SIERREUR((E3-O3)/O3;0))