... code existant
If TBX1 = "" Then
MsgBox "La Désignations ne peut pas être vide, veuillez compléter", vbCritical, "Invalide"
Exit Sub
End If
'********* début modif
With Worksheets("GROS OEUVRE MACONNERIE")
TrouveLig = False
For I = LigIni To Lg - 1
If .Cells(I, 2) = TBX1.Value Then
TrouveLig = True
Exit For
End If
Next
If TrouveLig Then
Rep = MsgBox("Ce composant existe Déjà." & Chr(13) & _
"Modifier les valeur ?", vbYesNo + vbInformation, "Information !")
If Rep = vbNo Then Exit Sub
Else
Rep = MsgBox("Ce composant n'existe pas." & Chr(13) & _
"Le rajouter ?", vbYesNo + vbInformation, "Information !")
If Rep = vbNo Then
Exit Sub
Else
.Rows(I).Insert Shift:=xlUp
End If
End If
.Cells(I, 2) = TBX1.Value
.Cells(I, 2).Offset(0, 1).Value = TBX2.Value
.Cells(I, 2).Offset(0, 2).Value = CDbl(TBX3.Value)
.Cells(I, 2).Offset(0, 3).Value = CDbl(TBX4.Value)
.Cells(I, 2).Offset(0, 4).Value = CDbl(TBX5.Value)
.Cells(I, 2).Offset(0, 4).Font.ColorIndex = 3
.Cells(I, 2).Offset(0, 4).Font.Bold = True
.Cells(I, 2).Offset(0, 7).Value = "Modifié le " & Format(Date, "dd/mm/yyyy") & " à " & Format(Now, "hh:mm:ss") 'Format(Date, "dd/mm/yy")
On Error Resume Next
.Cells(I, 2).Offset(0, 5).Value = CDbl(TBX6.Value)
.Cells(I, 2).Offset(0, 6).Value = CDbl(TBX7.Value)
End With
If TrouveLig Then
MsgBox "Ce composant a été modifié "
Else
MsgBox "Ce composant a été ajouté "
End If
'*************** fin modif
Application.ScreenUpdating = True
For Each WS In ThisWorkbook.Worksheets
...... suite du code