amélioration de combobox

**JulienLeno** · 30/08/2011, 09h33

Bonjour a vous,

Voilà j'ai un problème avec des combobox qui ont pour but de trier des données. En fait j'ai deux combobox que je renseigne et qui en fonction de ce qui est entré à l'intérieur me trouve des données qui sont stockés dans un tableau. Ce que j'ai fais fonctionne mais j'aimerais bien améliorer mon programme car j'ai plusieurs commandes que j'ai un peu bidouillé. Tout d'abord pour renseigner mes combobox j'ai cliqué sur les propriétés et renseigner le rowsource mais j'aurais aimé pouvoir renseigné à partir des lignes du tableau. Mais je ne sais pas pourquoi ceci n'a pas fonctionné. Pourriez vous me donner le code a utilisé pour renseigner de cette manière?

Ensuite je rencontre un autre problème au niveau de la correpondance des données. En effet dans mon tableau de donnée j'ai des valeurs numériques et j'ai vu que pour qu'une combobox puisse venir trouver des données celles ci devait être en string. Alors j'ai essayé de convertir avec cstring mais çà ne fonctionne pas. J'ai donc trouvé l'astuce suivante. J'ai mis des . à la place des , ce qui donne du texte au lieu de nombre mais c'est quand même pas top.

Voilà si vous aviez des idées de comment faire pour réaliser mes améliorations. Je vous met le code pour que vous puissiez voir ce que çà donne aujourd'hui.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Private Sub CommandButton8_Click()
Dim nomratio As String, nomhubratio As String
Sheet3.Rows("2:70").Delete
 
iL2 = Sheet1.Cells(100, 2).Value
 
n = 2
ratio = ComboBox3.Value
hubratio = ComboBox4.Value
 
If ratio <> "" And hubratio <> "" Then
 
    For i = n To 280
    celluleratio = ("o" & i)
    cellulehubratio = ("m" & i)
 
 
    nomratio = CStr(Sheet5.Range(celluleratio).Value)
    nomhubratio = CStr(Sheet5.Range(cellulehubratio).Value)
 
        If nomratio = ratio Then
        If nomhubratio = hubratio Then
            Sheet5.Cells(i, "m").Copy Sheet3.Cells(iL2, 3)
            Sheet5.Cells(i, "o").Copy Sheet3.Cells(iL2, 4)
            Sheet5.Cells(i, "a").Copy Sheet3.Cells(iL2, 1)
         iL2 = iL2 + 1
        End If
     End If
    Next
 
ElseIf ratio <> "" And hubratio = "" Then
 
    For i = n To 280
        celluleratio = ("o" & i)
 
        nomratio = CStr(Sheet5.Range(celluleratio).Value)
 
         If nomratio = ratio Then
            Sheet5.Cells(i, "m").Copy Sheet3.Cells(iL2, 3)
            Sheet5.Cells(i, "o").Copy Sheet3.Cells(iL2, 4)
            Sheet5.Cells(i, "a").Copy Sheet3.Cells(iL2, 1)
             iL2 = iL2 + 1
         End If
    Next
 
ElseIf ratio = "" And hubratio <> "" Then
 
    For i = n To 280
           cellulehubratio = ("m" & i)
 
             nomhubratio = CStr(Sheet5.Range(cellulehubratio).Value)
 
            If nomhubratio = hubratio Then
            Sheet5.Cells(i, "m").Copy Sheet3.Cells(iL2, 3)
            Sheet5.Cells(i, "o").Copy Sheet3.Cells(iL2, 4)
            Sheet5.Cells(i, "a").Copy Sheet3.Cells(iL2, 1)
                iL2 = iL2 + 1
            End If
    Next
 
End If
 
ComboBox3.Value = Empty
ComboBox4.Value = Empty
Sheet3.Select
 
End Sub

Merci à vous!

**jfontaine** · 30/08/2011, 10h45

Bonjour,

