Discussion :

[Pabri]

Bonjour,
J'ai un fichier Excel avec du code qui fonctionnait très bien jusqu'en juillet 2020.
Depuis, j'dès que j'essaye de l'utiliser j'ai un message d'erreur "Erreur de compilations : Membre de méthode ou de donnés introuvable.
et ce sur le code suivant :

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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect([Ecobus[ecole]], Target) Is Nothing And Target.Count = 1 Then
    'Sheets("Ecole").Range("AA1") = ComboBox1.Value
    choix1 = Application.Transpose(Sheets("ecole").Range("recherche").Value)
    Me.ComboBox1.List = choix1
    Me.ComboBox1.Height = Target.Height + 3
    Me.ComboBox1.Width = Target.Width
    Me.ComboBox1.Top = Target.Top
    Me.ComboBox1.Left = Target.Left
    Me.ComboBox1 = Target
    Me.ComboBox1.Visible = True
    Me.ComboBox1.Activate
    Me.ComboBox1.DropDown
  Else
    Me.ComboBox1.Visible = False
  End If
  '----
End Sub

Est-ce que quelqu'un a une idée ?

En vous remerciant d'avance

[Pierre Fauconnier]

Salut.

Perso, je serais tenté de dire que ton combobox Combobox1 n'existe pas sur la feuille active (celle dont le module de classe contient le code incriminé) . A-t-il été renommé? Supprimé?