1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
| Private Sub btncreer_Click()
Dim i As Integer
i = 1
While ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 1) <> ""
i = i + 1
Wend
If T_Ref.Value = "" Then
MsgBox "Veuillez completer le nom"
Else
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 1) = T_Ref
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 2) = T_Date
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 3) = T_Periode
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 4) = T_Secteur
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 5) = T_Motif
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 6) = T_Temps
ThisWorkbook.Sheets("BD TPS ARRET").Cells(i, 7) = T_Commentaire
MsgBox "Opération effectuée"
Unload Me
End If
End Sub
Private Sub btnmodifier_Click()
If T_Ref <> "" Then
Sheets("BD TPS ARRET").Range("A" & Label1.Caption).Value = T_Ref
MsgBox "Modification effectuer"
Unload Me
Else
MsgBox "Saisissez une ref"
Exit Sub
End If
End Sub
Private Sub btnrecherche_Click()
'------------------ OUVERTURE DE LA FEUILLE BD TPS ARRET
ThisWorkbook.Worksheets("BD TPS ARRET").visible = True
ThisWorkbook.Worksheets("BD TPS ARRET").Activate
' --- Dévérouillage feuille
Dim w As Worksheet
For Each w In ActiveWorkbook.Sheets
w.Unprotect Password:="pikachu"
Next
If T_Ref.Value = "" Then
MsgBox "Veuillez introduire une ref "
Exit Sub
End If
Set cel = Feuil1.Columns(1).Find(what:=T_Ref, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
MsgBox "Aucun résultat !" & Chr(10) & "Essayez à nouveau "
Unload Me
End If
End Sub |
Partager