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:
Merci d'avance de votre compréhension et de l'aide.
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 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
Cdlt.
Partager