Tout d'abord pour renseigner mes combobox j'ai cliqué sur les propriétés et renseigner le rowsource mais j'aurais aimé pouvoir renseigné à partir des lignes du tableau. Mais je ne sais pas pourquoi ceci n'a pas fonctionné.

Quel code? Qu'est ce qui n'a pas fonctionné?

Ensuite je rencontre un autre problème au niveau de la correpondance des données. En effet dans mon tableau de donnée j'ai des valeurs numériques et j'ai vu que pour qu'une combobox puisse venir trouver des données celles ci devait être en string. Alors j'ai essayé de convertir avec cstring mais çà ne fonctionne pas

Idem quel code? quelle anomalie?

ce qui donne du texte au lieu de nombre mais c'est quand même pas top

Comment fais tu cela? Manuellement?

En regardant ton code on se demande ou sont déclarées les variables ratio et hubratio, et, quel est leur type.

Peux tu nous éclairer

**JulienLeno** · 30/08/2011, 11h10

Pour renseigner j'avais utilisé un code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i
    For i = 1 To 4
        ComboBox1.AddItem Sheets("a").Cells(i, 1)
    Next
End Sub

Ce qui n'a pas fonctionné c'est qu'en faisant ainsi je n'avais rien dans ma combobox quand je cliquais. Aucune liste ne s'affichait.

Au niveau de la conversion comme tu peux le voir dans le programme j'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
nomratio = CStr(Sheet5.Range(celluleratio).Value)
    nomhubratio = CStr(Sheet5.Range(cellulehubratio).Value)

Mais là aussi çà ne fonctionne pas il ne parvient pas à me trouver de valeur quand celles ci sont des nombres alors que s'il y'a du texte çà fonctionne.

Oui je remplace manuellement les , par des points donc c'est vraiment pas bon.

Pour les variables ratio et hubratio je me rend compte quelles ne sont déclarées nul part. J'ai juste mis que ratio et hubratio sont égales à la valeur de la combobox. Ca ne suffit pas?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ratio = ComboBox3.Value
hubratio = ComboBox4.Value

**jfontaine** · 30/08/2011, 11h27

1 .Pour l'alimentation de la combobox, cette méthode fonctionne. J'ajouterais juste .Value pour éviter la confusion avec l'objet Range.
A ajouter aussi le vidage de la combobox(si le chargement intervient plusieurs)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim i
    Combobox1.Clear
    For i = 1 To 4
        ComboBox1.AddItem Sheets("a").Cells(i, 1).Value
    Next
End Sub

2. je ne vois pas trop l'utilité de la conversion en string.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomratio = Sheet5.Range(celluleratio).Value

Pour remplacer les , par des .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nomratio = Replace(Sheet5.Range(celluleratio).Value,",",".")

3. Si tu ne spécifie pas le type de tes variables, celles ci prennent seront Variant.
Si ComboBox3.Value est numérique alors ratio sera de type numérique
Ce qui te posera des problèmes dans tes comparaisons (Numerique = String

)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If nomratio = ratio Then

**JulienLeno** · 30/08/2011, 13h10

Je viens de réessayer de remplir ma combobox avec ton instruction et çà ne fonctionne pas. Je ne comprend pas pourquoi. Ou dois je mettre la commande. En public?

En fait çà fonctionne mais ceci fonctionne quand je lance à partir d'un bouton contenu dans mon userform si je veux lancer le remplissage à partir d'un bouton contenu dans une feuille il ne trouve pas de référence. Comment je peux faire?

**jfontaine** · 30/08/2011, 14h07

Ou se trouve la combobox? dans la feuille ou sur une form?

**JulienLeno** · 31/08/2011, 09h18

Bonjour,

Bon le VBA commence a vraiment avoir raison de moi... Hier je suis parvenu à faire ce que je voulais j'ai réussi a mettre en place mes combobox correctement. Elle faisaient tout ce que je voulais. Seulement voilà aujourd'hui je rencontre le même problème que précédemment. Quand je lance une recherche je ne parviens pas a retrouver des données numériques alors qu'il n'y a rien de changé par rapport à hier. Je ne vois pas pourquoi çà beug. Il doit bien y'avoir un problème quelque part mais lequel?

