Calcul délicat à générer

[rafou29]

Bonjour,

J'ai mis en place un calcul un peu délicat qui fonctionne si ce n'est qu'il ne me donne pas les bonnes valeurs.

'Commandbutton permettant le calcul
Private Sub CommandButton53_Click()

Sheets("Sheet1").Select
For i = 2 To 65536
Dim y, z, x

y = Range("D" & i).Value
z = Application.WorksheetFunction.Sum(Range("F:F").SpecialCells(xlCellTypeVisible))
If (y = "") Then
  Exit For
End If
x = y / z

Range("R" & i) = x * 100
Next i

End Sub

L'objectif de mon calcul est d'effectuer l'opération suivante:

R(i) = ( D(i) / somme cellule visible F) * 100

Merci de votre attention et cela me permettra peut être de savoir si c'était mon code qui posait problème ou les valeurs que j'utilisent ...

PS: je ne peux pas vous joindre de fichier pour cause de confidentialité !

 

[pierrejean]

Re : Calcul délicat à générer

bonjour rasensé

J'ai testé ta macro et chez moi le resultat est correct
Si tu n'as pas le resultat attendu c'est plutot parce que l'a macro n'a pas compris ce que tu voulais
Peux-tu creer un fichier exemple avec une dizaine de lignes montrant ce que tu as en D et ce que tu esperes en R (données non confidentielles)