Discussion :

[julien2929]

Bonjour le forum,

J'ai la fonction suivante dans un Module :

Code :

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

1
2
3
4
5
6
       Sub Fonction(NomFeuil As String, NumComboBox As Integer)
 
              Set Obj = Sheets(NomFeuil).Controls(ComboBox & "NumComboBox")
              ...
 
       End Sub

Quand je compile il y a le message d'erreur "Erreur d'exécution '438' : Propriété ou méthode non gérée par cet objet.
Quand je remplace par la version suivante, le code marche :

Code :

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

1
2
3
4
5
6
       Sub Fonction(NomFeuil As String)
 
              Set Obj = Sheets(NomFeuil).ComboBox1
              ...
 
       End Sub

Cependant je n'ai pas réussit à passé le numéro de la ComboBox en variable, pouvez-vous m'aider à trouver d'où vient mon erreur ?
Merci pour vos réponses.
Julien

[bboy-eazy]

Bonjour,

Peut être comme ca:

Code :

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

Set Obj = Sheets(NomFeuil).Controls("ComboBox" & NumComboBox)

[julien2929]

Bonjour Bboy-easy,
Malheureusement cela ne fonctionne pas non plus. J'ai le pressentiment que l'on ne peut pas récupérer l'index d'une ComboBox si celle-ci est sur un Worksheet ...
Merci de ta réponse

[casefayere]

Bonjour,
ou est, ton contrôle, sur un usf ?, sur une feuille ?, s'agit'il d'un contrôle Formulaire ou ActiveX ?

[julien2929]

Bonjour Casefayere,

Mon contrôle est sur un worksheet et il s'agit d'un contrôle ActiveX.

[casefayere]

autre chose, je viens de voir que tu termines une fonction par "End Sub", c'est "End Function"
après voir comment appelles-tu cette fonction (te diriges-tu sur elle)

[julien2929]

Bonjour,
Cela ne marche toujours pas avec un Function... et End Fonction

Je la déclare dans 'ThisWorbook' comme suit :

Fonction "Feuil1", 1

[casefayere]

Je vais faire un essai sur fichier bidon et te tiens au courant

[casefayere]

Je n'ai pas pensé à te demander, comment est déclaré Obj (Dim Obj as ....)

[julien2929]

C'est peut-être la coquille !

Je ne l'ai pas déclarée parce je ne savait pas quel type mettre...

[joe.levrai]

Bonjour,

un exemple qui boucle sur Combobox1 à 5 afin d'afficher leur nom, étant entendu que ce sont des contrôles ActiveX situés sur la feuille dont le codename est Feuil1

Code :

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

1
2
3
For i = 1 To 5
    MsgBox Feuil1.Shapes("Combobox" & i).Name
Next i

[julien2929]

Bonjour Joe,

J'essai d'adapter ton code au mien mais je n'y parvient pas, j'ai toujours le même message d'erreur :/

[casefayere]

et ça

Code :

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

1
2
3
4
5
Function essai(NomFeuil As String, NumComboBox As Integer)
Dim obj As Object
 Set obj = Sheets(NomFeuil).OLEObjects("ComboBox" & NumComboBox)
MsgBox obj.Name
End Function

essai concluant

[julien2929]

J'ai toujours le même message d'erreur...

[casefayere]

Pourtant, je viens de tester sans problème
un combobox (ComboBox1) dans une feuille nommée "Feuil1", un code dans l'éditeur sur la feuille

Code :

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

1
2
3
Sub toto()
essai "Feuil1", 1
End Sub

la fonction dans un module

Code :

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

1
2
3
4
5
Function essai(NomFeuil As String, NumComboBox As Integer)
Dim obj As OLEObject
 Set obj = Sheets(NomFeuil).OLEObjects("ComboBox" & NumComboBox)
 MsgBox obj.Name
End Function

testes la même chose

[joe.levrai]

Navré, je t'ai donné par erreur la méthode pour un contrôle de formulaire (collection Shapes) au lieu d'un contrôle ActiveX (collection OLEObjects)


Je laisse casefayere sur le sujet, et confirme que sa dernière proposition est parfaitement correcte et fonctionnelle pour des contrôles ActiveX

[julien2929]

Le code que tu me donnes fonctionne mais avec la boucle que j'ajoute ensuite, je retombe sur le même message d'erreur. Je te met la boucle au complet, elle tri par ordre alphabétique la liste déroulante de ma comboBox :

Code :

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

1
2
3
4
Dim Obj As Object
Set Obj = Sheets(NomFeuil).OLEObjects("ComboBox" & NumComboBox)
 
With Obj

[casefayere]

j'ai modifié mon code pour la déclaration et j'ai préféré

Code :

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

Dim Obj As OleObject

plutôt que

Code :

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

Dim Obj As Object

tu as du oublié quelque chose dans ta boucle, elle n'apparait pas

[julien2929]

(je termine)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
     With Obj
          For i = 0 To .ListCount -1
               For j = 0 To ListCount - 1
                    If .List(i) < .List(j)
                        strTemp = .List(i)
                        .List(i) = .List(j)
                        .List(j) = strTemp
                   EndIf
               Next j
          Next i
     End With

il me semble que c'est le .List qui pose problème ?

[casefayere]

il me semble que c'est le .List qui pose problème ?

oui, la propriété n'existe pas, ni celle-ci "ListCount"
je vais chercher car je n'utilise pas ces objets placés sur une feuille, cherches de ton coté en attendant