Bonjour nizar2015, le forum,
A tester...code du bouton
Private Sub VALIDER_Click()
Dim derlig%, ws As Worksheet
Set ws = Sheets("Sheet1")
With Sheets("Sheet2")
derlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
If MsgBox("Confirmez-vous la saisie ?", vbYesNo, "Demande de confirmation") = vbYes Then
.Cells(derlig, 1) = ws.Range("E4"): .Cells(derlig, 1).NumberFormat = "0" '...................................n° classe
.Cells(derlig, 2) = ws.Range("G4") '.........................................................................demande
.Cells(derlig, 3) = ws.Range("G6"): .Cells(derlig, 3).NumberFormat = "m/d/yyyy" '............................date
.Cells(derlig, 4) = ws.Range("G8") '.........................................................................nom de STE
.Cells(derlig, 5) = ws.Range("G10"): .Cells(derlig, 5).NumberFormat = "0" '..................................N°
.Cells(derlig, 6) = ws.Range("G12") '........................................................................NOM
.Cells(derlig, 7) = ws.Range("G14"): .Cells(derlig, 7).NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" '.....N° Tél.
.Cells(derlig, 8) = ws.Range("G16") '........................................................................Email
.Cells(derlig, 9) = ws.Range("G18") '........................................................................Type
.Cells(derlig, 10) = ws.Range("G20"): .Cells(derlig, 10).NumberFormat = "0" '...............................Nombre
.Cells(derlig, 11) = ws.Range("I4"): .Cells(derlig, 11).NumberFormat = "m/d/yyyy" '..........................Date Vérif.
.Cells(derlig, 12) = ws.Range("I6"): .Cells(derlig, 12).NumberFormat = "h:mm;@" '............................Heure
.Cells(derlig, 13) = ws.Range("I10") '.......................................................................CC
.Cells(derlig, 14) = ws.Range("I12") '.......................................................................Adresse
.Cells(derlig, 15) = ws.Range("K4"): .Cells(derlig, 15).NumberFormat = "m/d/yyyy" '.........................Date FERM
.Cells(derlig, 16) = ws.Range("K10") '.......................................................................BCC
.Cells(derlig, 17) = ws.Range("K12") '.......................................................................GOV
.Cells(derlig, 18) = ws.Range("K14") '.......................................................................CITY
MsgBox "Données enregistrées"
ws.Range("E4,G4,G6,G8,G10,G12,G14,G16,G18,G20,I4,I6,I10,I12,K4,K10,K12,K14").ClearContents
End If
End With
End Sub
Cordialement,