Bonjour à tous,
Voici mon petit souci, J'ai un fichier excel qui va évoluer dans le temps. Des colonnes devraient s'ajouter régulièrement et je souhaiterais pourvoir faire la maintenance dessus sans y passer des heures.
J'aimerai pouvoir créer une variable avec laquelle je pourrais rapidement modifier la valeur de la cellule affectée, pour que la maintenance du fichier ne soit pas trop lourde à gérer, si j'ajoute une colonne, je n'ai à modifier qu'une fois toutes les adresses et c'est dans la poche, tout est à jour
En gros :
MaVariable = Sheets(Feuil1).Range(A1) '=> je voudrais stocker la valeur de la case
MaVariable = 1 'A ce moment la, c'est la valeur de la cellule A1 qui change, pas ma variable
pour l'instant j'ai quelque chose comme ça :
Private Sub ToggleButton_RESERVE_SUR_TRAITEMENT_Click()
If ToggleButton_RESERVE_SUR_TRAITEMENT = True Then
Feuil2.Range("F2" ) = 1 '=>>>> Ici je voudrait une variable pour le feuil2.range
ToggleButton_DEGRAISSAGE = True
RESERVE_SUR_TRAITEMENT_DKP = "- Reserve sur traitement (DKP)" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("F2" ) = 0 '=>feuil2.range
ToggleButton_DEGRAISSAGE = False
RESERVE_SUR_TRAITEMENT_DKP = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
_______________________
Dim Lg As Single
Dim Ht As Single
Dim Fini As Boolean
'--------------------------------------------------------------recherche methode
Private Sub CommandButton1_Click()
If OptionButtonMPA = True Then
Dim Gamme As String
i = 2
While i < 10500
If Feuil2.Range("B2" ).Value = Feuil1.Range("C" & i).Value Then
'MsgBox Feuil1.Range("A" & i).Value
Gamme = Feuil1.Range("A" & i)
NOM_GAMME = Feuil1.Range("B" & i)
TextBox1 = Gamme
CAPTION_NOM_GAMME.Caption = NOM_GAMME
GoTo fin
Else
i = i + 1
End If
Wend
If Feuil2.Range("B2" ).Value <> Feuil2.Range("B" & i).Value Then
MsgBox "Aucun numéro de gamme n'est associé au déroulé opératoire sélectionné "
TextBox1 = "ERREUR"
End If
Else
i = 3
While i < 10500
If Feuil2.Range("B2" ).Value = Feuil2.Range("B" & i).Value Then
'MsgBox Feuil2.Range("A" & i).Value
Gamme = Feuil2.Range("A" & i)
TextBox1 = Gamme
GoTo fin
Else
i = i + 1
End If
Wend
If Feuil2.Range("B2" ).Value <> Feuil2.Range("B" & i).Value Then
MsgBox "Aucun numéro de gamme n'est associé au déroulé opératoire sélectionné "
TextBox1 = "ERREUR"
End If
End If
fin:
End Sub
Private Sub NOM_GAMME_Click()
End Sub
'--------------------------------------------------------------Button_click action
Private Sub resetButton_Click()
userform2.UserForm_Initialize
End Sub
Private Sub ToggleButton_RESERVE_DE_PEINTURE_ET_VERNIS_Click()
If ToggleButton_RESERVE_DE_PEINTURE_ET_VERNIS = True Then
Feuil2.Range("P2" ) = 1
RESERVE_DE_PEINTURE_ET_VERNIS_PRI = "- Reserve de peinture et Vernis (Pri)" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("P2" ) = 0
RESERVE_DE_PEINTURE_ET_VERNIS_PRI = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_PRIMAIRE_HYDRO_Click()
If ToggleButton_PRIMAIRE_HYDRO = True Then
Feuil2.Range("Q2" ) = 1
PRIMAIRE_HYDRO = "- Primaire Hydro" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("Q2" ) = 0
PRIMAIRE_HYDRO = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_RESERVEDE_PEINTURE_ET_VERNISFIN_Click()
If ToggleButton_RESERVEDE_PEINTURE_ET_VERNISFIN = True Then
Feuil2.Range("R2" ) = 1
RESERVE_DEPEINTURE_ET_VERNIS_Fin = "- Reserve de peinture et vernis (Fin)" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("R2" ) = 1
RESERVE_DEPEINTURE_ET_VERNIS_Fin = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_FINITION_HYDRO_Click()
If ToggleButton_FINITION_HYDRO = True Then
Feuil2.Range("S2" ) = 1
FINITION_HYDRO = "- Finition Hydro" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("S2" ) = 0
FINITION_HYDRO = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_DECACHAGE_Click()
If ToggleButton_DECACHAGE = True Then
Feuil2.Range("T2" ) = 1
DECACHAGE = "- Decachage" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("T2" ) = 0
DECACHAGE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_VERNIS_Click()
If ToggleButton_VERNIS = True Then
Feuil2.Range("W2" ) = 1
PEINTURE_DIVERS = "- Vernis" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("W2" ) = 0
PEINTURE_DIVERS = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_GRAISSAGE_HUILAGE_Click()
If ToggleButton_GRAISSAGE_HUILAGE = True Then
Feuil2.Range("X2" ) = 1
GRAISSAGE__HUILAGE = "- Graissage / Huilage" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("X2" ) = 0
GRAISSAGE__HUILAGE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_CONTROLE_FINAL_Click()
If ToggleButton_CONTROLE_FINAL = True Then
Feuil2.Range("Y2" ) = 1
CONTROLE_FINAL = "- Controle Final" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("Y2" ) = 0
CONTROLE_FINAL = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_EMBALLAGE_Click()
If ToggleButton_EMBALLAGE = True Then
Feuil2.Range("Z2" ) = 1
EMBALLAGE = "- Emballage" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("Z2" ) = 0
EMBALLAGE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_EXPEDITION_MPA_Click()
If ToggleButton_EXPEDITION_MPA = True Then
Feuil2.Range("AA2" ) = 1
EXPEDITION_MPA = "- Expedition MPA" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("AA2" ) = 0
EXPEDITION_MPA = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_MARQUAGE_ENCRE_Click()
If ToggleButton_MARQUAGE_ENCRE = True Then
Feuil2.Range("V2" ) = 1
MARQUAGE_ENCRE_SUR_PIECE_MACHINE = "- Marquage encre sur piece (Machine)" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
ToggleButton_MARQUAGE_ETIQUETTE.Enabled = False
Else
Feuil2.Range("V2" ) = 0
MARQUAGE_ENCRE_SUR_PIECE_MACHINE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
ToggleButton_MARQUAGE_ETIQUETTE.Enabled = True
End If
End Sub
Private Sub ToggleButton_PREPARATION_Click()
If ToggleButton_PREPARATION = True Then
Feuil2.Range("C2" ) = 1
PREPARATION = "- Preparation" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("C2" ) = 0
PREPARATION = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_MARQUAGE_ETIQUETTE_Click()
If ToggleButton_MARQUAGE_ETIQUETTE = True Then
Feuil2.Range("U2" ) = 1
ToggleButton_MARQUAGE_ENCRE.Enabled = False
ToggleButton_VERNIS.Enabled = False
MARQUAGE_ETIQUETTE = "- Marquage etiquette" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("U2" ) = 0
ToggleButton_MARQUAGE_ENCRE.Enabled = True
ToggleButton_VERNIS.Enabled = True
MARQUAGE_ETIQUETTE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_ALODINE_Click()
If ToggleButton_ALODINE = True Then
Feuil2.Range("L2" ) = 1
ToggleButton_OAS_NON_COLMATEE.Enabled = False
ToggleButton_TSA_NON_COLMATE.Enabled = False
ToggleButton_SABLAGE.Enabled = False
ToggleButton_OAS_INCOLORE.Enabled = False
ALODINE_1200 = "- ALODINE 1200" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("L2" ) = 0
ToggleButton_OAS_NON_COLMATEE.Enabled = True
ToggleButton_TSA_NON_COLMATE.Enabled = True
ToggleButton_SABLAGE.Enabled = True
ToggleButton_OAS_INCOLORE.Enabled = True
ALODINE_1200 = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_OAS_INCOLORE_Click()
If ToggleButton_OAS_INCOLORE = True Then
Feuil2.Range("M2" ) = 1
ToggleButton_OAS_NON_COLMATEE.Enabled = False
ToggleButton_TSA_NON_COLMATE.Enabled = False
ToggleButton_SABLAGE.Enabled = False
ToggleButton_ALODINE.Enabled = False
OAS_INCOLORE = "- OAS Incolore" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("M2" ) = 0
ToggleButton_OAS_NON_COLMATEE.Enabled = True
ToggleButton_TSA_NON_COLMATE.Enabled = True
ToggleButton_SABLAGE.Enabled = True
ToggleButton_ALODINE.Enabled = True
OAS_INCOLORE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_TSA_NON_COLMATE_Click()
If ToggleButton_TSA_NON_COLMATE = True Then
Feuil2.Range("N2" ) = 1
ToggleButton_OAS_NON_COLMATEE.Enabled = False
ToggleButton_OAS_INCOLORE.Enabled = False
ToggleButton_SABLAGE.Enabled = False
ToggleButton_ALODINE.Enabled = False
TSA_NON_COLMATE = "- TSA non colmatee" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("N2" ) = 0
ToggleButton_OAS_NON_COLMATEE.Enabled = True
ToggleButton_OAS_INCOLORE.Enabled = True
ToggleButton_SABLAGE.Enabled = True
ToggleButton_ALODINE.Enabled = True
TSA_NON_COLMATE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_OAS_NON_COLMATEE_Click()
If ToggleButton_OAS_NON_COLMATEE = True Then
Feuil2.Range("O2" ) = 1
ToggleButton_OAS_INCOLORE.Enabled = False
ToggleButton_TSA_NON_COLMATE.Enabled = False
ToggleButton_SABLAGE.Enabled = False
ToggleButton_ALODINE.Enabled = False
OAS_NON_COLMATEE = "- OAS non colmatee" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("O2" ) = 0
ToggleButton_OAS_INCOLORE.Enabled = True
ToggleButton_TSA_NON_COLMATE.Enabled = True
ToggleButton_SABLAGE.Enabled = True
ToggleButton_ALODINE.Enabled = True
OAS_NON_COLMATEE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_RESERVE_SUR_TRAITEMENT_Click()
If ToggleButton_RESERVE_SUR_TRAITEMENT = True Then
Feuil2.Range("F2" ) = 1
ToggleButton_DEGRAISSAGE = True
RESERVE_SUR_TRAITEMENT_DKP = "- Reserve sur traitement (DKP)" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("F2" ) = 0
ToggleButton_DEGRAISSAGE = False
RESERVE_SUR_TRAITEMENT_DKP = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_DEGRAISSAGE_CHIMIQUE_Click()
If ToggleButton_DEGRAISSAGE_CHIMIQUE = True Then
Feuil2.Range("E2" ) = 1
DEGRAISSAGE_CHIMIQUE = "- Degraissage Chimique" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("E2" ) = 0
DEGRAISSAGE_CHIMIQUE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_DEGRAISSAGE_Click()
If ToggleButton_DEGRAISSAGE = True Then
Feuil2.Range("D2" ) = 1
DEGRAISSAGE = "- Degrissage" + Chr(10)
TXT_GLOBAL = PREPARATION & DEGRAISSAGE & DEGRAISSAGE_CHIMIQUE & RESERVE_SUR_TRAITEMENT_DKP & DECAPAGE_CHIMIQUE_SUR_ALUMINIUM & DECAPAGE_TITANE & RESSUAGE_FLUORESCENT & RESERVE_SUR_TRAITEMENT_TS & SABLAGE & ALODINE_1200 & OAS_INCOLORE & TSA_NON_COLMATE & OAS_NON_COLMATEE & RESERVE_DE_PEINTURE_ET_VERNIS_PRI & PRIMAIRE_HYDRO & RESERVE_DEPEINTURE_ET_VERNIS_Fin & FINITION_HYDRO & DECACHAGE & MARQUAGE_ETIQUETTE & MARQUAGE_ENCRE_SUR_PIECE_MACHINE & PEINTURE_DIVERS & GRAISSAGE__HUILAGE & CONTROLE_FINAL & EMBALLAGE & EXPEDITION_MPA
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("D2" ) = 0
DEGRAISSAGE = ""
TXT_GLOBAL = PREPARATION & DEGRAISSAGE & DEGRAISSAGE_CHIMIQUE & RESERVE_SUR_TRAITEMENT_DKP & DECAPAGE_CHIMIQUE_SUR_ALUMINIUM & DECAPAGE_TITANE & RESSUAGE_FLUORESCENT & RESERVE_SUR_TRAITEMENT_TS & SABLAGE & ALODINE_1200 & OAS_INCOLORE & TSA_NON_COLMATE & OAS_NON_COLMATEE & RESERVE_DE_PEINTURE_ET_VERNIS_PRI & PRIMAIRE_HYDRO & RESERVE_DEPEINTURE_ET_VERNIS_Fin & FINITION_HYDRO & DECACHAGE & MARQUAGE_ETIQUETTE & MARQUAGE_ENCRE_SUR_PIECE_MACHINE & PEINTURE_DIVERS & GRAISSAGE__HUILAGE & CONTROLE_FINAL & EMBALLAGE & EXPEDITION_MPA
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_DECAPAGE_ALUMINIUM_Click()
If ToggleButton_DECAPAGE_ALUMINIUM = True Then
Feuil2.Range("G2" ) = 1
ToggleButton_RESSUAGE_FLUORESCENT = True
ToggleButton_DECAPAGE_TITANE.Enabled = False
DECAPAGE_CHIMIQUE_SUR_ALUMINIUM = "- Decapage chimique sur Aluminum" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("G2" ) = 0
ToggleButton_RESSUAGE_FLUORESCENT = False
ToggleButton_DECAPAGE_TITANE.Enabled = True
DECAPAGE_CHIMIQUE_SUR_ALUMINIUM = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_DECAPAGE_TITANE_Click()
If ToggleButton_DECAPAGE_TITANE = True Then
Feuil2.Range("H2" ) = 1
ToggleButton_RESSUAGE_FLUORESCENT = True
ToggleButton_DECAPAGE_ALUMINIUM.Enabled = False
DECAPAGE_TITANE = "- Decapage Titane" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("H2" ) = 0
ToggleButton_RESSUAGE_FLUORESCENT = False
ToggleButton_DECAPAGE_ALUMINIUM.Enabled = True
DECAPAGE_TITANE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_RESSUAGE_FLUORESCENT_Click()
If ToggleButton_RESSUAGE_FLUORESCENT = True Then
If ToggleButton_DECAPAGE_TITANE = False Then
If ToggleButton_DECAPAGE_ALUMINIUM = False Then
UserForm1.Show
End If
End If
Feuil2.Range("I2" ) = 1
RESSUAGE_FLUORESCENT = "- Ressuage Fluorescent" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("I2" ) = 0
ToggleButton_DECAPAGE_TITANE = False
ToggleButton_DECAPAGE_ALUMINIUM = False
RESSUAGE_FLUORESCENT = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_TS_Click()
If ToggleButton_TS = True Then
Feuil2.Range("J2" ) = 1
RESERVE_SUR_TRAITEMENT_TS = "- Reserve sur traitement (TS)" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("J2" ) = 0
RESERVE_SUR_TRAITEMENT_TS = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
Private Sub ToggleButton_SABLAGE_Click()
If ToggleButton_SABLAGE = True Then
Feuil2.Range("K2" ) = 1
ToggleButton_OAS_NON_COLMATEE.Enabled = False
ToggleButton_TSA_NON_COLMATE.Enabled = False
ToggleButton_ALODINE.Enabled = False
ToggleButton_OAS_INCOLORE.Enabled = False
SABLAGE = "- Sablage" + Chr(10)
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
Else
Feuil2.Range("K2" ) = 0
ToggleButton_OAS_NON_COLMATEE.Enabled = True
ToggleButton_TSA_NON_COLMATE.Enabled = True
ToggleButton_ALODINE.Enabled = True
ToggleButton_OAS_INCOLORE.Enabled = True
SABLAGE = ""
Debug.Print MAJ_TXT_GLOBAL()
Label_txt.Caption = TXT_GLOBAL
End If
End Sub
'-----------------------------------------------Declaration_initial_des cellules & button
Sub UserForm_Initialize()
'********************************************************************************** BOUTONS ENFFONCES AU DEPART
ToggleButton_CONTROLE_FINAL = True
ToggleButton_PREPARATION = True
ToggleButton_EXPEDITION_MPA = True
OptionButtonMPA = True
'********************************************************************************** BOUTON NON ENFONCES AU DEPART
ToggleButton_RESERVE_DE_PEINTURE_ET_VERNIS = False
ToggleButton_EMBALLAGE = False
ToggleButton_SABLAGE = False
ToggleButton_TS = False
ToggleButton_RESSUAGE_FLUORESCENT = False
ToggleButton_DECAPAGE_TITANE = False
ToggleButton_DECAPAGE_ALUMINIUM = False
ToggleButton_DEGRAISSAGE = False
ToggleButton_DEGRAISSAGE_CHIMIQUE = False
ToggleButton_RESERVE_SUR_TRAITEMENT = False
ToggleButton_OAS_NON_COLMATEE = False
ToggleButton_TSA_NON_COLMATE = False
ToggleButton_OAS_INCOLORE = False
ToggleButton_ALODINE = False
ToggleButton_MARQUAGE_ETIQUETTE = False
ToggleButton_MARQUAGE_ENCRE = False
ToggleButton_GRAISSAGE_HUILAGE = False
ToggleButton_VERNIS = False
ToggleButton_DECACHAGE = False
ToggleButton_FINITION_HYDRO = False
ToggleButton_RESERVEDE_PEINTURE_ET_VERNISFIN = False
ToggleButton_PRIMAIRE_HYDRO = False
ToggleButton_RESERVE_DE_PEINTURE_ET_VERNIS = False
TextBox1 = ""
'********************************************************************************** MISE à 0 DES VALEURS EN FONCTIONS DES BOUTONS
Feuil2.Range("C2" ) = 1
Feuil2.Range("D2" ) = 0
Feuil2.Range("E2" ) = 0
Feuil2.Range("F2" ) = 0
Feuil2.Range("G2" ) = 0
Feuil2.Range("H2" ) = 0
Feuil2.Range("I2" ) = 0
Feuil2.Range("J2" ) = 0
Feuil2.Range("K2" ) = 0
Feuil2.Range("L2" ) = 0
Feuil2.Range("M2" ) = 0
Feuil2.Range("N2" ) = 0
Feuil2.Range("O2" ) = 0
Feuil2.Range("P2" ) = 0
Feuil2.Range("Q2" ) = 0
Feuil2.Range("R2" ) = 0
Feuil2.Range("S2" ) = 0
Feuil2.Range("T2" ) = 0
Feuil2.Range("U2" ) = 0
Feuil2.Range("V2" ) = 0
Feuil2.Range("W2" ) = 0
Feuil2.Range("X2" ) = 0
Feuil2.Range("Y2" ) = 1
Feuil2.Range("Z2" ) = 0
Feuil2.Range("AA2" ) = 1
j = 0
'**********************************************************************************
InitMaxMin Me.Caption
Ht = Me.Height
Lg = Me.Width
'**********************************************************************************
DEGRAISSAGE = ""
DEGRAISSAGE_CHIMIQUE = ""
RESERVE_SUR_TRAITEMENT_DKP = ""
DECAPAGE_CHIMIQUE_SUR_ALUMINIUM = ""
DECAPAGE_TITANE = ""
RESSUAGE_FLUORESCENT = ""
RESERVE_SUR_TRAITEMENT_TS = ""
SABLAGE = ""
ALODINE_1200 = ""
OAS_INCOLORE = ""
TSA_NON_COLMATE = ""
OAS_NON_COLMATEE = ""
RESERVE_DE_PEINTURE_ET_VERNIS_PRI = ""
PRIMAIRE_HYDRO = ""
RESERVE_DEPEINTURE_ET_VERNIS_Fin = ""
FINITION_HYDRO = ""
DECACHAGE = ""
MARQUAGE_ETIQUETTE = ""
MARQUAGE_ENCRE_SUR_PIECE_MACHINE = ""
PEINTURE_DIVERS = ""
GRAISSAGE__HUILAGE = ""
TXT_GLOBAL = PREPARATION & DEGRAISSAGE & DEGRAISSAGE_CHIMIQUE & RESERVE_SUR_TRAITEMENT_DKP & DECAPAGE_CHIMIQUE_SUR_ALUMINIUM & DECAPAGE_TITANE & RESSUAGE_FLUORESCENT & RESERVE_SUR_TRAITEMENT_TS & SABLAGE & ALODINE_1200 & OAS_INCOLORE & TSA_NON_COLMATE & OAS_NON_COLMATEE & RESERVE_DE_PEINTURE_ET_VERNIS_PRI & PRIMAIRE_HYDRO & RESERVE_DEPEINTURE_ET_VERNIS_Fin & FINITION_HYDRO & DECACHAGE & MARQUAGE_ETIQUETTE & MARQUAGE_ENCRE_SUR_PIECE_MACHINE & PEINTURE_DIVERS & GRAISSAGE__HUILAGE & CONTROLE_FINAL & EMBALLAGE & EXPEDITION_MPA
Label_txt.Caption = TXT_GLOBAL
'**********************************************************************************
End Sub
Private Sub UserForm_Resize()
Dim RtL As Single, RtH As Single
If Me.Width < 300 Or Me.Height < 200 Or Fini Then Exit Sub
RtL = Me.Width / Lg
RtH = Me.Height / Ht
Me.Zoom = IIf(RtL < RtH, RtL, RtH) * 100
End Sub
Private Sub UserForm_Terminate()
Fini = True
End Sub
