pallu1234567890
Messages postés7Date d'inscriptionmercredi 11 juillet 2012StatutMembreDernière intervention12 juillet 2012
-
11 juil. 2012 à 16:44
LIBRE_MAX
Messages postés1402Date d'inscriptionmardi 1 mai 2007StatutMembreDernière intervention 7 octobre 2012
-
12 juil. 2012 à 11:45
Bonjour , voila je souhaite crée une macros qui comptabiliserai le nombre de valeur existante selon 6 critère soit =0 ,=0.01,=0.02,=0.03,=0.04,>=0.05 je veux lancer la macros rien ne se passe, je débogue pas à pas souci la première ligne "public sub calc()" la je comprend vraiment pas. Si quelqu'un peut m'aider MERCI.
Public Sub calc()
Dim ligne As Integer
Dim dif As Single
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
ligne = 2
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
Do While IsEmpty(Cells(ligne, 3))
If dif = 0 Then
a = a + 1
ElseIf dif = 0.01 Then
b = b + 1
ElseIf dif = 0.02 Then
c = c + 1
ElseIf dif = 0.03 Then
d = d + 1
ElseIf dif = 0.04 Then
e = e + 1
ElseIf dif >= 0.05 Then
f = f + 1
Else: MsgBox ("erreur")
End If
ligne = ligne + 1
Loop
Cells(6, 3) = a
Cells(7, 3) = b
Cells(8, 3) = c
Cells(9, 3) = d
Cells(10, 3) = e
Cells(11, 3) = f
End Sub
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 11 juil. 2012 à 18:03
Bonjour,
Avant toute autre chose :
Tu as ouvert cette discussion dans la section
Forum > Visual Basic 6
VBA/Excel n'est pas du VB6 et ta discussion aurait dû être ouverte dans la section Langages dérivés > VBA.
Prends-en note pour tes prochaines discussions.
Pour ton problème :
ce que tu as écrit dans ta boucle est sans rapport avec ce que tu as exposé !:
De surcroît : ta boucle parcourt des cellules. dif n'y étant jamais intialisée, est toujours = 0 ! et donc seule a est incrémentée d'autant d'unités que tu as de cellules vides à partir de la ligne 2 en colonne C !
Quésako ?
Je vais m'en tenir dans ce cas à ton seul exposé.
Je t'invite à ouvrir tobn aide VBA à la ruibrique :
WorksheetFunction.CountIfs, méthode
A lire, puis à appliquer (après lecture attentive).
Reviens avec ton bout de code d'essai si encore vraiment en difficulté
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ
pallu1234567890
Messages postés7Date d'inscriptionmercredi 11 juillet 2012StatutMembreDernière intervention12 juillet 2012 12 juil. 2012 à 11:05
Bon aprés m'avoir remis la tête dans VBA depuis un jour les osuvenir revienne j'ai réussi a faire ce que je voulais, je comprend pas encore comment j'ai pu faire tant d'erreur, la mémoire fait défaut des fois. merci pour tes réponse