Erreur de compilation : membre de méthode ou de données introuvables Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
i
iChoCow
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 janvier 2018
Version d'Excel : 2016

Message par iChoCow » 19 janvier 2018, 17:15

Bonjour à tous,

Je suis nouveau sur le forum. Je vous souhaite déjà à tous une bonne année et tous mes meilleurs voeux.

Je vous explique mon souci :
Lorsque j'exécute mon code, le message suivant apparait : erreur de compilation membre de méthode ou de données introuvables. Il me surligne en jaune "Private Sub UserForm_Initialize()" et en bleu ".cbocat". Cbocat est une de mes combobox, dont je suis allé vérifier le nom 36 fois. Je ne comprends pas vraiment l'erreur du code en sachant qu'il sert à avoir une liste déroulante dépendante.

Voici mon code :
Private Sub UserForm_Initialize()
Colonne = 5
Sheets("Centre de Pilotage").Range ("E3:K3")
Do While Cells(3, Colonne).Value <> ""
ModuleDépenses.cbocat.AddItem Cells(3, Colonne).Value
Colonne = Colonne + 1
Loop

End Sub
Private Sub cbocat_change()
i = 5
ModuleDépenses.cbosouscat.Clear
Sheets("Centre de Pilotage").Range ("E4:K13")
Do While Cells(3, i).Value <> ""
If Cells(3, i).Value = cbocat.Value Then
Cells(3, i).Select
Colonne = Active.Cell.Column
End If
i = i + 1
j = 4
Do While Cells(j, Colonne).Value <> ""
ModuleDépenses.cbosouscat.AddItem Cells(j, Colonne)
j = j + 1
Loop
cbosouscat.ListIndex = 0
End Sub
Je vous remercie. Si vous voulez des informations supplémentaires, n'hésitez pas, je répondrai certainement très rapidement.

Je vous souhaite une agréable journée,
Avatar du membre
M12
Passionné d'Excel
Passionné d'Excel
Messages : 3'102
Appréciations reçues : 120
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 19 janvier 2018, 17:20

Bonjour,

Remplace
ModuleDépenses.cbocat.AddItem Cells(3, Colonne).Value
par
Me.cbocat.AddItem Cells(3, Colonne).Value
idem pour le reste des Cbox

Ne pas mettre d'accents dans le VBA (sauf pour des commentaires, etc)
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
i
iChoCow
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 janvier 2018
Version d'Excel : 2016

Message par iChoCow » 19 janvier 2018, 17:49

Merci pour ta réponse.

Cependant, nouvelle erreur : erreur d'exécution 438 propriété ou méthode non gérée par cet objet... :(

Je vous remets le code :
Dim Colonne As Integer
Dim i As Integer, j As Integer


Private Sub UserForm_Initialize()
Colonne = 5
Sheets("Centre de Pilotage").Range ("E3:K3")
Do While Cells(3, Colonne).Value <> ""
Me.cbocat.AddItem Cells(3, Colonne).Value
Colonne = Colonne + 1
Loop

End Sub
Private Sub cbocat_change()
i = 5
Me.cbosouscat.Clear
Sheets("Centre de Pilotage").Range ("E4:K13")
Do While Cells(3, i).Value <> ""
If Cells(3, i).Value = cbocat.Value Then
Cells(3, i).Select
Colonne = Active.Cell.Column
End If
i = i + 1
j = 4
Do While Cells(j, Colonne).Value <> ""
Me.cbosouscat.AddItem Cells(j, Colonne)
j = j + 1
Loop
cbosouscat.ListIndex = 0
End Sub
Avez-vous des idées ?

Merci à vous,
i
iChoCow
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 janvier 2018
Version d'Excel : 2016

Message par iChoCow » 20 janvier 2018, 15:38

Personne ? :(
J
Jeb
Jeune membre
Jeune membre
Messages : 21
Inscrit le : 13 décembre 2017
Version d'Excel : 2010 FR

Message par Jeb » 20 janvier 2018, 15:56

salut
il manque encore un me sur l'une de tes formules dans la condition
If Cells(3, i).Value = cbocat.Value Then

Jeb
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'547
Appréciations reçues : 215
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 20 janvier 2018, 18:28

Bonsoir,

Ces instructions incomplètes provoquent une erreur
Sheets("Centre de Pilotage").Range ("E3:K3")
Sheets("Centre de Pilotage").Range ("E4:K13")
i
iChoCow
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 janvier 2018
Version d'Excel : 2016

Message par iChoCow » 21 janvier 2018, 11:27

Bonjour,

Je ne vois pas où il manque un "Me" ?

Merci,
Modifié en dernier par iChoCow le 21 janvier 2018, 11:33, modifié 1 fois.
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'547
Appréciations reçues : 215
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 21 janvier 2018, 11:33

Elles sont incomplètes car elles n'indiquent aucune action. Que pensiez-vous faire ??
i
iChoCow
Jeune membre
Jeune membre
Messages : 22
Inscrit le : 19 janvier 2018
Version d'Excel : 2016

Message par iChoCow » 21 janvier 2018, 11:34

Oui j'ai capté, j'ai modifié mon message en même temps que votre post.

Je veux juste lui dire d'aller chercher les informations dans cette liste. :)
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'547
Appréciations reçues : 215
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 21 janvier 2018, 12:07

D'après ce que j'ai compris, ce code devrait convenir :
Private Sub UserForm_Initialize()
    Dim cell As Range
    
    Me.cbocat.Clear
    For Each cell In Sheets("Centre de Pilotage").Range("E3:K3")
        Me.cbocat.AddItem cell.Value
    Next cell

End Sub
Private Sub cbocat_change()
    Dim cell As Range
    
    Me.cbosouscat.Clear
    With Sheets("Centre de Pilotage")
        For Each cell In .Range("E4:K13")
            If .Cells(3, cell.Column).Value = cbocat.Value Then Me.cbosouscat.AddItem cell.Value
        Next cell
    End With
    Me.cbosouscat.ListIndex = 0

End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message