VBA Excel - programmation formules Résolu/Fermé

Question

Bonjour,

j'ai créé un programme sous VBA..

Je saisis une donnée numérique dans une boite message avec un numéro de dossier.
Le numéro de dossier saisi est recherché dans un tableau excel sur la deuxième feuille du classeur et sur la ligne de ce numéro est enregistrée la donnée numérique.
Concrétement : numéro de dossier colonne B, donnée numérique colonne H

Ce que je cherche à faire, et ce pourquoi j'aurai besoin d'aide :

Sur la même ligne je souhaiterai programmer une cellule qui fasse un calcul, une différence entre deux données numériques dans des cellules différentes mais toutes deux sur la ligne en question...
Concretement : dans la colonne N, résultat de la différence entre la valeur de la colonne H moins la valeur de la colonne G, le tout sur la même ligne.

Ensuite je souhaiterai pouvoir une moyenne numérique des données de la colonne N, et je souhaiterai afficher le résultat sur la première feuille.

c'est assez urgent, pour le boulot !! 

Merci par avance pour votre aide.

pilas31 · Answer

Bonjour,

Franchement, on peut t'aider pour le faire en VBA mais il me semble qu'à l'énoncé du problème, en créant trés simplement des formules dans les cellules par exemple dans la cellule N17 : =H17-G17
Puis, dans ta première feuille une formule du type : =MOYENNE(Feuil2!N:N)
On obtient le résultat,

Me dire si je me trompe.

marjorykwet · Answer

Merci pour ton aide, ta solution n'est pas totalement juste, pour avoir une moyenne exacte il faut utiliser dans la colonne N une formule conditionnelle...

c'est ce que j'ai fait en attendant... mais je souhaiterai tout de même pouvoir le faire sous VBA...

merki

pilas31 · Answer

D'accord,

Il faudrait stp que tu nous montre la partie de code ou tu veux insérer ce calcul et que tu précise la condition à respecter pour le calcul de la moyenne

merci

michel_m · Answer

Bonjour

ref est le dossier que tu saisis dans ta boite de message
sans gestion d'erreur si mauvaise saisie

lig=columns(2).find(ref,range("B65536"))

colonne N=14 H=8 G=7  à vérifier

cells(lig,14)=cells(lig,8)-cellls (lig,7)


Pour la moyenne
derlig=range("N65536").end(xlup).row
moyenne=application.average(range("N2:N"&derlig))

écris direct sans test

marjorykwet · Answer

Pour obtenir une moyenne cohérente, je ne dois pas avoir dans la colonne N des valeurs nulles ou négatives... alors j'ai mis comme condition d'effectuer le calcul uniquement si la valeur numérique de la colonne H est renseignée.

Je vous file mon bout de code qui permet la saisi de la valeur numérique, qui est une date :


Sub enregistrement()

Daterep.Hide

Sheets("Contacts").Select

Columns(2).Find(what:=Daterep.numerodossier1.Value).Activate

ActiveCell.Value = Daterep.numerodossier1

ActiveCell.Offset(0, 6).Range("A1").Select
ActiveCell.Value = Daterep.DateReponse
        
Range("A2").Select

Sheets("Enregistrement").Select

Unload Daterep

End Sub

michel_m · Answer

..."Pour obtenir une moyenne cohérente, je ne dois pas avoir dans la colonne N des valeurs nulles"...

N'importe quoi, les newbies!

Excusez moi d'avoir voulu aider

marjorykwet · Answer

Merci pour cette proposition de code très intéressante,

juste un truc que je ne comprend pas tout à fait... que signifie le "N65536"...

si tu peux juste me l'expliquer, ce serait parfait.

pilas31 · Answer

Je propose le code suivant pour le calcul de la moyenne




derlig = Range("N65536").End(xlUp).Row
SommeCalc = 0
NombreCalc = 0
For ILIG = 1 To derlig
    If Cells(ILIG, 14) <> "" And Cells(ILIG, 14) >= 0 Then
        NombreCalc = NombreCalc + 1
        SommeCalc = SommeCalc + Cells(ILIG, 14)
    End If
Next ILIG

'le résultat a mettre dans la cellule est SommeCalc/NombreCalc

marjorykwet · Answer

Merci bcp...

est-ce que quelqu'un aurait l'obligeance de me dire ce que signifie "N65536" ... ?

je vais le tester aussi, quelle est la différence avec le code proposé ci-dessus ?

merki

michel_m · Answer

Je ne suis pas assez pour te répondre

michel_m · Answer

Petite démo  montrant qu'il absurde de dire
.."Pour obtenir une moyenne cohérente, je ne dois pas avoir dans la colonne N des valeurs nulles"... 
https://www.cjoint.com/?lorwDuZPUH

les formules statistiques tiennent compte des cellules vides (ne pas confondre vide avec "")

c'est bien parce que c'est pour ton boulot et que...

marjorykwet · Answer

Tout à fait d'accord sur le fait que les formules tiennent compte des cellules vides, par contre ne tient pas compte des valeurs nulles, je précise des valeurs égales à 0....

michel_m · Answer

c'est a toi de gérer avant dans ta formule G2-H2 par ex, le résultat Zéro ou négatif

si tu utilises MoYENNE (AVERAGE en VBA), fonction statistique

tu pourrais écrire:
si(G2-H2<=0;"";G2-H2)

le "" ne sera  compté si tu calcules la moyenne en utilisant une fonction non statistique comme somme/NBVAL  par exemple
cette particularité t'évite d'avoir à écrire une boucle, d'où simplicité du code et rapidité d'exécution...

marjorykwet · Answer

Merci beaucoup pour la formule de la moyenne qui foncionne parfaitement, par contre c'est la formule de la différence qui ne passe pas...

elle ne calcule pas la différence... vous avez une idée ?

michel_m · Answer

en VBA

if (cells(lig,8)-cellls (lig,7))<=0 then
    cells(lig,14)=""
else
   cells(lig,14)=cells(lig,8)-cells(lig,7)
end if

marjorykwet · Answer

en fait le souci ne vient pas de la formule de la différence mais de la variable lig, elle ne retient pas le numéro de la ligne mais la ref...