Problème de boucle

[gerard55]

Bonjour à tous
je ne comprends pas pour quoi le code ci-dessous bug.
il refuse la ligne avec activecell Pourquoi?

Sub QuProduire()
Dim j As Double
For j = 1 To 15
Range("g3").Offset(j).Select
ActiveCell = ActiveCell.Value + ActiveCell.Offset(0, -5).Value
Next
End Sub
merci pour vos suggestions
a+
Gérard

 

[Pierrot93]

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
@+

 

[gerard55]

Re : Problème de boucle

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

 

[herve62]

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 !

 

[gerard55]

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

 

[Cousinhub]

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 :

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

 

[gerard55]

Re : Problème de boucle

Merci beaucoup
Cette fois çà marche ok
a+

 

[gerard55]

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

 

[Cousinhub]

Re : Problème de boucle

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

remplace par :

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

 

[gerard55]

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