Boucle pour Combobox

Version imprimable

Bonjour le forum

En cour de construction d'un ptit programme qui je pense s'annonce assez difficile pour moi, mais je me lance quand même et viens vers vous chercher de l'aide.
Voilà mon 1er petit souci :
J'ai créé sur un UF un multipage avec des combobox que j'alimente dans la feuille qui les concernes, pour le moment tout va pas trop mal.
les combo sont alimentés dans UF Iniziale.
Ma 1ère interrogation est de savoir si c'est dans UF Iniziale ou dans la page (du multipage) qu'il faut les alimenter ?

Se sont des combobox sans doublon et sans vide une armé, mais le problème c'est qu'ils reste alimenté à l'ouverture de l'UF alors que j'aimerai qu'il soit vide.
voici mon code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub UserForm_Initialize() Dim j As Integer '*Se positionne sur la page 1 à l'ouverture 'Me.MultiPage1.Value = 0 UF1_Admin.MultiPage1.page2.TextBox5.Enabled = False 'True UF1_Admin.MultiPage1.page2.ComboBox1.Clear With Sheets("Coordonnées") 'Récupère les données de la colonne B... For j = 3 To Range("B65536").End(xlUp).Row UF1_Admin.MultiPage1.page2.ComboBox1 = Range("B" & j) '...et filtre les doublons If UF1_Admin.MultiPage1.page2.ComboBox1.ListIndex = -1 Then If Sheets("Coordonnées").Range("B" & j) <> "" Then UF1_Admin.MultiPage1.page2.ComboBox1.AddItem Range("B" & j) Next j End With End Sub
Merci d'avance de votre compréhension et de l'aide.

Cdlt.

12/10/2015, 14h42
SfJ5Rpw8
Bonjour,

Sans lire votre demande mais en lisant le code en diagonale une mauvaise utilisation de With saute haut yeux

With permet d'éviter de préfixer objets ou variables avec leur objet parent en nommant celui-ci qu'une fois dans le code entre with et end Whit on doit tout de même placer un point (.) devant tous les éléments à préfixer ainsi
Code:

1 2 3 4 5 With MonObjet .text = "Salut" .CdeEnvoi end with
équivaut à écrire
Code:

1 2 3 MonObjet.text = "Salut" MonObjet.CdeEnvoi
dans ton cas ton with/ and with ne sert à rien étant donné qu'entre ces deux instructions l'on ne trouve aucun élément commençant par un point .

Commence par corriger ce problème élémentaire , refait des tests et reviens nous vois si tu as encore des problèmes ...

Bonjour bbil

Merci du coup de pouce et de tes conseils même je ne se saisi pas tout correctement, désolé !!
Si j'ai bien compris entre With et End With il faut démarrer le code avec un (.) point. donc j'ai essayé de modifier mon code par rapport à se que j'ai compris, (mais pas sur du tout).
Perso je n'ai pas trouvé de changement, les combobox sont toujours armé à l'ouverture de l'UF.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
Dim j As Integer
 
'Me.MultiPage1.Value = 0                                                   '*Se positionne sur la page 1 à l'ouverture
 UF1_Admin.MultiPage1.page2.TextBox5.Enabled = False     'bloque l'écriture sur Textbox5
 
 UF1_Admin.MultiPage1.page2.ComboBox1.Clear                 'Mettre combobox vide à l'ouverture
 
 
'Récupère les données de la colonne B...
    For j = 3 To Sheets("Coordonnées").Range("B65536").End(xlUp).Row
        UF1_Admin.MultiPage1.page2.ComboBox1 = Sheets("Coordonnées").Range("B" & j)
        '...et filtre les doublons
        If UF1_Admin.MultiPage1.page2.ComboBox1.ListIndex = -1 Then If Sheets("Coordonnées").Range("B" & j) <> "" Then UF1_Admin.MultiPage1.page2.ComboBox1.AddItem Sheets("Coordonnées").Range("B" & j)
    Next j
 
'Récupère les données de la colonne E...
    For j = 3 To Sheets("Coordonnées").Range("E65536").End(xlUp).Row
        UF1_Admin.MultiPage1.page2.ComboBox2 = Sheets("Coordonnées").Range("E" & j)
        '...et filtre les doublons
        If UF1_Admin.MultiPage1.page2.ComboBox2.ListIndex = -1 Then If Sheets("Coordonnées").Range("E" & j) <> "" Then UF1_Admin.MultiPage1.page2.ComboBox2.AddItem Sheets("Coordonnées").Range("E" & j)
    Next j
