XL 2013 programmation d'une feuille excel utilisée dans un calcul de préjudices sonores

Jean pascal

XLDnaute Nouveau
bonjour David

Je suis ingénieur expert en acoustique et en énergétique, il y a plus de 30 ans j'ai beaucoup travaillé avec TURBO BASIC un peu de C++ au cours de mes années CNAM

J'ai crée avec une formulation complexe un petit progiciel de calcul dans lequel maladroitement j'ai voulu insérer des boutons

Sur la 1ère feuille j'ai inséré un "RESET", mettant certaines cellules à "0" les datas, ainsi qu'un bouton "PRINT" effectuant l'impression de toutes les feuilles intermédiaires y.c les datas.

je suis arrêté par le VBA qui doit piloter les valeurs de cette feuille, plus exactement de ce tableau dans lequel j'ai des colonnes figés
AnnéesMontant VLBNb de MoisPREJUDICES ANNUELS
A020198308124931,32
A120208394124982,12
A220228480125033,43
A320238567125085,28
A420238656125137,65
A5202360,00
A620230120,00
A720230120,00
A830120,00
A930120,00
A1030120,00
TOTAL des PERIODES25169,80
MOYENNE2288,16
j'initialise avec un petit tableau qui va rechercher les valeurs dans les feuilles précédentes pour le montant VLB

pour l'année A0 et l'année An ce sont les variables qui doivent m'implémenter mon tableau en le dimensionnant entre A0 et An.
L'increment est une constante de calcul pour la colonne "montant VLB"
ANNEE A0 :2015
ANNEE An :2020
Montant VLB8308
Incrément TL1,03%
je souhaite creer un tableau de valeur qui ressortira à l'imprimante au final.


ce tableau dispose d'un nombre de colonnes constant mais de lignes variables.

En effet depuis la feuille de données j'envoie une valeur Montant VLB et je souhaite faire ressortir les éléments à savoir un tabvleau correctement dimensionné en fonction des valeurs A0 et An et le résultat global et la moyenne annuelle

Merci de ton aide
Voici le code que j'ai commencé à envisager mais qui ne tourne pas
Sub Bouton1_Cliquer()
'calcul global du préjudice sonore'
Style = vbYesNo + vbCritical + vbDefaultButton1
Title = "CALCUL PREJUDICES ACOUSTIQUES"
Réponse = MsgBox(Msg, Style, Title)
If Réponse = vbYes Then
GoTo continu
Else
Exit Sub
End If

continu:
Dim Col As Integer
Dim Deb As Integer, Fin As Integer, x As Integer
Dim Incr As Double

Col = Cells(J, 13).Value
Deb = Cells(K, 6).Value
Fin = Cells(K, 7).Value
Incr = 1

For x = Deb To Fin
Range(Col & x) = Range(Col & x) + Incr
Next x



End Sub

Désolé pour la longueur de mon message
peut etre souhaites tu que je t'envois mon fichier ?

merci pour ton aide

Cordialement

Jean pascal

NB : j'ai inséré à l'ouverture un code d'accès confidentiel . Comment te l'envoyer confidentiellement ?
 

Pièces jointes

  • Calcul Valorisation Préjudice Sonore V10-5 en test Janvier 2020 - 31-01-2020.xlsm
    112 KB · Affichages: 16

Jean pascal

XLDnaute Nouveau
bonjour

non pas seulement mais comme c'était mon 1er interlocuteur

ma problématique est que ce calcul est unique, j'ai mis des verrous sur les modalités de calculs
car il n'existe rien actuellement
j'envisage de déposer un copyright.
Voila ma demande concerne une certaine accessibilité par des modes conversationnels simples à l'aide de boutons .
voila pourquoi mon progiciel est verrouillé.
Si tu peux m'aider simplement tu es bien sur le bienvenu
Jean pascal
 

Discussions similaires

Statistiques des forums

Discussions
313 274
Messages
2 096 753
Membres
106 738
dernier inscrit
Lacbus