Sub Valide_modif()
' Macro enregistrée le 30/11/05 par S574180
'Contrôle des champs de saisie obligatoires
Application.ScreenUpdating = False
Sheets("modifications").Select
If IsEmpty(Range("B4")) Then
MsgBox "Numéro de police manquant"
Exit Sub
End If
If IsEmpty(Range("E3")) Then
MsgBox "ETAT MANQUANT"
Exit Sub
End If
If IsEmpty(Range("B5")) Then
MsgBox "Nom client manquant"
Exit Sub
End If
If IsEmpty(Range("B7")) Then
MsgBox "Nom courtier manquant"
Exit Sub
End If
If IsEmpty(Range("B9")) Then
MsgBox "Type de Garantie manquant"
Exit Sub
End If
If IsEmpty(Range("B10")) Then
MsgBox "Matériel assuré manquant"
Exit Sub
End If
If IsEmpty(Range("B27")) Then
MsgBox "Prime TTC Pa025 manquante"
Exit Sub
End If
If Range("E20").Value = "Date d'effet" Then
If IsEmpty(Range("F20")) Then
MsgBox "Date d'effet manquante"
Exit Sub
End If
Else
If IsEmpty(Range("F20")) Then
MsgBox "Date de début des travaux manquante"
Exit Sub
End If
End If
If Range("E21").Value = "Date prévis°lle réception" Then
If IsEmpty(Range("F21")) Then
MsgBox "Date prévisionnelle de reception des travaux manquante"
Exit Sub
End If
End If
If Range("A20").Value = "Echéance" Then
If IsEmpty(Range("B20")) Then
MsgBox "Echéance manquante"
Exit Sub
End If
End If
If IsEmpty(Range("B2")) Then
MsgBox "Date de création manquante"
Exit Sub
End If
If IsEmpty(Range("B3")) Then
MsgBox "Date de modification manquante"
Exit Sub
End If
If IsEmpty(Range("B39")) Then
MsgBox "Résumé Garanties manquant"
Exit Sub
End If
If Range("A21").Value = "Préavis" Then
If IsEmpty(Range("B21")) Then
MsgBox "Préavis manquant"
Exit Sub
End If
End If
'champs en majuscule
Range("B5") = UCase(Range("B5"))
Range("B7") = UCase(Range("B7"))
Sheets("modifications").Select
'orientation en fonction de la modifictation de l'Etat du contrat
If Range("N3").Value = Range("M3").Value Then
'orientation base de données fonction Résils ou non
If Range("E3").Value = "EN COURS" Then
'Copie des données de la feuille Stock vers la feuille Données.
'On remplace les infos enregistrées précedemment par les nouvelles.
Sheets("Données").Select
ActiveSheet.Unprotect
Sheets("Stock").Select
Range("A5:BU5").Select
Selection.Copy
Sheets("Données").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Màjlist_inter
'On reprend les champs renseignés dans la Fiche que l'on veut modifier.
Sheets("modifications").Select
ActiveSheet.Unprotect
feuille_modif
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Données").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("b2").Select
Else
If Range("E3").Value = "A L' ETUDE" Then
Sheets("Données études").Select
ActiveSheet.Unprotect
Sheets("Stock").Select
Range("A5:BU5").Select
Selection.Copy
Sheets("Données études").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Màjlist_inter
'On reprend les champs renseignés dans la Fiche que l'on veut modifier.
Sheets("modifications").Select
ActiveSheet.Unprotect
feuille_modif
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Données études").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("b2").Select
Else
Sheets("Données résils").Select
ActiveSheet.Unprotect
Sheets("Stock").Select
Range("A5:BU5").Select
Selection.Copy
Sheets("Données résils").Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone
Màjlist_inter
'On reprend les champs renseignés dans la Fiche que l'on veut modifier.
Sheets("modifications").Select
ActiveSheet.Unprotect
feuille_modif
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Données résils").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("b2").Select
End If
End If
Else
'orientation base de données fonction Résils , étude, ou En cours
If Range("E3").Value = "EN COURS" Then
'Enregistrement de la fiche dans la base (feuille Données)
Sheets("Données").Select
If IsEmpty(Range("B3")) Then
Sheets("Données").Select
ActiveSheet.Unprotect
Sheets("Stock").Select
Range("A5:BU5").Select
Selection.Copy
Sheets("Données").Range("B1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Màjlist_inter
Sheets("Données").Select
Range("a1").Select
Else
Sheets("Données").Select
ActiveSheet.Unprotect
Sheets("Stock").Select
Range("A5:BU5").Select
Selection.Copy
Sheets("Données").Range("B2").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Màjlist_inter
Sheets("Données").Select
Range("a1").Select
End If
Sheets("modifications").Select
'On efface la fiche précédente de la base de données
If Range("N3").Value = "EN COURS" Then
Sheets("Données").Select
ActiveSheet.Unprotect
Sheets("Données").Select
ActiveCell.Select
Selection.EntireRow.Delete
tri_num
Range("A1").Select
Else
