Option Explicit
Private Sub CommandButton2_Click()
Dim N1 As Long
'Comme les lignes de codes ci-dessous sont dans le module de la feuille
'Relevés, le mot 'ME' représente la feuille elle-même
With Sheets("Température eau aéros")
N1 = .Range("A1048576").End(xlUp).Row + 1
.Range("A" & N1).Value = Me.Range("A3").Value 'Date
.Range("B" & N1).Value = Me.Range("E9").Value 'aller
.Range("C" & N1).Value = Me.Range("E10").Value 'retour
End With
With Sheets("Fioul")
N1 = .Range("A1048576").End(xlUp).Row + 1
.Range("A1048576").End(xlUp).Row 1
.Range("A" & N1).Value = Me.Range("A3").Value 'Date
.Range("C" & N1).Value = Me.Range("E6").Value 'Quantité de fioul
End With
If Me.Range("B6") <> "" Then
With Sheets("Compteurs")
N1 = .Range("A" & N1).Value = Me.Range("A3").Value 'Date
.Range("C" & N1).Value = Me.Range("B6").Value 'Général CGE
.Range("D" & N1).Value = Me.Range("B12").Value 'Compteur débit vapeur cumulée
.Range("E" & N1).Value = Me.Range("B13").Value 'Compteur d'eau adoucie alimentation chaudière
.Range("F" & N1).Value = Me.Range("B14").Value 'Compteur alimentation eau de ville bâche chaudière
.Range("G" & N1).Value = Me.Range("B15").Value 'Compteur de purge eau de surface chaudière
.Range("K" & N1).Value = Me.Range("B17").Value 'Compteur eau Aéros
.Range("H" & N1).Value = Me.Range("B19").Value 'Compteur alimentation eau de ville vers forage
.Range("I" & N1).Value = Me.Range("B20").Value 'Compteur alimentation eau brut
.Range("J" & N1).Value = Me.Range("B21").Value 'Compteur eau de forage vers usine
End With
With Sheets("Traitement aéro")
N1 = .Range("A1048576").End(xlUp).Row + 1
.Range("A" & N1).Value = Me.Range("A3").Value 'Date
.Range("D" & N1).Value = Me.Range("B9").Value 'Bezcal 100
.Range("F" & N1).Value = Me.Range("B10").Value 'Biocide
End With
End If
'Pour vider les cellules une fois les données validées
Me.Range("B6,B9,B10,B12B:15,B17,B19:21,E6,E9:E10").Value = ""
End Sub
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub