Incapable de remplir un Combobox

Version imprimable

Bonjour,

Le but de ce code est de créer un lexique indexé. Les mots sont ajoutés puis triés par ordre alphabétique.
Pour la navigation rapide, j'ai créé une colonne qui reprend la première lettre du premier mot commençant par une nouvelle lettre. Ensuite, j'ai décidé d'utilisé un Combobox qui va référencer les lettres de l'alphabets présentes dans cette colonne. Mais je n'arrive pas à utiliser la fonction AddItem. (en ligne 34)

Je suis novice en vba, et en code tout court, donc il se peut que le code ne soit pas optimal. A vous de me le dire.

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
37
38
39
40
41
42
 
Sub Sorting()
'
' Tri des mots et indexation
 
Dim i As Integer
Dim Alph As Object
 
If ActiveSheet.OLEObjects.Count < 1 Then
    With Range("K3")
    Set Alph = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combobox.1", Link:=False, DisplayAsIcon:=False)
    End With
End If
'crée la liste
 
 
If Not (IsEmpty(Range("E3")) Or IsEmpty(Range("E4"))) Then
 
    Rows("10:10").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B10").Value = Range("E3").Value
    Range("F10").Value = Range("E4").Value
    Range("E3:E4").ClearContents
'incrémente le lexique
 
    Range("B10:F300").Sort Key1:=Range("B10"), Order1:=xlAscending
'tri le lexique
 
    n = Application.WorksheetFunction.CountA(Range("B:B"))
    For i = 10 To (n + 9)
        If Left(Range("B" & i), 1) <> Left(Range("B" & i - 1), 1) Then
            Range("A" & i) = Left(Range("B" & i), 1)
        Else: Range("A" & i).ClearContents
        End If
        If Not IsEmpty(Range("A" & i)) Then Alph.AddItem Sheets("Sheet1").Range("A" & i)
 
    Next
'complète la liste
 
Else: Exit Sub
End If
 
End Sub

Merci

02/06/2016, 19h50
parmi

Bonjour,

Es-tu certain du Sheet1 ici ?

Code:

If Not IsEmpty(Range("A" & i)) Then Alph.AddItem Sheets("Sheet1").Range("A" & i)

Dans le reste de ton code, tu n'en fais pas mention explicitement...

Bonsoir le fil, bonsoir le forum,

Essaie comme ça :

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
Sub Sorting()
'
' Tri des mots et indexation
Dim i As Integer
Dim Alph As OLEObject
Dim O As Worksheet
 
Set O = Sheets("Sheet1")
If O.OLEObjects.Count < 1 Then
    With O.Range("K3")
        .Select
        Set Alph = O.OLEObjects.Add(ClassType:="Forms.Combobox.1", Link:=False, DisplayAsIcon:=False)
    End With
End If
'crée la liste
If Not (IsEmpty(O.Range("E3")) And IsEmpty(O.Range("E4"))) Then
    O.Rows("10:10").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    O.Range("B10").Value = O.Range("E3").Value
    O.Range("F10").Value = O.Range("E4").Value
    O.Range("E3:E4").ClearContents
'incrémente le lexique
    O.Range("B10:F300").Sort Key1:=O.Range("B10"), Order1:=xlAscending
'tri le lexique
    n = Application.WorksheetFunction.CountA(O.Range("B:B"))
    For i = 10 To (n + 9)
        If Left(O.Range("B" & i), 1) <> Left(O.Range("B" & i - 1), 1) Then
            O.Range("A" & i) = Left(O.Range("B" & i), 1)
        Else: O.Range("A" & i).ClearContents
        End If
        If Not IsEmpty(O.Range("A" & i)) Then ActiveSheet.ComboBox1.AddItem O.Range("A" & i).Value
    Next
End If
End Sub

02/06/2016, 23h49
casefayere

Bonsoir,
sans analyser plu loin, je pense qu'il serait utile d'utiliser "ArrayList" pour soulager le code, le tri en sera d'autant plus facile, ainsi que l'incrémentation, je ne l'ai découvert que récemment et, et, et. qu'est-ce que c'est pratique
03/06/2016, 09h51
Torino

Merci messieurs,

Je regarde ça dans la journée et je vous ferai mon rapport.

Edit 1 : ça arrive, je suis dessus

Alors ça passe nickel, merci Thautheme.

Est-ce que tu peux m'expliquer quel était le problème ?

Une dernière petite question même si c'est un peu hs : peut on prioriser le scroll molette dans le combobox plutôt que dans la feuille quand celui-ci est ouvert ?