Bonjour à tous,
Alors voila, J' ai un programme pricipal qui ne fait que appeller des sous programmes, ma première tentative qui fonctionne a été de mettre la variable public y à 0 par defaut et à 1 si j ai un problème dans un sous programme ou que j annule le déroulement de mon sub. Je controlais à chaque retour dans mon main la valeur de Y.
Comme j ai pas mal de sub, j'ai voulu essayer de mettre on y=1 goto 999 mais cela na fonctionne pas.
Mon Y est setter à 0 dans mon premier sub, car si je mettais y=0 dans le main, meme si je disais y=1 dans un sub, au retour dans le main, y était resté à 0.
Ma première solution fonctionne mais cela serai plus propre si je disais dès le debut du principal : si y=1 alors on sauve et on quitte !
Mon principal :
Merci d avance
Alors voila, J' ai un programme pricipal qui ne fait que appeller des sous programmes, ma première tentative qui fonctionne a été de mettre la variable public y à 0 par defaut et à 1 si j ai un problème dans un sous programme ou que j annule le déroulement de mon sub. Je controlais à chaque retour dans mon main la valeur de Y.
Comme j ai pas mal de sub, j'ai voulu essayer de mettre on y=1 goto 999 mais cela na fonctionne pas.
Mon Y est setter à 0 dans mon premier sub, car si je mettais y=0 dans le main, meme si je disais y=1 dans un sub, au retour dans le main, y était resté à 0.
Ma première solution fonctionne mais cela serai plus propre si je disais dès le debut du principal : si y=1 alors on sauve et on quitte !
Mon principal :
Code:
Sub Scan()
Dim cdt As String
Dim typ As String
Dim celluletrouvee As Range
Dim Ligne As Integer
Dim Col As Integer
Dim ncadre As Integer
Dim p As Integer
Dim message As String
nametest = ActiveWorkbook.Name
On y = 1 GoTo 999
'recherche du numéro d agrès
Call nagreauto
' scanner le type d agrès
Call typcdt
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
'flasher les menuiseries
Call flasher
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
'ranger les codes barres
Call ranger_codes_barres
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
' End If
'décomposer les codes barres
Call Position
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
'trier et entrer les valeurs de codes barres
Call trier
'Ajouter le nom et la semaine
Call ImporterDonnees
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
'nombre de menuiseries totales hors PS
Call nbr_menuiseries
'nombre d'objet sur le conditionnement
Call nbrtotal
Call etatag
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
place = MsgBox("Connaissez vous le numero de la zone de stockage ?", vbYesNo + vbCritical, "Emplacement")
'If place = vbNo Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
'entrer l'emplacement de stockage
Call emplacement
'If y = 1 Then
'Call tempsave
'Call Sauvegarde
'Exit Sub
'End If
'entrer les initiales du manutentionnaire
Call initial
fini = MsgBox("Voulez vous ajouter des remarques à l'une des commandes de l'agrès (absence PS, ou soldé) ?", vbExclamation + vbYesNo)
'If fini = vbYes Then
'Call Sauvegarde
'Exit Sub
'End If
'ranger les infos dans la base de données
Call ajoutdb
'sauvgarder le fichier
Call Sauvegarde
'remise a zero
Call remise_a_zero
999
If y = 1 Then
Call tempsave
Call Sauvegarde
End If
End Sub
Merci d avance