Probleme excel/vb - VB/VBA/VBS - Programmation
Marsh Posté le 02-09-2007 à 15:23:57
Private Sub CommandButton1_Click()
Dim i As String
i = ActiveWindow.RangeSelection.Address
Dim cellule
Dim nb_1 As Integer, nb_2 As Integer, nb_tot As Integer
Dim pourc_1 As Double, pourc_2 As Double
For Each cellule In ActiveSheet.Range(i)
If cellule.Text = "1" Then nb_1 = nb_1 + 1
If cellule.Text = "2" Then nb_2 = nb_2 + 1
Next
nb_tot = nb_1 + nb_2
pourc_1 = (1 - nb_1 / nb_tot)
pourc_2 = (1 - nb_2 / nb_tot)
MsgBox (FormatPercent(pourc_1) & " " & FormatPercent(pourc_2))
End Sub
essaye ça !!!
Marsh Posté le 04-09-2007 à 11:52:55
Reply
Marsh Posté le 02-09-2007 à 12:58:18
Bonjour,
Cela fait 1 semaine que je cherche la solution de mon probleme, et je vais finir chauve si je ne la trouve pas rapidement
J ai un 2 colonne excel
Dans la 1er colone j ai des heures
Dans la 2eme colonne , j ai un codif (1 ou 2)
J ai besoin de trouver ZE formule qui me donnera le pourcentage des 1 ds la colonne
En faite mon bosse voudrait pouvoir selectionner la plage désiré, cliker sur un bouton, et que lui donne le pourcentage de 1 sur sa selection!
J ai essayé les formules ds tt les sens,les macros et j avoue bloquer completement!!
Merci de votre aide!!!!