Scribd
Importer
25 vues5 pages

Feuille Équipements

Transféré par

Willi Fopah
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
25 vues5 pages

Feuille Équipements

Transféré par

Willi Fopah
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

Sub RemplirEquipements()

Dim wsEquipements As Worksheet

' Référence à la feuille Équipements

Set wsEquipements = ThisWorkbook.Sheets("Équipements")

' Remplir la feuille Équipements

With wsEquipements

.Range("A2").Value = 1

.Range("B2").Value = "Pompier 1"

.Range("C2").Value = "Pompe principale"

.Range("D2").Value = "01/01/2020"

.Range("E2").Value = "Pompe"

.Range("F2").Value = "Pression"

.Range("G2").Value = 5

.Range("H2").Value = "Bar"

.Range("I2").Value = "Mensuelle"

.Range("J2").Value = "01/11/2024"

.Range("K2").Value = "Actif"

.Range("A3").Value = 2

.Range("B3").Value = "Compresseur 2"

.Range("C3").Value = "Compresseur d'air"

.Range("D3").Value = "15/03/2019"

.Range("E3").Value = "Compresseur"
.Range("F3").Value = "Débit"

.Range("G3").Value = 200

.Range("H3").Value = "L/min"

.Range("I3").Value = "Trimestrielle"

.Range("J3").Value = "15/12/2024"

.Range("K3").Value = "Actif"

.Range("A4").Value = 3

.Range("B4").Value = "Groupe électrogène"

.Range("C4").Value = "Énergie de secours"

.Range("D4").Value = "20/07/2021"

.Range("E4").Value = "Électrique"

.Range("F4").Value = "Tension"

.Range("G4").Value = 220

.Range("H4").Value = "V"

.Range("I4").Value = "Semestrielle"

.Range("J4").Value = "20/01/2025"

.Range("K4").Value = "Actif"

.Range("A5").Value = 4

.Range("B5").Value = "Vanne 3"

.Range("C5").Value = "Vanne de régulation"

.Range("D5").Value = "05/10/2022"

.Range("E5").Value = "Vanne"

.Range("F5").Value = "Température"
.Range("G5").Value = 80

.Range("H5").Value = "°C"

.Range("I5").Value = "Annuelle"

.Range("J5").Value = "05/10/2025"

.Range("K5").Value = "Actif"

.Range("A6").Value = 5

.Range("B6").Value = "Capteur de niveau"

.Range("C6").Value = "Capteur de niveau"

.Range("D6").Value = "12/12/2020"

.Range("E6").Value = "Capteur"

.Range("F6").Value = "Niveau"

.Range("G6").Value = 50

.Range("H6").Value = "%"

.Range("I6").Value = "Mensuelle"

.Range("J6").Value = "12/11/2024"

.Range("K6").Value = "Actif"

.Range("A7").Value = 6

.Range("B7").Value = "Filtre à huile"

.Range("C7").Value = "Filtre à huile"

.Range("D7").Value = "25/08/2019"

.Range("E7").Value = "Filtre"

.Range("F7").Value = "Pression"

.Range("G7").Value = 3
.Range("H7").Value = "Bar"

.Range("I7").Value = "Trimestrielle"

.Range("J7").Value = "25/11/2024"

.Range("K7").Value = "Actif"

.Range("A8").Value = 7

.Range("B8").Value = "Moteur électrique"

.Range("C8").Value = "Moteur principal"

.Range("D8").Value = "15/04/2021"

.Range("E8").Value = "Moteur"

.Range("F8").Value = "Vibration"

.Range("G8").Value = 1.5

.Range("H8").Value = "mm/s"

.Range("I8").Value = "Mensuelle"

.Range("J8").Value = "15/10/2024"

.Range("K8").Value = "Actif"

.Range("A9").Value = 8

.Range("B9").Value = "Système de refroidissement"

.Range("C9").Value = "Refroidisseur"

.Range("D9").Value = "10/02/2020"

.Range("E9").Value = "Système"

.Range("F9").Value = "Température"

.Range("G9").Value = 18

.Range("H9").Value = "°C"
.Range("I9").Value = "Semestrielle"

.Range("J9").Value = "10/08/2025"

.Range("K9").Value = "Actif"

.Range("A10").Value = 9

.Range("B10").Value = "Alarme incendie"

.Range("C10").Value = "Système d'alarme"

.Range("D10").Value = "30/01/2023"

.Range("E10").Value = "Alarme"

.Range("F10").Value = "Fonctionnement"

.Range("G10").Value = "N/A"

.Range("H10").Value = "N/A"

.Range("I10").Value = "Annuelle"

.Range("J10").Value = "30/01/2025"

.Range("K10").Value = "Actif"

End With

MsgBox "Les 10 premières lignes de la feuille Équipements ont été remplies avec succès !"

End Sub

Vous aimerez peut-être aussi