Private Sub ForSup_Click()
'Regarde si for 2 est dèjà inscrit, si oui, alors regarde si for 3 est inscrit ... ect sinon annulation de l'action
If Sheets("Carnet de terrain").Range("B50") = "FOR 2 =" Then TESTF3 Else: InsertionFor2
End Sub
Sub TestF3()
If Sheets("Carnet de terrain").Range("B69") = "FOR 3 =" Then TestF4 Else: InsertionFor3
End Sub
Sub TestF4()
If Sheets("Carnet de terrain").Range("B88") = "FOR 4 =" Then TestF5 Else: InsertionFor3
End Sub
Private Sub ForageSupEXIT_Click()
Unload RajoutForage
Sheets("Carnet de terrain").Select
End Sub