Erreur 438 - Object doesn't support this property or method

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour la communauté,

Lorsque mon code rencontre cboFunctions il m'affiche une erreur de code 438.
Quelqu'un pourrait-il m'aider sur cette erreur ?
Ou se trouve l'erreur dans mon code ?

Mercu d'avance et bon week end

Habiler

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
35
36
37
38
39
40
41
42
43
44
45
46
Sub RemplirComboboxEtAfficherValeur()
    Dim wsFctHuis As Worksheet
    Dim wsFuncties As Worksheet
    Dim cboFunctions As OLEObject
    Dim selectedValue As Range
    Dim lastRow As Long
    Dim i As Long
 
    ' Références aux feuilles
    Set wsFctHuis = Worksheets("FctHuis2023")
    Set wsFuncties = Worksheets("Functies")
 
    ' Référence au ComboBox
    Set cboFunctions = wsFuncties.Shapes("CboFunctions").OLEFormat.Object
 
    ' Effacer les éléments existants dans le ComboBox
   cboFunctions.Clear
 
    ' Trouver la dernière ligne avec des données dans les colonnes A et B de FctHuis2023
    lastRow = wsFctHuis.Cells(wsFctHuis.Rows.Count, "B").End(xlUp).Row
 
    ' Trier les données par ordre croissant en fonction de la colonne B
    wsFctHuis.Sort.SortFields.Clear
    wsFctHuis.Sort.SortFields.Add key:=wsFctHuis.Range("B2:B" & lastRow), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With wsFctHuis.Sort
        .SetRange wsFctHuis.Range("A1:C" & lastRow)
        .header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
    ' Remplir le ComboBox avec les données triées
    For i = 2 To lastRow
        cboFunctions.AddItem wsFctHuis.Cells(i, 1) & " - " & wsFctHuis.Cells(i, 2)
    Next i
 
    ' Sélectionner la première valeur dans le ComboBox
    cboFunctions.ListIndex = 0
 
    ' Afficher la valeur de la colonne C dans Functies!B3
    Set selectedValue = wsFctHuis.Range("C" & cboFunctions.ListIndex + 2)
    wsFuncties.Range("B3").Value = selectedValue.Value
End Sub

02/02/2024, 14h33
Tête de chat

Bonjour

a priori c'est le Clear qui doit coincer. Essaye avec RemoveAllItems
02/02/2024, 21h09
HABILER

Re Bonjour,

RemoveAllItems n'apparaît pas parmi les possibilités pas plus que clear d'ailleurs

Merci Habler
03/02/2024, 10h00
Pierre Fauconnier
Bonjour

A mon avis, le typage est mauvais. cboFunctions devrait être typé DropDown, qui expose la méthode RemoveAllItems
Code:

1 2 3 4 5 6 Sub Test() Dim cboFunctions As DropDown Set cboFunctions = Feuil1.Shapes("cboFunctions").OLEFormat.Object cboFunctions.RemoveAllItems End Sub
04/02/2024, 09h08
Pierre Fauconnier

1 pièce(s) jointe(s)

Petite astuce pour connaître la classe de l'objet renvoyé. On type la variable en Object, et dans la fenêtre des variables locales, on inspecte pour voir son type.

Pièce jointe 650216

Bonjour à tous,

J'ai reécrit mon code et j'ai toujours un problème avec mon CboFunctions.
Si je mets mon code en thisWorkbooks ou dans la leuille "functies" j'ai "Methode or data member not found" tant avec Dim cboFunctions As DropDown qu'avec Dim cboFunctions As ComboboxQuelqu'un pourrait-il me venir en aide ?

Merci d'avance

Habiler

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
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
 Private Sub Worksheet_Activate()
    ' Appelé lorsque la feuille "Functies" est activée
 
    ' Remplir le ComboBox avec les données des colonnes A et B de "FctHuis2023"
    Call RemplirComboBox
 
End Sub
 
Private Sub CboFunctions_Change()
    ' Appelé lorsque la sélection dans le ComboBox change
 
    ' Afficher la valeur de la colonne C de "FctHuis2023" correspondant à la sélection en B3
    Call AfficherValeurColonneC
 
End Sub
 
