Problème ERREUR 1004
pallu1234567890
Messages postés
7
Date d'inscription
mercredi 11 juillet 2012
Statut
Membre
Dernière intervention
12 juillet 2012
-
12 juil. 2012 à 09:32
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 - 12 juil. 2012 à 12:09
LIBRE_MAX Messages postés 1402 Date d'inscription mardi 1 mai 2007 Statut Membre Dernière intervention 7 octobre 2012 - 12 juil. 2012 à 12:09
10 réponses
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
12 juil. 2012 à 09:38
12 juil. 2012 à 09:38
Bonjour,
Si Cells(2, 3) est vide, ta boucle tournera en rond jusqu' à ce que la variable a dépasse sa capacité.
[] Ce qui va sans dire. va mieux en le disant.
Si Cells(2, 3) est vide, ta boucle tournera en rond jusqu' à ce que la variable a dépasse sa capacité.
[] Ce qui va sans dire. va mieux en le disant.
pallu1234567890
Messages postés
7
Date d'inscription
mercredi 11 juillet 2012
Statut
Membre
Dernière intervention
12 juillet 2012
12 juil. 2012 à 09:45
12 juil. 2012 à 09:45
Bonjour,
Non il y a une valeur ( 0,00) pour cette cellule
Non il y a une valeur ( 0,00) pour cette cellule
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
12 juil. 2012 à 09:50
12 juil. 2012 à 09:50
Oui, je sais.C' est pas ça ..
je crois que j' aurais dû demandé la description du message d' erreur.
[] Ce qui va sans dire. va mieux en le disant.
je crois que j' aurais dû demandé la description du message d' erreur.
[] Ce qui va sans dire. va mieux en le disant.
pallu1234567890
Messages postés
7
Date d'inscription
mercredi 11 juillet 2012
Statut
Membre
Dernière intervention
12 juillet 2012
12 juil. 2012 à 09:58
12 juil. 2012 à 09:58
ça me dit erreur d'application '1004'
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
12 juil. 2012 à 10:04
12 juil. 2012 à 10:04
C 'est très vague.
Essayons de voir donc en tatonnant.
Commencent par :
If Cells(ligne, 3) = "0.01" Then
Mais au fait, ta boucle s' arrête quand ?
[] Ce qui va sans dire. va mieux en le disant.
Essayons de voir donc en tatonnant.
Commencent par :
If Cells(ligne, 3) = "0.01" Then
Mais au fait, ta boucle s' arrête quand ?
[] Ce qui va sans dire. va mieux en le disant.
pallu1234567890
Messages postés
7
Date d'inscription
mercredi 11 juillet 2012
Statut
Membre
Dernière intervention
12 juillet 2012
12 juil. 2012 à 11:01
12 juil. 2012 à 11:01
c'est bon j'ai réussi enfaîte le ="0.01" fais tout planter du coup j'ai remplacer par ça mon code ( je 'ai avancé un peu). donc le calcul du nombre de cellule ayant les valeur numérique s'effectue parfaitement mais le calcul du total ( la variable g, dernier bloc) fait apparaître erreur 6 dépassement de capacité , une idée ?
Public Sub calc_0()
Dim ligne As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
ligne = 2
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
g = 0
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) = 0 Then
a = a + 1
Else: a = a
End If
ligne = ligne + 1
Loop
Cells(3, 6) = a
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0 And Cells(ligne, 1) - Cells(ligne, 2) < 0.015 Then
b = b + 1
Else: b = b
End If
ligne = ligne + 1
Loop
Cells(3, 7) = b
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.015 And Cells(ligne, 1) - Cells(ligne, 2) < 0.025 Then
c = c + 1
Else: c = c
End If
ligne = ligne + 1
Loop
Cells(3, 8) = c
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.025 And Cells(ligne, 1) - Cells(ligne, 2) < 0.035 Then
d = d + 1
Else: d = d
End If
ligne = ligne + 1
Loop
Cells(3, 9) = d
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.035 And Cells(ligne, 1) - Cells(ligne, 2) < 0.045 Then
e = e + 1
Else: e = e
End If
ligne = ligne + 1
Loop
Cells(3, 10) = e
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.045 Then
f = f + 1
Else: f = f
End If
ligne = ligne + 1
Loop
Cells(3, 11) = f
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Not IsEmpty(Cells(ligne, 1)) Then
g = g + 1
Else: g = g
End If
Loop
Cells(3, 5) = g
End Sub
Public Sub calc_0()
Dim ligne As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
ligne = 2
a = 0
b = 0
c = 0
d = 0
e = 0
f = 0
g = 0
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) = 0 Then
a = a + 1
Else: a = a
End If
ligne = ligne + 1
Loop
Cells(3, 6) = a
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0 And Cells(ligne, 1) - Cells(ligne, 2) < 0.015 Then
b = b + 1
Else: b = b
End If
ligne = ligne + 1
Loop
Cells(3, 7) = b
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.015 And Cells(ligne, 1) - Cells(ligne, 2) < 0.025 Then
c = c + 1
Else: c = c
End If
ligne = ligne + 1
Loop
Cells(3, 8) = c
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.025 And Cells(ligne, 1) - Cells(ligne, 2) < 0.035 Then
d = d + 1
Else: d = d
End If
ligne = ligne + 1
Loop
Cells(3, 9) = d
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.035 And Cells(ligne, 1) - Cells(ligne, 2) < 0.045 Then
e = e + 1
Else: e = e
End If
ligne = ligne + 1
Loop
Cells(3, 10) = e
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) > 0.045 Then
f = f + 1
Else: f = f
End If
ligne = ligne + 1
Loop
Cells(3, 11) = f
ligne = 2
Do While Not IsEmpty(Cells(ligne, 1))
If Not IsEmpty(Cells(ligne, 1)) Then
g = g + 1
Else: g = g
End If
Loop
Cells(3, 5) = g
End Sub
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
12 juil. 2012 à 11:26
12 juil. 2012 à 11:26
Déclares tes variables en Long.
(avec une écriture plus condensée)
Dim a As Long, b As Long, c As Long, etc...
Même remarque pour la boucle.
S' agissant d' une même entrée, essayes de faire tes tests à l' intérieur d' une même et unique boucle.
[] Ce qui va sans dire. va mieux en le disant.
(avec une écriture plus condensée)
Dim a As Long, b As Long, c As Long, etc...
Même remarque pour la boucle.
S' agissant d' une même entrée, essayes de faire tes tests à l' intérieur d' une même et unique boucle.
[] Ce qui va sans dire. va mieux en le disant.
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
12 juil. 2012 à 11:33
12 juil. 2012 à 11:33
Do While Not IsEmpty(Cells(ligne, 1))
If Cells(ligne, 1) - Cells(ligne, 2) 0 Then a a + 1
If Cells(ligne, 1) - Cells(ligne, 2) > 0 And _
Cells(ligne, 1) - Cells(ligne, 2) < 0.015 Then b = b + 1
If Cells(ligne, 1) - Cells(ligne, 2) > 0.015 And _
Cells(ligne, 1) - Cells(ligne, 2) < 0.025 Then c = c + 1
'etc...
ligne = ligne + 1
Loop
Cells(3, 6) = a
Cells(3, 7) = b
Cells(3, 8) = c
'etc...
[] Ce qui va sans dire. va mieux en le disant.
pallu1234567890
Messages postés
7
Date d'inscription
mercredi 11 juillet 2012
Statut
Membre
Dernière intervention
12 juillet 2012
12 juil. 2012 à 11:43
12 juil. 2012 à 11:43
bon tout mes problème son résolu merci de ton aide
LIBRE_MAX
Messages postés
1402
Date d'inscription
mardi 1 mai 2007
Statut
Membre
Dernière intervention
7 octobre 2012
6
12 juil. 2012 à 12:09
12 juil. 2012 à 12:09
En fait il manquait ligne=ligne+1 dans ta dernière boucle.
C' était pas évident de le voir.Et parce qu' en vérité j' ai pas tout lu.
Tu vois, une écriture plus condensée est plus appréciable.
Bonne continuation.
[] Ce qui va sans dire. va mieux en le disant.
C' était pas évident de le voir.Et parce qu' en vérité j' ai pas tout lu.
Tu vois, une écriture plus condensée est plus appréciable.
Bonne continuation.
[] Ce qui va sans dire. va mieux en le disant.