Discussion :

[HABILER]

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 :

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

[Tête de chat]

Bonjour

a priori c'est le Clear qui doit coincer. Essaye avec RemoveAllItems

[HABILER]

Re Bonjour,

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

Merci Habler

[Pierre Fauconnier]

Bonjour

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

Code vba :

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

1
2
3
4
5
6
Sub Test()
  Dim cboFunctions As DropDown
 
  Set cboFunctions = Feuil1.Shapes("cboFunctions").OLEFormat.Object
  cboFunctions.RemoveAllItems
End Sub

[Pierre Fauconnier]

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.

[HABILER]

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 :

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

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

[HABILER]

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

Code :

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

wsFuncties.cboFunctions.Clear

en commentaire mon erreur se déplace à la ligne

Code :

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

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

Avec cbofonctions en surbrillance.

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

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

[HABILER]

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 :

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

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

[Tête de chat]

Bonjour,

Code :

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

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 !

[HABILER]

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 :



Un grand merci d'avance

Habiler

[Tête de chat]

Re,

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 :


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.

[Tête de chat]

Re,

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

Code :

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

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 :

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

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.

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

[HABILER]

C'est en appuyant sur F8 à nouveau que le message d'erreur apparaît.
424 à présent.

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

[Philippe Tulliez]

Bonjour Pierre,

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