Scribd
Importer
411 vues5 pages

Code

Le document présente une méthode de calcul des proportions de béton selon la formulation Dreux-Gorisse, nécessitant des paramètres d'entrée tels que la masse volumique des granulats et le dosage en ciment. Un exemple de code VBA pour Excel est fourni, permettant de calculer les volumes et masses de béton à partir de données saisies dans une feuille de calcul. Les résultats sont affichés dans des colonnes spécifiques, et des instructions sont données pour exécuter le code dans Excel.

Transféré par

Boris Fouotsa El Boris
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
411 vues5 pages

Code

Le document présente une méthode de calcul des proportions de béton selon la formulation Dreux-Gorisse, nécessitant des paramètres d'entrée tels que la masse volumique des granulats et le dosage en ciment. Un exemple de code VBA pour Excel est fourni, permettant de calculer les volumes et masses de béton à partir de données saisies dans une feuille de calcul. Les résultats sont affichés dans des colonnes spécifiques, et des instructions sont données pour exécuter le code dans Excel.

Transféré par

Boris Fouotsa El Boris
Copyright
© © All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Bien sûr !

Le calcul de la formulation Dreux-Gorisse (méthode utilisée en


béton pour calculer les proportions de granulats, sable, ciment, eau, etc.)
nécessite des paramètres d'entrée comme la masse volumique des
granulats, le dosage en ciment, la classe d'affaissement, etc.

Voici un exemple de code VBA pour Excel. Cette macro calcule les
proportions selon la méthode Dreux-Gorisse à partir d'une feuille Excel :

Structure de la feuille Excel

Colonnes d'entrée :

A : Masse volumique des granulats (kg/m³)

B : Masse volumique du sable (kg/m³)

C : Masse volumique du ciment (kg/m³)

D : Dosage en ciment (kg/m³)

E : Rapport eau/ciment (E/C)

F : Volume de béton (m³)

Colonnes de sortie :

G : Volume d'eau (L)

H : Masse de ciment (kg)


I : Masse de sable (kg)

J : Masse de granulats (kg)

Code VBA

Sub FormulationDreuxGorisse()

Dim ws As Worksheet

Dim lastRow As Long

Dim i As Long

Dim masseVolumiqueGranulats As Double

Dim masseVolumiqueSable As Double

Dim masseVolumiqueCiment As Double

Dim dosageCiment As Double

Dim rapportEauCiment As Double

Dim volumeBeton As Double

Dim volumeEau As Double

Dim masseCiment As Double

Dim masseSable As Double

Dim masseGranulats As Double

' Sélectionner la feuille active

Set ws = ActiveSheet

' Trouver la dernière ligne de données

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row


' Parcourir chaque ligne de données

For i = 2 To lastRow

' Lire les valeurs d'entrée

masseVolumiqueGranulats = ws.Cells(i, 1).Value

masseVolumiqueSable = ws.Cells(i, 2).Value

masseVolumiqueCiment = ws.Cells(i, 3).Value

dosageCiment = ws.Cells(i, 4).Value

rapportEauCiment = ws.Cells(i, 5).Value

volumeBeton = ws.Cells(i, 6).Value

' Calculer les volumes et masses

volumeEau = rapportEauCiment * dosageCiment

masseCiment = dosageCiment

masseSable = (volumeBeton - (masseCiment /


masseVolumiqueCiment) - (volumeEau / 1000)) * masseVolumiqueSable

masseGranulats = masseVolumiqueGranulats * (volumeBeton -


(masseCiment / masseVolumiqueCiment) - (volumeEau / 1000) -
(masseSable / masseVolumiqueSable))

' Écrire les résultats dans les colonnes de sortie

ws.Cells(i, 7).Value = volumeEau

ws.Cells(i, 8).Value = masseCiment

ws.Cells(i, 9).Value = masseSable

ws.Cells(i, 10).Value = masseGranulats

Next i

MsgBox "Calcul terminé !", vbInformation

End Sub
Instructions pour exécuter le code

1. Ouvrez Excel.

2. Appuyez sur Alt + F11 pour ouvrir l'éditeur VBA.

3. Dans l'éditeur, cliquez sur Insert > Module.

4. Collez le code ci-dessus dans le module.

5. Fermez l'éditeur VBA.

6. Dans Excel, appuyez sur Alt + F8, sélectionnez


FormulationDreuxGorisse, et cliquez sur Exécuter.

Notes

Veillez à remplir correctement les colonnes A à F avec les données


d'entrée.

Les résultats seront calculés dans les colonnes G à J.


Si vous avez besoin d'un ajustement ou d'une amélioration du script,
faites-le-moi savoir !

Vous aimerez peut-être aussi