un autre pb mais en vb excelRésolu

Question

Private Sub transfert() Dim vnomfeuille As String Dim vmatiere As String Dim vnummatiere As Integer Dim vnumeleve As Integer Dim vnomeleve As String Dim vprenomeleve As String Dim vnote As String Dim vsur As String Dim i As Integer Dim j As Integer Dim velevetraite As Integer Dim vmatieretraite As Integer Dim vnombreds(1 To 10) As Integer Dim vnombrenote As Integer 'Mémorise le nombre total de notes par élève Dim vCellule As String 'Mémorise le nom de la cellule de démarrage pour la feuille Test Dim vDecalage As Integer 'Mémorise le nombre de cellule à décaler pour mémoriser les informations Dim vClasse As String 'Mémorise le nom de la classe traitée Worksheets("test").Activate Range("A2").Activate Do 'Initialisation du nombre de ds à 0 For i = 1 To 10 vnombreds(i) = 0 Next i vCellule = "A2" vnombrenote = 0 'offset permet le deplacement dans la feuille vClasse = ActiveCell.Value vnomfeuille = ActiveCell.Value & " " & ActiveCell.Offset(0, 8).Value If ActiveCell.Offset(0, 8).Value = "1" Then vnomfeuille = vnomfeuille & "ère période" Else vnomfeuille = vnomfeuille & "ème période" End If Worksheets(vnomfeuille).Activate Range("c1").Activate Worksheets("test").Activate velevetraite = ActiveCell.Offset(0, 9).Value Do vnummatiere = ActiveCell.Offset(0, 3).Value Select Case vnummatiere Case Is = 1 vmatiere = "LITTERATURE(Dire,Lire,Erire)" Case Is = 2 vmatiere = "OBSERVATION REFLECHIE DE LA LANGUE FRANCAISE Grammaire - Conjugaison - Ortographe - Vocabulaire " Case Is = 3 vmatiere = "HISTOIRE - GEOGRAPHIE" Case Is = 5 vmatiere = "MATHEMATIQUES" Case Is = 6 vmatiere = "SCIENCES EXPERIMENTALES ET TECHNOLOGIE" Case Else vmatiere = "" End Select Do vnombreds(vnummatiere) = vnombreds(vnummatiere) + 1 ActiveCell.Offset(1, 0).Activate Loop Until vnummatiere <> ActiveCell.Offset(0, 3).Value Or velevetraite <> ActiveCell.Offset(0, 9).Value vnombrenote = vnombrenote + vnombreds(vnummatiere) If vmatiere <> "" Then Worksheets(vnomfeuille).Activate ActiveCell.Value = vmatiere ActiveCell.Offset(0, vnombreds(vnummatiere) + 1).Activate Worksheets("test").Activate Else 'Mémorisation d'une valeur négative pour indiquer que cette matière n'est pas à traiter vnombreds(vnummatiere) = -vnombreds(vnummatiere) End If Loop Until velevetraite <> ActiveCell.Offset(0, 9).Value Worksheets(vnomfeuille).Activate ActiveCell.Value = "Total sur 100" ActiveCell.Offset(0, 1).Value = "Total sur 20" 'Retour au départ pour gérer la suite de l'entête Range("B2").Activate Worksheets("test").Activate Range(vCellule).Activate 'Ajouter dans cette boucle, une boucle qui gère selon les matières (à la fin de chaque matière il faut ajouter une colonne moyenne) en utilisant le tableau vnummatiere où on a mémorisé le nombre de notes par matière For vnummatiere = 1 To 10 'Pour chaque note de la matière For j = 1 To vnombreds(vnummatiere) i = 0 'Tant que la note est abs on passe à l'élève suivant pour la même matière While ActiveCell.Offset(i, 6).Value = "abs" i = i + vnombrenote Wend vsur = ActiveCell.Offset(i, 7).Value Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, 1).Activate ActiveCell.Value = vsur Worksheets("test").Activate ActiveCell.Offset(1, 0).Activate Next j 'Création de la colonne moyenne pour la matière If vnombreds(vnummatiere) > 0 Then Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, 1).Activate ActiveCell.Value = "Moy" Worksheets("test").Activate Else ActiveCell.Offset(-vnombreds(vnummatiere), 0).Activate End If Next vnummatiere 'Retour au départ pour gérer les élèves (avant on ne fait que créer les entêtes des colonnes) Worksheets(vnomfeuille).Activate Range("A3").Activate Worksheets("test").Activate Range(vCellule).Activate 'Mémorisation du nombre d'élèves traités pour se repositionner dans les formules et savoir si on doit griser ou pas la ligne velevetraite = 0 Do velevetraite = velevetraite + 1 vnomeleve = ActiveCell.Offset(0, 1).Value vprenomeleve = ActiveCell.Offset(0, 2).Value Worksheets(vnomfeuille).Activate ActiveCell.Value = vnomeleve ActiveCell.Offset(0, 1).Value = vprenomeleve 'Permet de connaître le décalage à faire pour la mémorisation des valeurs vDecalage = 2 Worksheets("test").Activate 'Pour chaque matière For vnummatiere = 1 To 10 'Pour chaque ds de la matière For j = 1 To vnombreds(vnummatiere) vnote = ActiveCell.Offset(0, 6).Value Worksheets(vnomfeuille).Activate If vnote = "abs" Then ActiveCell.Offset(0, vDecalage).Value = "" Else ActiveCell.Offset(0, vDecalage).Value = vnote End If vDecalage = vDecalage + 1 Worksheets("test").Activate ActiveCell.Offset(1, 0).Activate Next j 'Si la matière est traitée, mémorisation des formules en fin de matière If vnombreds(vnummatiere) > 0 Then Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, vDecalage).FormulaR1C1 = "=IF((RC[" & -vnombreds(vnummatiere) & "]:RC[-1]="");"";AVG((SUM(RC[" & -vnombreds(vnummatiere) & "]:RC[-1])/SUM(R[" & -velevetraite & "]C[" & -vnombreds(vnummatiere) & "]:R[" & -velevetraite & "]C[-1]))*10))" vDecalage = vDecalage + 1 Worksheets("test").Activate Else ActiveCell.Offset(-vnombreds(vnummatiere), 0).Activate End If Next vnummatiere 'Mémorisation des formules en fin de ligne Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, vDecalage).FormulaR1C1 = "somme" 'Mettre la formule pour calculer la somme de toutes les matières ActiveCell.Offset(0, vDecalage + 1).FormulaR1C1 = "sur 20" 'Mettre la formule pour ramener la somme sur 20 points ActiveCell.Offset(1, 0).Activate Worksheets("test").Activate Loop Until ActiveCell.Value <> vClasse Loop Until ActiveCell.Value = "" End Sub mon pbc'est la ligne rouge j'aimerais savoir quel est le code pour la formule en faite je desre pouvoir mettre une formule dans la colene moyenne correspondante pour pouvoir calculer la moyenne sans que les notes de la matiere ou ya un blanc ne soit pas comptabiliser en acces sa donne SI(C:C"";"";MOYENNE((SOMME(C4:C4)/SOMME(C2:C2))*10)) j'amerais donc pouvoir integrer cette foncto avec le code vba pour pouvoir l'avoir automatiquement dans la collonne moyenne je sais pas si la syntaxe est bone pourtant cela me semble bon pouvez vous m'aider