End Sub

Cdlt

12/10/2015, 16h32
SfJ5Rpw8

Maintenant que je regarde ta question ... ben je comprends pas ce que tu appelle "armer un combobox" ??

c'est quoi la question au juste ?
12/10/2015, 17h16
Pompaero

Re

désolé je me suis mal exprimé :(.

A priori mes changement on l'air d'être bon.

Ma question est que je voudrai à l'ouverture de l'uf que les combobox soient vide (c'est à dire, pas de texte dedans en visu) si c'est possible bien sur. mais bien évidemment que les combo sont rempli de leur liste si on click dessus.

mes explications sont pas très claires je crois !! :?

Bonsoir

Depuis hier j'essai de résoudre mon souci des combobox, j'ai beau chercher et rechercher sur le net je ne vois pas ou je bloque donc je viens vers vous pour de l'aide, svp.

J'ai une feuille "Coordonnées" qui se complète à l'aide du UserForm (UF1_Admin) qui contient un multipage (7 pages) puis sur la page 2 y sont 4 combobox qui s'alimente dans la feuille "Coordonnées" en allant que je rempli la feuille "Coordonnées" à partir de la ligne 3.
Combobox1 = colonne C
Combobox1 = colonne E
Combobox1 = colonne F
Combobox1 = colonne G
J'ai bien créé un code pour alimenter les combobox, mais mon souci est des que j'ouvre l'UserForm il y a du texte dans les combobox alors que je n'en voudrais pas (comme ça devrais être le cas), je n'y comprend plus rien !!!

Code:

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
31
32
33
34
35
36
Private Sub UserForm_Initialize()
Dim j As Integer
 
'*Se positionne sur la page 1 à l'ouverture
'Me.MultiPage1.Value = 0
 UF1_Admin.MultiPage1.page2.TextBox5.Locked = True   'Enabled
 
 
'With Sheets("Coordonnées")
'Récupère les données de la colonne B...
    For j = 3 To Sheets("Coordonnées").Range("C65536").End(xlUp).Row
        UF1_Admin.MultiPage1.page2.ComboBox1 = Sheets("Coordonnées").Range("C" & j)
        '...et filtre les doublons
        If UF1_Admin.MultiPage1.page2.ComboBox1.ListIndex = -1 Then If Sheets("Coordonnées").Range("C" & j) <> "" Then UF1_Admin.MultiPage1.page2.ComboBox1.AddItem Sheets("Coordonnées").Range("C" & j)
    Next j
'Récupère les données de la colonne E...
    For j = 3 To Sheets("Coordonnées").Range("E65536").End(xlUp).Row
        UF1_Admin.MultiPage1.page2.ComboBox2 = Sheets("Coordonnées").Range("E" & j)
        '...et filtre les doublons
        If UF1_Admin.MultiPage1.page2.ComboBox2.ListIndex = -1 Then If Sheets("Coordonnées").Range("E" & j) <> "" Then UF1_Admin.MultiPage1.page2.ComboBox2.AddItem Sheets("Coordonnées").Range("E" & j)
    Next j
'Récupère les données de la colonne F...
    For j = 3 To Range("F65536").End(xlUp).Row
        UF1_Admin.MultiPage1.page2.ComboBox3 = Range("F" & j)
        '...et filtre les doublons
        If UF1_Admin.MultiPage1.page2.ComboBox3.ListIndex = -1 Then UF1_Admin.MultiPage1.page2.ComboBox3.AddItem Range("F" & j)
    Next j
'Récupère les données de la colonne G...
    For j = 3 To Range("G65536").End(xlUp).Row
        UF1_Admin.MultiPage1.page2.ComboBox4 = Range("G" & j)
        '...et filtre les doublons
        If UF1_Admin.MultiPage1.page2.ComboBox4.ListIndex = -1 Then UF1_Admin.MultiPage1.page2.ComboBox4.AddItem Range("G" & j)
    Next j
'End With
 
End Sub

Grand merci par avance

Cdlt