Je remet le code final que j'avais hier si vous y voyez une erreur.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Private Sub CommandButton8_Click()
Dim nomratio As String, nomhubratio As String
Dim ratio As String
Dim hubratio As String
 
 
Sheet3.Rows("2:70").Delete
 
iL2 = Sheet1.Cells(100, 2).Value
 
n = 2
ratio = ComboBox3.Value
hubratio = ComboBox4.Value
 
If ratio <> "" And hubratio <> "" Then
 
    For i = n To 280
    celluleratio = ("o" & i)
    cellulehubratio = ("m" & i)
 
 
    nomratio = CStr(Sheet5.Range(celluleratio).Value)
    nomhubratio = CStr(Sheet5.Range(cellulehubratio).Value)
 
     If nomratio = ratio Then
        If nomhubratio = hubratio Then
            Sheet5.Cells(i, "m").Copy Sheet3.Cells(iL2, 3)
            Sheet5.Cells(i, "o").Copy Sheet3.Cells(iL2, 4)
            Sheet5.Cells(i, "a").Copy Sheet3.Cells(iL2, 1)
         iL2 = iL2 + 1
        End If
     End If
    Next
 
ElseIf ratio <> "" And hubratio = "" Then
 
    For i = n To 280
        celluleratio = ("o" & i)
 
        nomratio = CStr(Sheet5.Range(celluleratio).Value)
 
         If nomratio = ratio Then
            Sheet5.Cells(i, "m").Copy Sheet3.Cells(iL2, 3)
            Sheet5.Cells(i, "o").Copy Sheet3.Cells(iL2, 4)
            Sheet5.Cells(i, "a").Copy Sheet3.Cells(iL2, 1)
             iL2 = iL2 + 1
         End If
    Next
 
ElseIf ratio = "" And hubratio <> "" Then
 
    For i = n To 280
           cellulehubratio = ("m" & i)
 
             nomhubratio = CStr(Sheet5.Range(cellulehubratio).Value)
 
            If nomhubratio = hubratio Then
            Sheet5.Cells(i, "m").Copy Sheet3.Cells(iL2, 3)
            Sheet5.Cells(i, "o").Copy Sheet3.Cells(iL2, 4)
            Sheet5.Cells(i, "a").Copy Sheet3.Cells(iL2, 1)
                iL2 = iL2 + 1
            End If
    Next
 
End If
 
ComboBox3.Value = Empty
ComboBox4.Value = Empty
Sheet3.Select
 
End Sub

Aucune idée d'ou peut provenir le problème?

**gFZT82** · 31/08/2011, 16h37

Bonjour,

As-tu essayé en pointant explicitement ton Userform ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ratio = UserForm1.ComboBox1.Value
hubratio = UserForm1.ComboBox2.Value

Cordialement.

**JulienLeno** · 31/08/2011, 16h46

Oui et ceci ne fonctionne pas. J'ai vraiment du mal a comprendre..

**jfontaine** · 31/08/2011, 17h06

Tes variables ne sont toujours pas déclarées donc en type variant (voir post d'hier à 11h27)

Fais un essai en les déclarant.

Si toujours le problème, sur quelle ligne se fait le test qui pose problème et quelles sont les valeurs des variables ou combobox a ce moment

**JulienLeno** · 05/09/2011, 13h43

Pour moi les variables sont déclarées. Si tu regardes sur mon post nomratio hubratio, etc sont toutes déclarées en string. Ensuite il n'y a pas d'endroit où çà plante quand je lance le programme fonctionne c'est juste que lorsque j'appuie sur mon bouton de recherche il ne m'affiche rien si les cases de mon tableau sont des nombres. En revanche si dans les cases je met du texte il parvient à me donner le résultat attendu.

Merci

Julien

amélioration de combobox

Macros et VBA Excel

Discussions similaires

Partager

Partager