madbob · Accepted Answer

En avant la soluce t'as presque rien &#224; changer:

C'est juste impl&#233;menter 3 r&#232;gles de gestion pour traiter les 3 cas qu'on n'arrive pas &#224; r&#233;soudre



Tu ajoutes 2 nouvelles variables

Dim maformule As String

Dim Cpt_Abs As Integer




.../...

'* initialisation du compteur d'absence par mati&#232;re et par &#233;l&#233;ve

Cpt_Abs = 0


'Pour chaque mati&#232;re

For vnummatiere = 1 To 10

    'Pour chaque ds de la mati&#232;re

    For j = 1 To vnombreds(vnummatiere)

        vnote = ActiveCell.Offset(0, 6).Value

        Worksheets(vnomfeuille).Activate

                    

        If vnote = "abs" Then

                '* Pour chaque mati&#232;re on veut conna&#238;tre le nobre d'absence

            Cpt_Abs = Cpt_Abs + 1

            ActiveCell.Offset(0, vDecalage).Value = ""

        Else

            ActiveCell.Offset(0, vDecalage).Value = vnote

        End If



        vDecalage = vDecalage + 1

        Worksheets("test").Activate

        ActiveCell.Offset(1, 0).Activate

    Next j

                

     'Si la mati&#232;re est trait&#233;e, m&#233;morisation des formules en fin de mati&#232;re

    If vnombreds(vnummatiere) > 0 Then

          '*  R&#232;gle de gestion sur les absences

         '* pas d'absence (nombre de note - le compteur d'absence  = nombre de note)

        If vnombreds(vnummatiere) - Cpt_Abs = vnombreds(vnummatiere) Then

              '* La formule est inchang&#233;e

            
maformule = "=AVERAGE((SUM(RC[" & -vnombreds(vnummatiere) &
"]:RC[-1])/AVERAGE(SUM(R[" & -velevetraite & "]C["

            
           
        & -vnombreds(vnummatiere)
& "]:R[" & -velevetraite & "]C[-1])))*10)"

                    

         '* Pas de note du tout => absent &#224; tous les contr&#244;les (=> le nombre de note s'anule avec le nombre s'absence)

         ElseIf vnombreds(vnummatiere) - Cpt_Abs = 0 Then

             maformule = """"

         

         '* n absence sur y contr&#244;les  => nouvelle formule                 

        Else

            
'* la moyenne est calcul&#233;e sur (les n valeurs somm&#233;es divis&#233;e par les n diviseur de la mati&#232;re le tout ramen&#233; &#224; 10

            '* (Somme(Aj:Aj)/(Notesur* cpt_abs))*10


             maformule = "=(SUM(RC[" & -vnombreds(vnummatiere) & "]:RC[-1]))/((R[" & -velevetraite & "]C[" &

    
                
             -vnombreds(vnummatiere)
& "])*" & Cpt_Abs & ")*10"

        End If

                    

        '* Mise &#224; jour de la cellule

        Worksheets(vnomfeuille).Activate

        ActiveCell.Offset(0, vDecalage).FormulaR1C1 = maformule


        
vDecalage = vDecalage + 1


        
Worksheets("test").Activate

    Else

        ActiveCell.Offset(-vnombreds(vnummatiere), 0).Activate

    End If

    

    '* on r&#233;initialise le compteur pour chaque nouveau traitement !           

    Cpt_Abs = 0

    Next vnummatiere



Autre probl&#232;me observ&#233; :

Parcontre, je me suis rendu compte que le calcul sur la valeur 11.75 ne
se faisait pas &#224; cause d'un probl&#232;me d'affichage de nombre => 11,75
est consid&#233;r&#233; comme du text, &#224; cause certainement du mode d'importation
des donn&#233;es : dans test tu a devant des nombres "'"11,75 et &#231;a g&#232;ne pour la reconnaissance du format num&#233;rique des r&#233;els.



A+

madbob

valtrase · Answer

Salut,
Pas &#233;vident de r&#233;pondre &#224; ta question
Si &#231;a ne marche pas tu peux essayer de remplacer tes Sum et AVG par
application.WorksheetFunction.Average(Arg1,Arg2,.......)
application.WorksheetFunction.Sum (Arg1, Arg2, ......)
c'est la methode normale pour appeller une fonction excel sous VBA

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_guizmo59 · Answer

j'ai essayer et cela ne fonctionne pas si sa peux vous aider j'ai l'erreru d'execution 1004
 erreur definie par l'application ou par l'objet

tjs sur la meme ligne

il est sympa le deboggeur un

madbob · Answer

En tout cas le IF oblige la notation R1C1

et c'est ce qui n'est pas bien fait dans ta formule



Utilise une macro enregistre, &#233;crit exactement ta formule puis remplace les indice par tes variables et &#231;a doit marcher


madbob

cs_guizmo59 · Answer

voici la bonne syntaxe de la formule 
ActiveCell.Offset(0, vDecalage).FormulaR1C1 = "=IF((RC[" & -vnombreds(vnummatiere) & "]:RC[-1]=""""),"""",AVG((SUM(RC[" & -vnombreds(vnummatiere) & "]:RC[-1])/SUM(R[" & -velevetraite & "]C[" & -vnombreds(vnummatiere) & "]:R[" & -velevetraite & "]C[-1]))*10))"

maintenant mon pb et dans le fichier excel
dans les cellules concernes il m'affiche #valeur!

cs_guizmo59 · Answer

pour le avg il vaut mieux mettre average

madbob · Answer

Dsl mais j'ai du mal a capter ce que tu veux dire sans excel avec

RC[" & -vnombreds(vnummatiere) & "]:RC[-1]....

tu test quoi exactement ?
madbob

cs_guizmo59 · Answer

vnombreds est un variable permettant de compter le nombrede ds pour la matiere et vnummatiere est le numero de la matiere 
si tu prefere je recupere des notes dans un feuille excel a partir de acces et par la suite je recupere ces notes de cette feuille pour les mettre dans les bulletins 

qui ce rempli automatiquement avec le code 

donc j'ai un case moyenne qui aparait apres un nombre de notes qui peut etre varaible 10,20,30etc
et je voudrais calculer la moyenne
 c'est a dire =SI(C:C="";"";MOYENNE((SOMME(C4:C4)/SOMME(C2:C2))*10))
a part que le c:c n'est pas valable ici mais c'est pour l'idee de la formule

en gros si une cellule est a blanc alor il ne faut pas que la note soit comptabiliser
ex j'ai 5 note 
toute sur 20
mais une case est a blanc 
au lieu de diviser le total par 100 il faut que je divise par 80

j'epsre avoir ete clair 
la je viens de trouver une autre methode 

c'est 
ActiveCell.Offset(0, vDecalage).FormulaR1C1 = "=IF(AND(ISBLANK(RC[" & -vnombreds(vnummatiere) & "]:RC[-1])),"""",AVG((SUM(RC[" & -vnombreds(vnummatiere) & "]:RC[-1])/SUM(R[" & -velevetraite & "]C[" & -vnombreds(vnummatiere) & "]:R[" & -velevetraite & "]C[-1]))*10))"

je n'est plus le pb de #valeur dans la cellule excel il me calcule bien la moyenne mais le pb c'est qu'il me fais la somme de mes notes sur le total de notes
ex j'ai 20 note dont 3 blanche il m'additionne les 17 notes et me les divises par la somme des 20

madbob · Answer

Oui... d&#233;sol&#233; tu t'es tap&#233; une grosse page d'&#233;criture pour pas grand chose ;-))))

car &#231;a je pense que je comprend ...

Pas tout &#224; fait quand m&#234;me car j'ai au moins les &#233;l&#233;ment pour le faire 



En attendant, ce que je comprends pas c'est la notation RC[y] si tu
r&#233;f&#233;rences une cellule y a un probleme..Partout la notation est 
R[-13]C[-4] sauf l&#224;.



Hors t'a une erreur de #valeur... Donc Excel pige  pas. non plus et moi toujours pas non plus

;-)



L&#224; je dois sortir,

En rentrant j'essaye quelque chose si ce que je t'ai dit ne t'a toujours pas aid&#233;.


madbob

cs_guizmo59 · Answer

oki franchement la je suis bloquer et je m'en sort pas 
pour moi le RC[ et bien il est ps bon du tout la 
t'a raison je doit separe les ligne et les colonnes

cs_guizmo59 · Answer

oki franchement la je suis bloquer et je m'en sort pas 
pour moi le RC[ et bien il est ps bon du tout la 
t'a raison je doit separe les ligne et les colonnes 
je

cs_guizmo59 · Answer

oki franchement la je suis bloquer et je m'en sort pas 
pour moi le RC[ et bien il est ps bon du tout la 
t'a raison je doit separe les ligne et les colonnes 
je vien

cs_guizmo59 · Answer

oki franchement la je suis bloquer et je m'en sort pas 
pour moi le RC[ et bien il est ps bon du tout la 
t'a raison je doit separe les ligne et les colonnes 
je vien de

cs_guizmo59 · Answer

oki franchement la je suis bloquer et je m'en sort pas 
pour moi le RC[ et bien il est ps bon du tout la 
t'a raison je doit separe les ligne et les colonnes 
je vien de voir

cs_guizmo59 · Answer

je sais pas ce qui c passer mais je crois que sa a bugger dsl pour les doublons

madbob · Answer

Je viens de rentrer

;-)))) Pour du doublon c'est du doublon... ;-))))
c'est du doublon de doublon de doublon mdr lol
madbob

cs_guizmo59 · Answer

sa marche tjs pas meme en separant les lignes 
sa marche encore moins bien

jes sui abbatu la le prog gagne

madbob · Answer

madbob · Answer

Salut d&#233;sesp&#232;re pas il fait bo





Je te demande une chose

ecrit ta formule dans une string



mets une trace sur la string, pose un espion et envois moi le contenu
de la string... pour avoir le r&#233;sultat complet de ta syntaxe.



Je vais essayer de t'aider en collant au max avec tes param&#232;tres OK ?


Je t'attends


madbob

cs_guizmo59 · Answer

nrmale que y'a rien dans ton post?

madbob · Answer

;-) non c ma fote... Ca ramait tellement l'affichage que j'ai appuyer
sur Ajouter ... J'ai ferm&#233; la fen&#234;tre mais trop tard le msg &#233;tait d&#233;j&#224;
parti...


