[VBA-E]vider combobox ss vider value

Version imprimable

15/10/2007, 20h13
Oussbaba au rhum

[VBA-E]vider combobox ss vider value

bonsoir,
j'ai un pb assez tordu.je voudrais, a l'activation de ma feuille excel, vider les listes des combobox mais ne pas supprimer les valeurs choisies précédemment(combobox.value)
j'ai pensé au combobox1.clear mais ca supprime aussi le combobox.value en cours....8O

cela est il possible?:roll:

merci d'avance

pour info:vba pr excel2000
15/10/2007, 21h42
ouskel'n'or

Sans replacer value dans le combo après l'avoir vidé, non !
15/10/2007, 21h44
Oussbaba au rhum

merci pour ta reponse
il n'a pas alors moyen de faire un remove item sur chaque sans que le value ne soit touché?
15/10/2007, 21h57
ouskel'n'or

Jamais testé mais Value correspond à une sélection. On ne peut pas renseigner value. Tu devrais faire le test et nous dire ce qu'il en est ;)
Bonne soirée
16/10/2007, 05h40
alsimbad
sinon, mais je vois pas quelle utilité ça peut avoir, tu peux essayer
code non contractuel :?
Code:

1 2 3 4 valeur = combobox.value combobox.clear combobox.additem valeur
16/10/2007, 09h12
ouskel'n'or

Hello alsimbad, ce qui nous renvoie, ici ;)

j'ai trouvé une bidouille
1-stockage value
2-combo.clear
3-re-remplissage de la combo
4-comparaison du value avec la liste

si ca peux aider quelqu'un:

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
 
Public Sub MAJ()
 
Dim j As Integer
Dim emb As String
Dim list_temp As Object
 
 
'on vide les listes pour mises a jour
For j = 1 To 7
    Set list_temp = Sheets("Calcul coût").OLEObjects("Combobox" & j).Object
    emb = list_temp.Value
    list_temp.Clear
    'on remplit avec les nouvelles valeurs
    For i = 1 To 6
        typeemballage (i)
    Next i
 
    typecaisses (7)
    'test si la valeur précédente existe encore
    For k = 0 To list_temp.ListCount - 1
        If emb = list_temp.List(k) Then
            'on remet la valeur
            list_temp.Value = emb
            Exit For
            'sinon on efface la valeur
            Else: list_temp.Value = ""
            End If
    Next k
 
Next j
 
 
End Sub

c'est un peu lourd mais ca fonctionne:yaisse2:

merci de votre aide:P

16/10/2007, 19h43
alsimbad

hum ouskel ? tu disais quoi ,

Citation:

Envoyé par ousbaba

j'ai trouvé une bidouille
1-stockage value
2-combo.clear
3-re-remplissage de la combo
16/10/2007, 20h25
ouskel'n'or

Hé oui, Oussbaba au rhum attendait le code, pas une explication qu'il n'a donc pas lu... :cry:
Faut lire les explications, Oussbaba au rhum, sans quoi on donnera plus d'explication et tu n'auras plus d'explication à ne pas lire...
:mouarf: quand même !
17/10/2007, 00h10
Oussbaba au rhum

J'avais bien lu...............;:oops::oops::oops: