Hello,
je viens récupérer une liste d'un TCD pour la mettre dans une combo box.
jusque là tout va bien.
je souhaite ensuite supprimer 2 valeur de cette liste .
la valeur (blank) et la valeur N° Compte
j'ai créé une boucle qui teste au travers d'un tableau (array) qui contient ces 2 valeurs mais cela ne fonctionne pas et je ne comprends pas pourquoi?
Merci de voir si j'ai une boulette dans la syntaxe.
Le code ci-dessous :
Private Sub CommandButton1_Click()
'Recupère la liste des N° compte du TCD
Dim R As Integer
Dim F As Integer
Dim lindex As Long
Dim i As Long
Dim lesNoms As Variant
UserForm1.ComboBox1.Clear
'UserForm1.ComboBox1.Visible = False
With Worksheets("BUDGETS MENSUELS").PivotTables("Tableau croisé dynamique2").PivotFields("N° Compte")
F = .PivotItems.Count
For R = 1 To F
UserForm1.ComboBox1.AddItem .PivotItems(R).Name
Next
lesNoms = Array("(Blank)", "N° Compte")
For i = UserForm1.ComboBox1.ListCount - 1 To 0 Step -1
For j = 0 To 1
If lesNoms(j) = UserForm1.ComboBox1.Value Then
lindex = UserForm1.ComboBox1.ListIndex
UserForm1.ComboBox1.RemoveItem lindex
End If
Next j
Next i
End With
End Sub
Merci d’avance
KIKOL
je viens récupérer une liste d'un TCD pour la mettre dans une combo box.
jusque là tout va bien.
je souhaite ensuite supprimer 2 valeur de cette liste .
la valeur (blank) et la valeur N° Compte
j'ai créé une boucle qui teste au travers d'un tableau (array) qui contient ces 2 valeurs mais cela ne fonctionne pas et je ne comprends pas pourquoi?
Merci de voir si j'ai une boulette dans la syntaxe.
Le code ci-dessous :
Private Sub CommandButton1_Click()
'Recupère la liste des N° compte du TCD
Dim R As Integer
Dim F As Integer
Dim lindex As Long
Dim i As Long
Dim lesNoms As Variant
UserForm1.ComboBox1.Clear
'UserForm1.ComboBox1.Visible = False
With Worksheets("BUDGETS MENSUELS").PivotTables("Tableau croisé dynamique2").PivotFields("N° Compte")
F = .PivotItems.Count
For R = 1 To F
UserForm1.ComboBox1.AddItem .PivotItems(R).Name
Next
lesNoms = Array("(Blank)", "N° Compte")
For i = UserForm1.ComboBox1.ListCount - 1 To 0 Step -1
For j = 0 To 1
If lesNoms(j) = UserForm1.ComboBox1.Value Then
lindex = UserForm1.ComboBox1.ListIndex
UserForm1.ComboBox1.RemoveItem lindex
End If
Next j
Next i
End With
End Sub
Merci d’avance
KIKOL