madbob

cs_guizmo59 · Answer

tu veux pas le fichier par hasard 
je peux te le fournir en le mettant comme source ou par mail ou msn comme tu veux

madbob · Answer

Je viens de t'envoyer un mail via CS



C'est comme tu veux on a aussi cette solution...

madbob

madbob · Answer

Je viens de t'envoyer un mail parcequ'il y a quelques petits d&#233;tail fonctionnels qui me paraissent curieux...

madbob

madbob · Answer

J'ai besoin de ces infos pour continuer car je dois savoir

notamment si la moyenne est (12 + 0)/2 ou 12 en cas d'absence...


j'ai une autre question :

est-ce que les donn&#233;es sont en permanance accessible dans une base ?...Si c'est la cas on pourrait simplifier tes traitements.


madbob

madbob · Answer

Ca n'a ps l'air de te plaire des masses ?!?



Aidez-moi qu'ils disaient, aidez-moi...

Il sons fous ces gaulois...

valtrase · Answer

Je reprend le train en route prob avec le sp2 et la toile
As-tu r&#233;solu ton probl&#232;me ?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_guizmo59 · Answer

escuse mi mad bob de ne pas avoir donner de nouvelle avant mes je travail pas le mercredi et oui y'en s qui on de la chance ;)

je regarde sa de suite et je te dit coment sa se passe 

