Comment effacer le contenu de plusieurs combobox d'un seul coup

@

@+Thierry

Guest

• 3 Décembre 2002

• #2

Salut Olivier

sans tester (je n'ai pas envie de créer 30 combobox, de les remplir et de les vider)...

NumCB = 1
For i = 1 to 30
Sheets(Patient_Plan).ComboBox & NumCB.Clear
NumCB = NumCB + 1
next i

Ce devrait être quelque chose comme çà...
Bon App
@+Thierry

 

Vote positif 0 Vote négatif

O

olivier

Guest

• 3 Décembre 2002

• #3

Hélas non cela ne marche pas.
J'avais effectivement essayé ton truc aussi à moins qu'il ne faille des caractères spéciaux ddu type " ou ' ...

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 3 Décembre 2002

• #4

Bon je fais un essai...

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 3 Décembre 2002

• #5

tu peux y arriver avec un objet oleobjects, ensuite tu testes le type d'objets renvoyé, si c'est un combo tu le réinitialises. Je ne peux pas joindre d'exemple tout de suite, s'il n'en vient pas dans la journée, j'en mettrai un

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 3 Décembre 2002

• #6

Bon moi j'ai essayé sur un Userform = Pas de Problème

Sub Test()
numcb = 1
For i = 1 To 10
Combo = "ComboBox" & numcb
UserForm1(Combo).AddItem "Toto"
numcb = numcb + 1
Next i
End Sub

Sub Test2()
numcb = 1
For i = 1 To 10
Combo = "ComboBox" & numcb
UserForm1(Combo).Clear
numcb = numcb + 1
Next i
End Sub

Par contre là où çà devient difficile c'est quand les ComboBoxs sont sur une feuille...
...
( à suivre )
@+Thierry

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 3 Décembre 2002

• #7

exact Thierry, c'est là qu'interviennent les OleObjects

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 3 Décembre 2002

• #8

C'est pas évident...

Trouvé dans l'aide :
For Each s In Worksheets(1).Shapes
If s.Type = msoOLEControlObject Then s.Left = 10
Next
çà marche toute les combobox sont bien alignées...

Mais pas question d'essayer Additem ou clear...

çà aussi :
Sub TestFeuille()
numcb = 1
For i = 1 To 10
combo = "ComboBox" & numcb
ActiveSheet.OLEObjects(combo).Object.Value = "titi"
numcb = numcb + 1
Next i
End Sub

On a bien "titi" dans toutes les ComboBox... Mais toujours pas supporté avec Additem ou Clear...
...
(à suivre)

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 3 Décembre 2002

• #9

En fait je crois qu'il faudrait arriver à préciser quel type de "msoOLEControlObject" est une combobox pour que la méthode additem ou clear soit supporté...

Mais évidemment il n'y a pas d'aide sur msoOLEControlObject (sauf que le débugeur me retour "= 12" ??? (il n'y a que 10 combobox en tout dans la sheet... et pas d'autre control... )

Vé voir sur les archives du MPFE...

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 3 Décembre 2002

• #10

pas de panique, ça arrive :

Voici 2 fonctions : la première te permet de sélectionner les combos à réinitialiser éventuellement, la deuxième initialise tout

Option Explicit
'Ti
Sub ComboClear1()
Dim Combo As OLEObject
Dim boucle As Byte
'ça marche si tu as x combos nommés Combobox1, Combobox2...
For boucle = 1 To 3
Set Combo = [Feuil1].OLEObjects("combobox" & boucle)
Combbject.clear
Next boucle
End Sub

Sub ComboClear2()
Dim Combo As OLEObject
'tu ne veux pas t'occuper du nom des combos, et tu as d'autres
'objets que des combo dans ta feuille, utilise cette procédure
For Each Combo In [Feuil1].OLEObjects
If Combo.ProgId = "Forms.ComboBox.1" Then Combbject.clear
Next Combo
End Sub

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 3 Décembre 2002

• #11

Thierry, à titre d'info, pour utiliser les propriétés d'un Oleobject, il est nécessaire de préciser la propriété .Object de cet OleObject (c'est clair ? )
c'est pas évident au début, on l'oublie tout le temps cet .Object

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 3 Décembre 2002

• #12

Dacodac !!!

Merci bcp Ti, je vais essayer de m'en souvenir...

@+Thierry.Object

 

Vote positif 0 Vote négatif