Probleme excel/vb

Probleme excel/vb - VB/VBA/VBS - Programmation

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 :p
 
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!!!!

Reply

Marsh Posté le 02-09-2007 à 12:58:18   

Reply

Marsh Posté le 02-09-2007 à 14:22:16    

J ai trouvé
 
merci

Reply

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

Reply

Marsh Posté le 04-09-2007 à 11:52:55    

Noutnout a écrit :

J ai trouvé
 
merci


par courtoisie, quand on trouve, on donne la solution trouvée :o

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed