Condition IF, then, else ?????

[francois01]

Bonjour à tous,

Ci-joint le code suivant qui est sensé démarrer lorsque je clique certains boutons dans un USF, mais ça bug ? (partie rouge)

Qq1 aurait-il une idée ?

Merci d'avance

(InsertionFor3, InsertionFor4 ... étant des macros)

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 GoTo TESTF3 Else: InsertionFor2
End Sub

Sub TestF3()
If Sheets("Carnet de terrain").Range("B69") = "FOR 3 =" Then GoTo TestF4 Else: InsertionFor3
End Sub

Sub TestF4()
If Sheets("Carnet de terrain").Range("B88") = "FOR 4 =" Then GoTo TestF5 Else: InsertionFor3
End Sub

Private Sub ForageSupEXIT_Click()
Unload RajoutForage
Sheets("Carnet de terrain").Select
End Sub

 

[Grand Chaman Excel]

Re : Condition IF, then, else ?????

Bonjour,
Je crois que tu ne dois mettre de GoTo, simplement :

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

A+

 

[roro69]

Re : Condition IF, then, else ?????

Bonsoir
Pourquoi goto et pas tous simplement appelé la procédure comme ceci:

If Sheets("Carnet de terrain").Range("B50") = "FOR 2 =" Then TESTF3 Else: InsertionFor2