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
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"
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 ?
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ées | Montant VLB | Nb de Mois | PREJUDICES ANNUELS | € | |
| A0 | 2019 | 8308 | 12 | 4931,32 | € |
| A1 | 2020 | 8394 | 12 | 4982,12 | € |
| A2 | 2022 | 8480 | 12 | 5033,43 | € |
| A3 | 2023 | 8567 | 12 | 5085,28 | € |
| A4 | 2023 | 8656 | 12 | 5137,65 | € |
| A5 | 2023 | 6 | 0,00 | € | |
| A6 | 2023 | 0 | 12 | 0,00 | € |
| A7 | 2023 | 0 | 12 | 0,00 | € |
| A8 | 3 | 0 | 12 | 0,00 | € |
| A9 | 3 | 0 | 12 | 0,00 | € |
| A10 | 3 | 0 | 12 | 0,00 | € |
| TOTAL des PERIODES | 25169,80 | € | |||
| MOYENNE | 2288,16 |
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 VLB | 8308 |
| Incrément TL | 1,03% |
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 ?
