USF long a charger

creolia

XLDnaute Impliqué
bonjour a tous je viens soliciter vos lumiere

j'ai un USF qui est long à ce lancer Aprés une petite recherche cela viendrais de userform initialisation et de mes comboboxlist dont j'en est fais une copie ici quelqu'un pourait il m'aider ou m'expliquer comment faire pour qu'il soit un peut plus rapide svp merci a vous


Code:
Private Sub UserForm_Initialize()

Dim cell As Range
With Sheets("DONNEE")
    For Each cell In .Range("A8:A" & .Range("A65536").End(xlUp).Row)
        ComboB.AddItem (cell.Offset(0, 1))
        ComboA.AddItem (cell)
        ComboC.AddItem (cell.Offset(0, 2))
          
           ComboBox31.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
             ComboBox32.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
              ComboBox33.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
               ComboBox34.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                ComboBox35.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                 ComboBox36.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                  ComboBox37.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                   ComboBox38.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                    ComboBox39.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                     ComboBox40.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                      ComboBox41.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                       ComboBox42.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                        ComboBox43.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                         ComboBox44.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
                         ComboBox8.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
             ComboBox18.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox19.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox20.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox21.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox22.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox23.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox24.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox25.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox26.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox27.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox28.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox29.List = Application.Transpose(Range([C1], [X1].End(xlToLeft)))
           ComboBox30.List = Application.Transpose(Range([L2], [V2].End(xlToLeft)))
         
    Next
End With

CommandButton1.Enabled = True      ' Bouton Valider non disponible
CommandButton2.Enabled = False      ' Bouton Modifier non disponible
CommandButton3.Enabled = True     ' Bouton Supprimer non disponible
CommandButton4.Enabled = False
CommandButton5.Enabled = True
CommandButton6.Enabled = False
CommandButton7.Visible = False
CommandButton2.Visible = False
CommandButton9.Visible = True
CommandButton4.Visible = False

Txt25.Visible = True
Txt37.Visible = True
TextBox2.Visible = False

ComboBox18.Visible = False
ComboBox19.Visible = False
ComboBox20.Visible = False
ComboBox21.Visible = False
ComboBox22.Visible = False
ComboBox23.Visible = False
ComboBox24.Visible = False
ComboBox25.Visible = False
ComboBox26.Visible = False
ComboBox27.Visible = False
ComboBox28.Visible = False
ComboBox29.Visible = False
ComboBox31.Visible = False
ComboBox32.Visible = False
ComboBox33.Visible = False
ComboBox34.Visible = False
ComboBox35.Visible = False
ComboBox36.Visible = False
ComboBox37.Visible = False
ComboBox38.Visible = False
ComboBox39.Visible = False
ComboBox40.Visible = False
ComboBox41.Visible = False
ComboBox42.Visible = False
ComboBox43.Visible = False
ComboBox44.Visible = False
ComboBox30.Visible = False



ComboBox1.Visible = False
ComboBox2.Visible = False
ComboBox3.Visible = False
ComboBox4.Visible = False
ComboBox5.Visible = False
ComboBox6.Visible = False
ComboBox7.Visible = False
ComboBox8.Visible = False
ComboBox9.Visible = False
ComboBox10.Visible = False
ComboBox11.Visible = False
ComboBox12.Visible = False
ComboBox13.Visible = False
ComboBox14.Visible = False
TextBox68.Visible = False
TextBox87.Visible = False
TextBox90.Visible = False
TextBox91.Visible = False
TextBox93.Visible = False
TextBox67.Visible = False
TextBox73.Visible = False
TextBox77.Visible = False
TextBox76.Visible = False
TextBox75.Visible = False
TextBox81.Visible = False
TextBox69.Visible = False
TextBox95.Visible = False
TextBox96.Visible = False
TextBox97.Visible = False
TextBox98.Visible = False
TextBox99.Visible = False
TextBox100.Visible = False
TextBox101.Visible = False
TextBox102.Visible = False
TextBox103.Visible = False
TextBox229.Visible = False
TextBox225.Visible = False
TextBox203.Visible = False
TextBox209.Visible = False
TextBox210.Visible = False
TextBox214.Visible = False
TextBox215.Visible = False
TextBox216.Visible = False
TextBox218.Visible = False
TextBox219.Visible = False
TextBox220.Visible = False
Label93.Visible = False
Label92.Visible = False
Label95.Visible = False
Label94.Visible = False
VISUEL2.Label93.Caption = Range("AX7")
VISUEL2.Label92.Caption = Range("AY7")
VISUEL2.Label95.Caption = Range("BE7")
VISUEL2.Label94.Caption = Range("BD7")
ComboBox15.Visible = False
ComboBox16.Visible = False
ComboBox17.Visible = False




Label80.Visible = False


             
End Sub
 

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou