Discussion :

[Oussbaba au rhum]

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....


cela est il possible?

merci d'avance



pour info:vba pr excel2000

[ouskel'n'or]

Sans replacer value dans le combo après l'avoir vidé, non !

[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é?

[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

[alsimbad]

sinon, mais je vois pas quelle utilité ça peut avoir, tu peux essayer
code non contractuel

Code :

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

1
2
3
4
 
valeur = combobox.value
combobox.clear
combobox.additem valeur

[ouskel'n'or]

Hello alsimbad, ce qui nous renvoie, ici

[Oussbaba au rhum]

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 :

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
 
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

merci de votre aide

[alsimbad]

hum ouskel ? tu disais quoi ,

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

[ouskel'n'or]

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

[Oussbaba au rhum]

J'avais bien lu...............;