et si j'ai des pbs de comprehension ou lors de l'execution

en tout cas je te tire mon chapeau sa fait du bien d'avoir de l'aide 

sa change de la competition qu'on peux avoir en bts ou a la fac 

vive le partage de conaissance et l'entraide que cela dur toujours

cs_guizmo59 · Answer

voici le code qui fonctionne je tien a remercie tres fortement madbob qui s'est triturer les meninges pour aporter la solution sans lui et bien j'aurais pus chercher longtemps je le remercirais jamais assez Private Sub transfert() Dim vnomfeuille As String Dim vmatiere As String Dim vnummatiere As Integer Dim vnumeleve As Integer Dim vnomeleve As String Dim vprenomeleve As String Dim vnote As String Dim vsur As String Dim i As Integer Dim j As Integer Dim velevetraite As Integer Dim vmatieretraite As Integer Dim vnombreds(1 To 10) As Integer Dim vnombrenote As Integer 'Mémorise le nombre total de notes par élève Dim vCellule As String 'Mémorise le nom de la cellule de démarrage pour la feuille Test Dim vDecalage As Integer 'Mémorise le nombre de cellule à décaler pour mémoriser les informations Dim vClasse As String 'Mémorise le nom de la classe traitée Dim maformule As String Dim Cpt_Abs As Integer Worksheets("test").Activate Range("A2").Activate Do 'Initialisation du nombre de ds à 0 For i = 1 To 10 vnombreds(i) = 0 Next i vCellule = "A2" vnombrenote = 0 'offset permet le deplacement dans la feuille vClasse = ActiveCell.Value vnomfeuille = ActiveCell.Value & " " & ActiveCell.Offset(0, 8).Value If ActiveCell.Offset(0, 8).Value = "1" Then vnomfeuille = vnomfeuille & "ère période" Else vnomfeuille = vnomfeuille & "ème période" End If Worksheets(vnomfeuille).Activate Range("c1").Activate Worksheets("test").Activate velevetraite = ActiveCell.Offset(0, 9).Value Do vnummatiere = ActiveCell.Offset(0, 3).Value Select Case vnummatiere Case Is = 1 vmatiere = "LITTERATURE(Dire,Lire,Erire)" Case Is = 2 vmatiere = "OBSERVATION REFLECHIE DE LA LANGUE FRANCAISE Grammaire - Conjugaison - Ortographe - Vocabulaire " Case Is = 3 vmatiere = "HISTOIRE - GEOGRAPHIE" Case Is = 5 vmatiere = "MATHEMATIQUES" Case Is = 6 vmatiere = "SCIENCES EXPERIMENTALES ET TECHNOLOGIE" Case Else vmatiere = "" End Select Do vnombreds(vnummatiere) = vnombreds(vnummatiere) + 1 ActiveCell.Offset(1, 0).Activate Loop Until vnummatiere <> ActiveCell.Offset(0, 3).Value Or velevetraite <> ActiveCell.Offset(0, 9).Value vnombrenote = vnombrenote + vnombreds(vnummatiere) If vmatiere <> "" Then Worksheets(vnomfeuille).Activate ActiveCell.Value = vmatiere ActiveCell.Offset(0, vnombreds(vnummatiere) + 1).Activate Worksheets("test").Activate Else 'Mémorisation d'une valeur négative pour indiquer que cette matière n'est pas à traiter vnombreds(vnummatiere) = -vnombreds(vnummatiere) End If Loop Until velevetraite <> ActiveCell.Offset(0, 9).Value Worksheets(vnomfeuille).Activate ActiveCell.Value = "Total sur 100" ActiveCell.Offset(0, 1).Value = "Total sur 20" 'Retour au départ pour gérer la suite de l'entête Range("B2").Activate Worksheets("test").Activate Range(vCellule).Activate 'Ajouter dans cette boucle, une boucle qui gère selon les matières (à la fin de chaque matière il faut ajouter une colonne moyenne) en utilisant le tableau vnummatiere où on a mémorisé le nombre de notes par matière For vnummatiere = 1 To 10 'Pour chaque note de la matière For j = 1 To vnombreds(vnummatiere) i = 0 'Tant que la note est abs on passe à l'élève suivant pour la même matière While ActiveCell.Offset(i, 6).Value = "abs" i = i + vnombrenote Wend vsur = ActiveCell.Offset(i, 7).Value Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, 1).Activate ActiveCell.Value = vsur Worksheets("test").Activate ActiveCell.Offset(1, 0).Activate Next j 'Création de la colonne moyenne pour la matière If vnombreds(vnummatiere) > 0 Then Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, 1).Activate ActiveCell.Value = "Moy" Worksheets("test").Activate Else ActiveCell.Offset(-vnombreds(vnummatiere), 0).Activate End If Next vnummatiere 'Retour au départ pour gérer les élèves (avant on ne fait que créer les entêtes des colonnes) Worksheets(vnomfeuille).Activate Range("A3").Activate Worksheets("test").Activate Range(vCellule).Activate 'Mémorisation du nombre d'élèves traités pour se repositionner dans les formules et savoir si on doit griser ou pas la ligne velevetraite = 0 Do velevetraite = velevetraite + 1 vnomeleve = ActiveCell.Offset(0, 1).Value vprenomeleve = ActiveCell.Offset(0, 2).Value Worksheets(vnomfeuille).Activate ActiveCell.Value = vnomeleve ActiveCell.Offset(0, 1).Value = vprenomeleve 'Permet de connaître le décalage à faire pour la mémorisation des valeurs vDecalage = 2 Worksheets("test").Activate 'initialisation du compteur d'absence par matière et par éléve Cpt_Abs = 0 'Pour chaque matière For vnummatiere = 1 To 10 'Pour chaque ds de la matière For j = 1 To vnombreds(vnummatiere) vnote = ActiveCell.Offset(0, 6).Value Worksheets(vnomfeuille).Activate If vnote = "abs" Then 'Pour chaque matière on veut connaître le nombre d'absence Cpt_Abs = Cpt_Abs + 1 ActiveCell.Offset(0, vDecalage).Value = "" Else ActiveCell.Offset(0, vDecalage).Value = vnote End If vDecalage = vDecalage + 1 Worksheets("test").Activate ActiveCell.Offset(1, 0).Activate Next j 'Si la matière est traitée, mémorisation des formules en fin de matière If vnombreds(vnummatiere) > 0 Then 'Règle de gestion sur les absences 'pas d'absence (nombre de note - le compteur d'absence = nombre de note) If vnombreds(vnummatiere) - Cpt_Abs = vnombreds(vnummatiere) Then Worksheets(vnomfeuille).Activate maformule = "=AVERAGE((SUM(RC[" & -vnombreds(vnummatiere) & "]:RC[-1])/AVERAGE(SUM(R[" & -velevetraite & "]C[" & -vnombreds(vnummatiere) & "]:R[" & -velevetraite & "]C[-1])))*10)" '* Pas de note du tout => absent à tous les contrôles (=> le nombre de note s'anule avec le nombre s'absence) ElseIf vnombreds(vnummatiere) - Cpt_Abs = 0 Then maformule = """" '* n absence sur y contrôles => nouvelle formule Else '* la moyenne est calculée sur (les n valeurs sommées divisée par les n diviseur de la matière le tout ramené à 10 '* (Somme(Aj:Aj)/(Notesur* cpt_abs))*10 maformule = "=(SUM(RC[" & -vnombreds(vnummatiere) & "]:RC[-1]))/((R[" & -velevetraite & "]C[" & -vnombreds(vnummatiere) & "])*" & Cpt_Abs & ")*10" End If '* Mise à jour de la cellule Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, vDecalage).FormulaR1C1 = maformule vDecalage = vDecalage + 1 Worksheets("test").Activate Else ActiveCell.Offset(-vnombreds(vnummatiere), 0).Activate End If '* on réinitialise le compteur pour chaque nouveau traitement ! Cpt_Abs = 0 Next vnummatiere 'Mémorisation des formules en fin de ligne Worksheets(vnomfeuille).Activate ActiveCell.Offset(0, vDecalage).FormulaR1C1 = "somme" 'Mettre la formule pour calculer la somme de toutes les matières ActiveCell.Offset(0, vDecalage + 1).FormulaR1C1 = "sur 20" 'Mettre la formule pour ramener la somme sur 20 points ActiveCell.Offset(1, 0).Activate Worksheets("test").Activate Loop Until ActiveCell.Value <> vClasse Loop Until ActiveCell.Value = "" End Sub

madbob · Answer

madbob pas faché du tout madbob content Normalement sur le papier ça marche (c'est de l'algo), si j'ai correctement interprété le calcul de la moyenne. J'ai eu du mal à capter car des moyennes sur 12 que j'ai apellé diviseur de matière ne sont pas de ma génération... Tu peux encore améliorer tout ça sur au moins 2 axes :

Comme tu ne passes plus par le IF, tu peux certainement utiliser une écriture plus standard et moins chiante que R1C1

Le top du top c'est d'externaliser la règle de gestion dans une fonction qui retourne une string contenant la formule, ce qui facilitera la lisibilité et la maintenance du code. Ca apporte aussi de la robustesse...

Je te laisse réfléchir à tout ça car je sais que tu aimes trouver les solutions Au plaisir de te lire A+ madbob

adn28 · Answer

Bonjour,

je suis actuellement en stage et je suis dans la merde totale.

Et je voudrais savoir si y'en a un qui habite &#224; paris ou les alentours qui 
pourrait me developper un outil de chiffrage que je lui racheterais si possible
parske j'ai pas le choix il me reste que 3 semaines et si je le fait pas 
je perd tout ske j'ai fait, la formation.

Donc je vous fournirais tous les documents necessaires et je ferais 
aussi le d&#233;placement.

C'est pas une blague, je suis s&#233;rieux, c'est le des&#233;spoir qui parle.

Alors si quelqu'un est interess&#233;, il me fait signe.
car pour une personne qui ma&#238;trise excel et vba n'aurait pas de probleme
&#224; le faire.

Voil&#224;, pour + d'information vous pouvez me contacter aussi au 06.22.48.32.52
 ou sur mon adresse mail [mailto:prekse@hotmail.com prekse@hotmail.com] ou sur le forum.

merci

Un autre pb mais en vb excel

31 réponses

Discussions similaires