Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2793 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Modification cellule déclaré dans une variable

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Modification cellule déclaré dans une variable

n°2314136
aboudi35
Posté le 18-04-2018 à 18:05:41  profilanswer
 

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
 
 
 

mood
Publicité
Posté le 18-04-2018 à 18:05:41  profilanswer
 

n°2314195
aboudi35
Posté le 20-04-2018 à 11:03:35  profilanswer
 

Bonjour à tous,  
La solution la plus simple était de déclarer les cellules en question dans le classeur
Par exemple : A1  => on la déclare comme "TEST",  
Puis : Range("TEST" ).Value = "TESTTESTTEST"
Dans ce cas, la valeur de la cellule est bien modifiée.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Modification cellule déclaré dans une variable

 

Sujets relatifs
Variable tableau dans module de classeRecopier une ligne dans une cellule active
Comment affecter une valeur quelconque à une variable?[JS]Traitement d'une variable pouvant être un tableau ou pas
Modification de code sur fichier .xspf de VLC 3.0Recherche de cellule en fonction d'un texte donné.
Modifier valeur cellule Excel en VBA Accessespace entre cellule
problème avec variable à contenu "complexe"Vérifier si variable existe dans la base de donnée
Plus de sujets relatifs à : Modification cellule déclaré dans une variable


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR