Problème de boucle

Pierrot93

XLDnaute Barbatruc

• 16 Février 2008

• #2

Re : Problème de boucle

Bonsoir Gerard

chez moi ce code fonctionne (excel2003), maintenant il faut voir quelles données tu veux additionner. N'aurais tu pas du texte, des dates dans la colonne ?

bonne soirée
@+

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 16 Février 2008

• #3

Re : Problème de boucle

Merci Pierrot
effectivement, dans un autre classeur ça marche mais pas dans celui que je veux
Merci cependant

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

• 16 Février 2008

• #4

Re : Problème de boucle

Bonsoir
Regarde un peu tes cellules de départ et d'arrivée ! , format
-cellules fusionnées ( A EVITER !!!)
- format horaire avec text ... etc
- tu as mis "j" as double , donc il doit y avoir correlation avec l'autre cellule
Tout cela a verifier !

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 16 Février 2008

• #5

Re : Problème de boucle

Bonjour,
j'ai tout regardé, je ne comprends pas dans un autre fichier le code marche et là,il bug sur la ligne activecell
je joins le fichier si ça inspire quelqu'un, je l'en remercie
a+
Gérard

 

Pièces jointes

• Commnande.zip

  26.4 KB · Affichages: 32

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Février 2008

• #6

Re : Problème de boucle

Bonjour, le problème vient qu'il n'y a rien dans une cellule, la dernière en l'occurrence.
Tu peux remplacer ton code par ceci :

Code:

Sub QuAProduire()
Sheets("Cmde").Select
Dim j As Double
For j = 1 To 15
    With [G3].Offset(j)
    .Value = .Value + IIf(.Offset(0, -5).Value <> "", .Offset(0, -5).Value, 0)
    End With
Next
End Sub

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 16 Février 2008

• #7

Re : Problème de boucle

Merci beaucoup
Cette fois çà marche ok
a+

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 17 Février 2008

• #8

Re : Problème de boucle

Bonsoir
Je me suis réjouis trop vite ce matin avec ta réponse bhbh.
Sur le moment ça fontionnait
et à présent, il refuse compte tenu qu'il y a de NA.
je joins le fichier. Si quelqu'un comprend le truc
Merci d'avance
a+
Gérard

 

Pièces jointes

• CommandeBug.zip

  48.7 KB · Affichages: 25

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 17 Février 2008

• #9

Re : Problème de boucle

Re-,
OK, mais si tu fais un test sur .Offset(0, 11), pourquoi additionner .Offset(0, 4) ?

remplace par :

Code:

.Value = .Value - IIf(Not IsError(.Offset(0, 4).Value), .Offset(0, 4).Value, 0)

 

Vote positif 0 Vote négatif

G

gerard55

XLDnaute Occasionnel

• 17 Février 2008

• #10

Re : Problème de boucle

Bonsoir,
Erreur pour moi, je n'ai modifié qu'une partie de la ligne c 'est normal que ça ne marche pas.
Excuses moi.
Merci a+
Gérard

 

Vote positif 0 Vote négatif