ReCalcul de lignes dans cellules

[gds35]

Mes AMIS du furoms bonjour ,bon WE
Je desire calculer le tmp 'Ticket moyen pondéré' ds les Lignes 'TOTAL' du tableau tant que la valeur en "C" est Diffrente de 0 ou blanc impossible d'y arriver car si une cellule = 0 je tombe en erreur 006, d'autre part le calcul est mal posionné , il est sur la ligne DECEMBRE au lieu de la ligne TOTAL , voila le puis le code ecrit :
Sub STAT1202ST()
'
Sheets("TRTMOIS1202").Activate
Dim NOL As Integer
Dim NOC As Integer
Dim DON As Integer
Dim CalST As Variant
'
'NOLTMP = 5
'
DON = Application.WorksheetFunction.CountA(Range("C2:C65536"))
For NOL = DON + 2 To 5 Step -3
Cells(NOL, 3).EntireRow.Insert
Range("B" & NOL).Select
Selection.Value = "Total "
For NOC = 3 To 8
CalST = Application.Sum(Range(Cells(NOL - 3, NOC), Cells(NOL - 1, NOC)))
Cells(NOL, NOC) = CalST
Next
Next
'
' RECALCUL DU TMP TRIMESTRIEL
'
Do While Cells(NOL, 2) <> ""
Cells(NOL, 9) = Cells(NOL, 4) / Cells(NOL, 3) ' TMP MIDI
Cells(NOL, 10) = Cells(NOL, 6) / Cells(NOL, 5) ' TMP SOIR
Cells(NOL, 11) = Cells(NOL, 7) / Cells(NOL, 8) ' TMP JOUR
NOL = NOL + 4
Loop
'
''Excel.Run ("STAT0305")
'
End Sub

OU peux se situer l'erreur???
Merci de votre aide . Cordialemnt GDS35

 

[Excel-lent]

Re : ReCalcul de lignes dans cellules

Bonjour Gds35,

Cela ressemble étrangement à l'une des questions que tu as posé il y a qq jrs?

Pourquoi ne pas avoir continué sur le même fil?

Sans le fichier excel joint, nous ne pouvons corrigé qu'un certain type d'erreur : les erreurs de syntaxe (c'est à peu prés tout)!

En voici une justement...
* remplacer ce code :

DON = Application.WorksheetFunction.CountA(Range("C2:C6[COLOR="Blue"][B]5 5[/B][/COLOR]36"))

par ce dernier

DON = Application.WorksheetFunction.CountA(Range("C2:C6[COLOR="Blue"][B]55[/B][/COLOR]36"))

Mais cela ne résoudra pas ton pb de calcul mal positionné.

Dans l'attente de ton fichier

Bonne fin d'après midi

 

[gds35]

Re : ReCalcul de lignes dans cellules

Salut Mon AMI , Je ne sais pourquoi ce blanc ???? a l'écran il n'apparait pas et j'ai fais un CC . Bref je te renvoi le code que j'ai extirpé d'un fichier qui tourne sauf cette partie , j'espère que tu pourras l'exécuter ...... , je tombe en + en erreur 6. Si tu peux me renvoyer le fichier , corrigé, ce serait super.
Bonne Soirée des + cordialement GDS35(GéGé), je continue à chercher cependant , le pourquoi du comment !!!!!!

 

[gds35]

Re : ReCalcul de lignes dans cellules

Bonjour , mon AMI , j'ai résolu le Pb de decalage de Lignes en rajoutant NOL = 5 avant le DO WHILE , en ce qui concerne le dépassement de capacité , ce pb persiste , sauf si je detruit les 5 Lignes contenant 0.
Voila ou j'en suis
Cordialement GDS35

 

[PascalXLD]

Re : ReCalcul de lignes dans cellules

Bonjour

pour ton pbe c'est normal tu fais une division par 0

Donc il faut faire un test avant

If Cells(NOL, 3) <>0 then Cells(NOL, 9) = Cells(NOL, 4) / Cells(NOL, 3)

 

[gds35]

Re : ReCalcul de lignes dans cellules

Salut Pascal , effectivement je n'ai plus l'erreur , j'ai créé une boucle avec une etiquette.
Comment alors supprimer toutes les lignes qui ont la valeur 0.
Grand MERCI de ton aide. Cordialement GDS35

 

[PascalXLD]

Re : ReCalcul de lignes dans cellules

Re

tu veux préciser STP

Tu veux carrément supprimer la ligne si la colonne C contient un 0 c'est ça ?

 

[gds35]

Re : ReCalcul de lignes dans cellules

Salut Pascal ,
Oui , c'est cela , mais desire supprimer toute les lignes à 0 , car derriere , je vais créer des comparaisons entre les différents trimestres , a partir de la premiere ligne vide de la feuille. et ce en chargeant systématiquement les trimestres au fil des années des que ces derniers sont complets.Je te joint le fichier travaillé ce matin et qui tourne avec qq explications. Merci de ton Aide . Cordialement Bon WE GDS35

 

[gds35]

Re : ReCalcul de lignes dans cellules

Salut Pascal , Excel-Lent , le Forum ,

J'ai trouvé la solution pour supprimer mes ligne de valeur 0 , ma solution n'est surement tres catholique pour des experts comme vous mais elle fonctionne . Encore Merci de votre Aide . Bon Dimanche . Cordialement GDS35

 

[PascalXLD]

Re : ReCalcul de lignes dans cellules

Re

Super

Montres là ta solution elle pourra servir pour d'autres et si il faut l'améliorer un peu on pourra te filer un coup de main

Bon dimanche

 

[gds35]

Re : ReCalcul de lignes dans cellules

Merci de Nouveau PASCAL , je suis vraiment novice en vba , mais grace a vous je progresse , lentement mais surement , voila "l'usine a gaz" crée par le novice que je suis.
Bon dimanche a toi et les membres du forums.
Cordialement . GDS35