Calcul itératif

A

Adriano43

XLDnaute Occasionnel

• 5 Juin 2013

• #16

Re : Calcul itératif

Re phlaurent55,

Voici comment je l'ai modifiée

Code:

Public Sub prc()

    Dim i As Integer
    Dim j As Integer
        
    Application.ScreenUpdating = False
    With Sheets("Programmation Relevés")
     .Range("G2:AT40").ClearContents
    Cells(j, 7).Value = Cells(j, 3).Value + Cells(j, 5).Value
    For i = 1 To Int(Cells(j, 4) - 1)
    Cells(j, i + 7) = Cells(j, i - 1 + 7) + Cells(j, 3)
    Next i
    End With
    Application.ScreenUpdating = True

End Sub

Une erreur apparait sur la ligne du calcul de valeur de "Cells'(j,7)=..."

Pourtant, le code me semble correct

En vous remerciant par avance

Cordialement

Adriano43

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 5 Juin 2013

• #17

Re : Calcul itératif

Bonjour,

Une erreur apparait sur la ligne du calcul de valeur de "Cells'(j,7)=..."

Cliquez pour agrandir...

pas tout suivi du fil , mais en l'état de ton code c'est normal, la variable j n'est pas initialisée et vaut donc 0, la ligne 0 n'existe pas sur une feuille de calcul....

bonne journée
@+

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 6 Juin 2013

• #18

Re : Calcul itératif

Re Bonjour,
Salut Pierrot,

Depuis le début de ce fil de discussion, la question est en constante évolution.
Chose nouvelle, il y aurait maintenant un Userform,
Il serait temps de récapituler, d'être plus précis dans la question posée, d'expliquer le pourquoi et le comment de cet USF
.......... et surtout mettre le fichier réel en pièce jointe

à+
Philippe

 

Vote positif 0 Vote négatif

A

Adriano43

XLDnaute Occasionnel

• 6 Juin 2013

• #19

Re : Calcul itératif

Re,

C'était bien ça Pierrot, cela fonctionne parfaitement!!
Merci de votre aide à tous les deux.

Cordialement

Adriano43

 

Vote positif 0 Vote négatif