Mettre une commande dans un module

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
F
Floo73
Membre habitué
Membre habitué
Messages : 67
Inscrit le : 15 novembre 2013
Version d'Excel : 2010

Message par Floo73 » 11 mars 2014, 09:43

Bonjour à tous,

J'ai plusieurs boutons qui font la même action donc j'ai décidé de créer un module mais ca ne marche pas, car j'ai des multipage qui doivent s'afficher et j'avais codé une commande "Me. ..." donc ca me met une erreur.

Voici le code que je voudrais exporter vers un module :
Public Sub CBu1_Click()

   'Bouton : cliquer pour passer aux résultats (calcul si des côtes sont hors tolérances et donne le nombre de côtes HT)

   
'____________________________________________________________

'____________________ Partie Décision _______________________

'____________________________________________________________
          

    Sheets("Plan_controle").Select

        'Valeurs des limites supérieures
 
            LB21 = Range("B11").Value
            LB22 = Range("C11").Value
            LB23 = Range("D11").Value
            LB24 = Range("E11").Value
            LB25 = Range("F11").Value
            LB26 = Range("G11").Value
            LB27 = Range("H11").Value
            LB28 = Range("I11").Value
            LB29 = Range("J11").Value
            LB30 = Range("K11").Value

        'Valeurs des limites inférieures

            LB31 = Range("B12").Value
            LB32 = Range("C12").Value
            LB33 = Range("D12").Value
            LB34 = Range("E12").Value
            LB35 = Range("F12").Value
            LB36 = Range("G12").Value
            LB37 = Range("H12").Value
            LB38 = Range("I12").Value
            LB39 = Range("J12").Value
            LB40 = Range("K12").Value
          
        'Me.MultiPage1.Pages(8).Visible = True
        MultiPage1.Pages(8).Visible = True
        MultiPage1.Value = 8
        Frame17.Visible = True
        Frame19.Visible = True
        
        
    'Aide à la décision pour la caractéristique C1
    
    Dim i As Integer
          
    LB51 = 0
    
    For i = 1 To 791 Step 10 'Pour i allant de la TB1, TB11, TB21 ... à la TB791

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB51 = Val(LB51) + 1

            Case Is < LB31 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB51 = Val(LB51) + 1

            Case Is > LB21 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB51 = Val(LB51) + 1

            End Select

        Else
        
            LB51 = Val(LB51)
            
        End If

    Next
    
    'Aide à la décision pour la caractéristique C2
          
    LB52 = 0
    
    For i = 2 To 792 Step 10 'Pour i allant de la TB2, TB12, TB22 ... à la TB792

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB52 = Val(LB52) + 1

            Case Is < LB32 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB52 = Val(LB52) + 1

            Case Is > LB22 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB52 = Val(LB52) + 1

            End Select

        Else
        
            LB52 = Val(LB52)
            
        End If

    Next
    
    'Aide à la décision pour la caractéristique C3
          
    LB53 = 0
    
    For i = 3 To 793 Step 10 'Pour i allant de la TB3, TB13, TB23 ... à la TB793

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB53 = Val(LB53) + 1

            Case Is < LB33 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB53 = Val(LB53) + 1

            Case Is > LB23 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB53 = Val(LB53) + 1

            End Select

        Else
        
            LB53 = Val(LB53)
            
        End If

    Next
    
    'Aide à la décision pour la caractéristique C4
          
    LB54 = 0
    
    For i = 4 To 794 Step 10 'Pour i allant de la TB4, TB14, TB24 ... à la TB794

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB54 = Val(LB54) + 1

            Case Is < LB34 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB54 = Val(LB54) + 1

            Case Is > LB24 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB54 = Val(LB54) + 1

            End Select

        Else
        
            LB54 = Val(LB54)
            
        End If

    Next

    'Aide à la décision pour la caractéristique C5
          
    LB55 = 0
    
    For i = 5 To 795 Step 10 'Pour i allant de la TB5, TB15, TB25 ... à la TB795

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB55 = Val(LB55) + 1

            Case Is < LB35 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB55 = Val(LB55) + 1

            Case Is > LB25 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB55 = Val(LB55) + 1

            End Select

        Else
        
            LB55 = Val(LB55)
            
        End If

    Next

    'Aide à la décision pour la caractéristique C6
          
    LB56 = 0
    
    For i = 6 To 796 Step 10 'Pour i allant de la TB6, TB16, TB26 ... à la TB796

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB56 = Val(LB56) + 1

            Case Is < LB36 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB56 = Val(LB56) + 1

            Case Is > LB26 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB56 = Val(LB56) + 1

            End Select

        Else
        
            LB56 = Val(LB56)
            
        End If

    Next

    'Aide à la décision pour la caractéristique C7
          
    LB57 = 0
    
    For i = 7 To 797 Step 10 'Pour i allant de la TB7, TB17, TB27 ... à la TB797

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB57 = Val(LB57) + 1

            Case Is < LB37 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB57 = Val(LB57) + 1

            Case Is > LB27 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB57 = Val(LB57) + 1

            End Select

        Else
        
            LB57 = Val(LB57)
            
        End If

    Next
    
    
    'Aide à la décision pour la caractéristique C8
          
    LB58 = 0
    
    For i = 8 To 798 Step 10 'Pour i allant de la TB8, TB18, TB28 ... à la TB798

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB58 = Val(LB58) + 1

            Case Is < LB38 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB58 = Val(LB58) + 1

            Case Is > LB28 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB58 = Val(LB58) + 1

            End Select

        Else
        
            LB58 = Val(LB58)
            
        End If

    Next
    
    'Aide à la décision pour la caractéristique C9
          
    LB59 = 0
    
    For i = 9 To 799 Step 10 'Pour i allant de la TB9, TB19, TB29 ... à la TB799

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB59 = Val(LB59) + 1

            Case Is < LB39 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB59 = Val(LB59) + 1

            Case Is > LB29 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB59 = Val(LB59) + 1

            End Select

        Else
        
            LB59 = Val(LB59)
            
        End If

    Next
    
    'Aide à la décision pour la caractéristique C10
          
    LB60 = 0
    
    For i = 10 To 800 Step 10 'Pour i allant de la TB10, TB20, TB30 ... à la TB800

       If Saisie_Form.Controls("TB" & i).Value <> "" Then
        
            Select Case Saisie_Form.Controls("TB" & i).Value
 
            Case "non", "NON", "Non", "NC" 'Si un "non" est inscrit dans la TextBox

                LB60 = Val(LB60) + 1

            Case Is < LB40 'Si la valeur de la TextBox est inférieure à la tolérance inférieur
 
                LB60 = Val(LB60) + 1

            Case Is > LB30 'Si la valeur de la TextBox est supérieure à la tolérance supérieure

                LB60 = Val(LB60) + 1

            End Select

        Else
        
            LB60 = Val(LB60)
            
        End If

    Next

   
End Sub
Merci d'avance pour votre aide,

Bonne journée,

Cdlt,
F
Floo73
Membre habitué
Membre habitué
Messages : 67
Inscrit le : 15 novembre 2013
Version d'Excel : 2010

Message par Floo73 » 18 mars 2014, 12:14

Up !

Je n'ai toujours pas trouvé de solutions et ça alourdit mon code en conséquence ...

Merci d'avance à celui qui aura une solution ! :idea:

Bon aprèm,
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message