rafou29
XLDnaute Junior
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.
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é !
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.
PHP:
'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é !