Private Sub RemplirComboBox()
    ' Remplit le ComboBox avec les données des colonnes A et B de "FctHuis2023"
    Dim cboFunctions As DropDown
    Dim wsFuncties As Worksheet
    Dim wsFctHuis2023 As Worksheet
    Dim lastRow As Long
 
    ' Référence à la feuille de calcul "Functies"
    Set wsFuncties = ThisWorkbook.Sheets("Functies")
 
    ' Référence à la feuille de calcul "FctHuis2023"
    Set wsFctHuis2023 = ThisWorkbook.Sheets("FctHuis2023")
 
    ' Effacer les anciennes données du ComboBox
    wsFuncties.cboFunctions.Clear
 
    ' Trouver la dernière ligne avec des données dans "FctHuis2023"
    lastRow = wsFctHuis2023.Cells(wsFctHuis2023.Rows.Count, "A").End(xlUp).Row
 
    ' Remplir le ComboBox avec les données des colonnes A et B de "FctHuis2023"
    wsFuncties.cboFunctions.List = wsFctHuis2023.Range("A1:B" & lastRow).Value
 
End Sub
 
Private Sub AfficherValeurColonneC()
    ' Affiche la valeur de la colonne C de "FctHuis2023" correspondant à la sélection en B3
 
    Dim wsFuncties As Worksheet
    Dim wsFctHuis2023 As Worksheet
    Dim selectedValue As Variant
    Dim cboFunctions As DropDown
 
    ' Référence à la feuille de calcul "Functies"
    Set wsFuncties = ThisWorkbook.Sheets("Functies")
 
    ' Référence à la feuille de calcul "FctHuis2023"
    Set wsFctHuis2023 = ThisWorkbook.Sheets("FctHuis2023")
 
    ' Récupérer la valeur sélectionnée dans le ComboBox
    selectedValue = wsFuncties.cboFunctions.Value
 
    ' Afficher la valeur de la colonne C de "FctHuis2023" correspondant à la sélection en B3
    wsFuncties.Range("B3").Value = wsFctHuis2023.Cells(wsFctHuis2023.Rows.Count, 3).End(xlUp).Offset(1, 0).Value
 
End Sub

05/02/2024, 11h22
Tête de chat

Bonjour,

je vois toujours un Clear au lieu du RemoveAllitems...

En passant : c'est bien sur cette ligne que tu as l'erreur ?
05/02/2024, 11h34
HABILER

J'ai remplacé .clear par .RemoveAllItems mais sans succès.
Lorsque je mets

Code:

wsFuncties.cboFunctions.Clear

en commentaire mon erreur se déplace à la ligne

Code:

wsFuncties.cboFunctions.List = wsFctHuis2023.Range("A1:B" & lastRow).Value

Avec cbofonctions en surbrillance.
05/02/2024, 12h08
Pierre Fauconnier

Sur quelle ligne as-tu l'erreur? Quel est le code exact que tu utilises? As-tu vérifier le type du "combobox" avec la technique que j'ai illustrée dans mon deuxième message?
05/02/2024, 12h18
Tête de chat

Re,

c'est simplement une fois de plus que list n'existe pas non plus pour le type d'objet que tu utilises. Mais si tu as avancé, c'est bien que le clear posait problème.

J'étais resté sur le premier code où tu faisais une boucle avec des additem...

Ce n'est pas tant la déclaration qui compte mais comme on parle d'erreur d'exécution c'est le type réel de l'objet.

Elle sort d'où cette combo / liste déroulante (tu l'a créé comment) ? Par exemple : menu développeur, contrôle de formulaire, zone de liste déroulante ?

Bonjour à tous,

Dans le bout de code suivant j'ai la à nouveau l'erreur "compile error - Method or data member not found" au niveau du cboFonctions.

j'ai essayé avec Dim cboFonctions As OLEObjects, Dim cboFonctions As Combobox ou Dim cboFonctions As dropdown mais sans succès.

Quelqu'un sait-il où se situe l'erreur ?

Merci d'avance

Habiler
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub AfficherValeurs() Dim wb As Workbook Dim wsFuncties As Worksheet Dim wsAvisAll As Worksheet Dim cboValue As String Dim avisRow As Long Dim avisLastRow As Long Dim functiesLastRow As Long Dim i As Long Dim cboFonctions As OLEObjects ' Définition du workbook et des feuilles Set wb = Workbooks.Open("P:\XXX" Set wsFuncties = wb.Sheets("functies") Set wsAvisAll = wb.Sheets("AvisAll") ' Récupération de la valeur sélectionnée dans le ComboBox cboValue = wsFuncties.cboFonctions.Value ' Trouver la dernière ligne avec des données dans la feuille AvisAll avisLastRow = wsAvisAll.Cells(wsAvisAll.Rows.Count, "A").End(xlUp).Row

08/02/2024, 10h47
Pierre Fauconnier

Il ne sert à rien d'essayer n'importe quoi.

Ecris un bout de code comme celui que j'ai donné pour trouver quelle est exactement la classe de l'objet vers lequel tu pointes. Tu sauras alors comment le déclarer et tu auras accès à ses méthodes et propriétés à la saisie.

Peux-tu aussi montrer une copie d'écran représentant l'objet?
08/02/2024, 11h59
Tête de chat

Bonjour,

Code:

Il ne sert à rien d'essayer n'importe quoi.

d'accord avec Pierre Fauconnier.

D'autant que comme je l'ai dit plus haut le type déclaré importe moins que le type réel. Donc soit tu réponds à Pierre, soit tu réponds à la question que j'ai posée en #10

Et par pitié arrête à chaque fois de revenir avec un code différent. Tu ne dis pas si tu a réglé ton pb d'init et chargement, et maintenant on est sur une récup de valeur.

Bref, si tu veux qu'on t'aide efficacement, aide nous un peu aussi !
08/02/2024, 14h18
HABILER

1 pièce(s) jointe(s)

J'ai testé l'objet avec le code de Pierre et il m'indique à présent un code 424 .
C'est un combobox "contruite" avec le menu developer insert.

Voici ce qu'il m'affiche avec le code de Pierre :

Pièce jointe 650498

Un grand merci d'avance

Habiler
08/02/2024, 15h31
Tête de chat

1 pièce(s) jointe(s)

Re,

Citation:

C'est un combobox "contruite" avec le menu developer insert.

N'aie pas peur de donner des infos,l'objectif c'est quand même de pouvoir t'aider...
le truc c'est qu'il y a deux types d'objets dans le menu développeur, et qu'il y a une combo dans les deux :
Pièce jointe 650505

Lequel tu as choisi ? Contrôle de formulaire ou ActiveX ? Et accessoirement pourquoi celui-là et pas un autre ?

Et au fait tu es en train de faire quoi ? En première intention, pas besoin de VBA pour charger les options ou récupérer le choix ; dans les propriétés de la combo tu peux définir une plage source pour la liste de choix et une cellule cible pour l'index chosi.

Re,

en VBA avec un contrôle de formulaire, tu vas avoir un truc comme :
Code:

1 2 3 4 5 6 7 8 9 10 Sub test1() Dim MaCombo As Object Set MaCombo = ActiveSheet.Shapes("combo1").OLEFormat.Object MaCombo.RemoveAllItems MaCombo.AddItem "toto" MaCombo.AddItem "titi" MaCombo.AddItem "tata" MaCombo.ListIndex = 1 Debug.Print MaCombo.Value End Sub
et dans value tu vas récupérer le listindex (1 pas "toto")

avec un activeX
Code:

1 2 3 4 5 6 7 8 9 10 Sub test2() Dim MaCombo As Object Set MaCombo = ActiveSheet.Combo2 MaCombo.Clear MaCombo.AddItem "toto" MaCombo.AddItem "titi" MaCombo.AddItem "tata" MaCombo.ListIndex = 1 Debug.Print MaCombo.Value End Sub
et dans value tu vas récupérer "toto"

Mais si tu passes par .OLEFormat.Object dans le cas d'un ActiveX ça ne mène nulle part.

Perso, je n'utilise jamais ces trucs, je trouve que c'est pas beau et source de problèmes.

08/02/2024, 19h12
Pierre Fauconnier

La ligne jaune N'EST PAS exécutée. Il faut encore presser une fois sur F8 pour passer à la ligne suivante. Tu verras alors dans les propriétés locales Object/... C'est ce qui remplace les 3 ... qui nous intéresse.

Si c'est, comme je le pense, un contrôle de formulaire, alors ce devrait être DropDown et tu peux utiliser RemoveAllItems.

Si c'est un activex, il se pilote normalement via le module de la feuille qui le supporte.
08/02/2024, 21h23
HABILER

1 pièce(s) jointe(s)

C'est en appuyant sur F8 à nouveau que le message d'erreur apparaît.
424 à présent.
Pièce jointe 650526
08/02/2024, 21h36
Pierre Fauconnier

Purée. Vous n'aidez pas vraiment à vous aider...

C'est quoi Functies? Pourquoi votre code change-t-il tout le temps? Vous pouvez mettre votre classeur en copie, qu'on puisse regarder cela?

Avec le mien, on est à 19 messages, là.
09/02/2024, 07h55
Philippe Tulliez

Bonjour Pierre,

Citation:

Petite astuce pour connaître la classe de l'objet renvoyé. On type la variable en Object, et dans la fenêtre des variables locales, on inspecte pour voir son type.

J'ai gagné ma journée, je ne connaissais pas cette astuce :plusser:

Voir 40 message(s) de cette discussion en une page