Bonjour,

J'ai un petit souci. j'ai deux code sur le même USF Comment faire cohabité:

Voici la partie du code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Dim Ctrl As Control ...."sur un code" 
et
Dim Controle As Control, I As Integer ......"sur un autre code"

Et voici le code en entier:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub UserForm_Initialize()
Dim Ctrl As Control
Dim I As Byte
 
Me.Height = 116                                  ' Hauteur de l'USF a l'ouverture
 
For I = 1 To 100         'Nbre de joueur
    Me.ComboBox2.AddItem I
Next I
 
For Each Ctrl In Me.Controls         'Tous les Combobox ont infos "Nord", "Sud", "Est", "Ouest" sauf le combobo2
    If TypeName(Ctrl) = "ComboBox" Then
        If Ctrl.Name <> "ComboBox2" Then Ctrl.List = Array("Nord", "Sud", "Est", "Ouest")
    End If
Next Ctrl
Cacher
 
 
 
'Pour nom propre a tous les textbox "module de classe"
Dim Controle As Control, I As Integer
I = 0
  For Each Controle In Me.Controls 'pour chaque controle de l'usf
    If TypeOf Controle Is MSForms.TextBox Then 'Si c'est un TextBox..
        ReDim Preserve MesObjets(0 To I) 'redimensionne le tableau MesObjetsTB
       Set MesObjets(I).MonTxt = Controle 'rajoute le txtbox dans la classe
        I = I + 1
    End If
  Next Controle
End Sub

Merci d'avance pour votre aide. Cordialement

Max